SimulationCore2/CSharp/BasicInputs/RigSpecifications/CPumpsVariables.i90

# 1 "/home/admin/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