SimulationCore2/CSharp/BasicInputs/RigSpecifications/CPumpsVariables.i90

# 1 "/mnt/c/Projects/VSIM/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
        
! logical :: ManualPumpPower
! logical :: Valve1
! logical :: Valve2
! logical :: Valve3
! logical :: Valve4
! logical :: Valve5
    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