SimulationCore2/CSharp/BasicInputs/RigSpecifications/CPumpsVariables.f90

module CPumpsVariables
    use CIActionReference
    implicit none    
    public        
    
    
    ! Pumps Specifications
    Type::PumpSpecificationType
        real(8) :: MudPump1LinerDiameter
        real(8) :: MudPump1Stroke
        real(8) :: MudPump1MechanicalEfficiency
        ! real(8) :: MudPump1VolumetricEfficiency
        real(8) :: MudPump1Output
        real(8) :: MudPump1OutputBblStroke
        real(8) :: MudPump1Maximum
        real(8) :: MudPump1ReliefValvePressure
        
        real(8) :: MudPump2LinerDiameter
        real(8) :: MudPump2Stroke
        real(8) :: MudPump2MechanicalEfficiency
        ! real(8) :: MudPump2VolumetricEfficiency
        real(8) :: MudPump2Output
        real(8) :: MudPump2OutputBblStroke
        real(8) :: MudPump2Maximum
        real(8) :: MudPump2ReliefValvePressure
        
        real(8) :: CementPumpLinerDiameter
        real(8) :: CementPumpStroke
        real(8) :: CementPumpMechanicalEfficiency
        ! real(8) :: CementPumpVolumetricEfficiency
        real(8) :: CementPumpOutput
        real(8) :: CementPumpOutputBblStroke
        real(8) :: CementPumpMaximum
        real(8) :: CementPumpReliefValvePressure
        
        logical :: MudPump1ReliefValveIsSet
        logical :: MudPump2ReliefValveIsSet
        logical :: CementPumpReliefValveIsSet
        
        real(8) :: MudPump1VolumetricOutput,MudPump2VolumetricOutput,CementPumpVolumetricOutput

        ! Newly added
        Real(8) :: MudPump1MaximumPressure,MudPump1PumpRateChange,MudPump1SurfaceLineLength,MudPump1DelayToShutdown
        Real(8) :: MudPump2MaximumPressure,MudPump2PumpRateChange,MudPump2SurfaceLineLength,MudPump2DelayToShutdown
        Real(8) :: CementPumpMaximumPressure,CementPumpPumpRateChange,CementPumpSurfaceLineLength,CementPumpDelayToShutdown
        
    End type PumpSpecificationType
    ! Type(PumpSpecificationType)::PumpsSpecification
    
    ! procedure (ActionDouble), pointer :: MudPump1LinerDiameterPtr
    ! procedure (ActionDouble), pointer :: MudPump2LinerDiameterPtr
    ! procedure (ActionDouble), pointer :: MudPump3LinerDiameterPtr
    ! procedure (ActionDouble), pointer :: MudPump1OutputBblStrokePtr
    ! procedure (ActionDouble), pointer :: MudPump2OutputBblStrokePtr
    ! procedure (ActionDouble), pointer :: MudPump3OutputBblStrokePtr
    
    
    real(8) :: MathPI = 3.14159265358979d0
    
    contains
end module CPumpsVariables