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    
    
    
    subroutine OpenPump1()
        use CManifolds
        implicit none
        call ChangeValve(16, .true.)
    end subroutine
    
    subroutine ClosePump1()
        use CManifolds
        implicit none
        call ChangeValve(16, .false.)
    end subroutine
    
    subroutine OpenPump2()
        use CManifolds
        implicit none
        call ChangeValve(17, .true.)
    end subroutine
    
    subroutine ClosePump2()
        use CManifolds
        implicit none
        call ChangeValve(17, .false.)
    end subroutine
    
    
    subroutine OpenCementPump()
        use CManifolds
        implicit none
        call ChangeValve(18, .true.)
    end subroutine
    
    subroutine CloseCementPump()
        use CManifolds
        implicit none
        call ChangeValve(18, .false.)
    end subroutine
    
    
    
    
    
    
    
    
    
    subroutine SubscribeMudPump1LinerDiameter(a) 
    !DEC$ ATTRIBUTES DLLEXPORT :: SubscribeMudPump1LinerDiameter
    !DEC$ ATTRIBUTES ALIAS: 'SubscribeMudPump1LinerDiameter' :: SubscribeMudPump1LinerDiameter
        implicit none
        procedure (ActionDouble) :: a
        MudPump1LinerDiameterPtr => a
    end subroutine
    
    subroutine SubscribeMudPump2LinerDiameter(a) 
    !DEC$ ATTRIBUTES DLLEXPORT :: SubscribeMudPump2LinerDiameter
    !DEC$ ATTRIBUTES ALIAS: 'SubscribeMudPump2LinerDiameter' :: SubscribeMudPump2LinerDiameter
        implicit none
        procedure (ActionDouble) :: a
        MudPump2LinerDiameterPtr => a
    end subroutine
    
    subroutine SubscribeMudPump3LinerDiameter(a) 
    !DEC$ ATTRIBUTES DLLEXPORT :: SubscribeMudPump3LinerDiameter
    !DEC$ ATTRIBUTES ALIAS: 'SubscribeMudPump3LinerDiameter' :: SubscribeMudPump3LinerDiameter
        implicit none
        procedure (ActionDouble) :: a
        MudPump3LinerDiameterPtr => a
    end subroutine
    
    
    
    subroutine SubscribeMudPump1OutputBblStroke(a) 
    !DEC$ ATTRIBUTES DLLEXPORT :: SubscribeMudPump1OutputBblStroke
    !DEC$ ATTRIBUTES ALIAS: 'SubscribeMudPump1OutputBblStroke' :: SubscribeMudPump1OutputBblStroke
        implicit none
        procedure (ActionDouble) :: a
        MudPump1OutputBblStrokePtr => a
    end subroutine
    
    subroutine SubscribeMudPump2OutputBblStroke(a) 
    !DEC$ ATTRIBUTES DLLEXPORT :: SubscribeMudPump2OutputBblStroke
    !DEC$ ATTRIBUTES ALIAS: 'SubscribeMudPump2OutputBblStroke' :: SubscribeMudPump2OutputBblStroke
        implicit none
        procedure (ActionDouble) :: a
        MudPump2OutputBblStrokePtr => a
    end subroutine
    
    subroutine SubscribeMudPump3OutputBblStroke(a) 
    !DEC$ ATTRIBUTES DLLEXPORT :: SubscribeMudPump3OutputBblStroke
    !DEC$ ATTRIBUTES ALIAS: 'SubscribeMudPump3OutputBblStroke' :: SubscribeMudPump3OutputBblStroke
        implicit none
        procedure (ActionDouble) :: a
        MudPump3OutputBblStrokePtr => a
    end subroutine
    
    
    
    
    subroutine SetMudPump1LinerDiameterN(a)
        implicit none
        real(8) :: a
        if(associated(MudPump1LinerDiameterPtr)) call MudPump1LinerDiameterPtr(a)
    end subroutine
    
    subroutine SetMudPump2LinerDiameterN(a)
        implicit none
        real(8) :: a
        if(associated(MudPump2LinerDiameterPtr)) call MudPump2LinerDiameterPtr(a)
    end subroutine
    
    subroutine SetMudPump3LinerDiameterN(a)
        implicit none
        real(8) :: a
        if(associated(MudPump3LinerDiameterPtr)) call MudPump3LinerDiameterPtr(a)
    end subroutine
    
    
    
    subroutine SetMudPump1OutputBblStrokeN(a)
        implicit none
        real(8) :: a
        if(associated(MudPump1OutputBblStrokePtr)) call MudPump1OutputBblStrokePtr(a)
    end subroutine
    
    subroutine SetMudPump2OutputBblStrokeN(a)
        implicit none
        real(8) :: a
        if(associated(MudPump2OutputBblStrokePtr)) call MudPump2OutputBblStrokePtr(a)
    end subroutine
    
    subroutine SetMudPump3OutputBblStrokeN(a)
        implicit none
        real(8) :: a
        if(associated(MudPump3OutputBblStrokePtr)) call MudPump3OutputBblStrokePtr(a)
    end subroutine
    
    
    
    
    subroutine CalcMudPump1LinerDiameter()
        use, intrinsic :: IEEE_ARITHMETIC
        implicit none
        real(8) :: a
        a = (MathPI / 4.d0) * PumpsSpecification%MudPump1Stroke * 3.0d0 * PumpsSpecification%MudPump1VolumetricEfficiency / 9702.03d0
        a = dsqrt(PumpsSpecification%MudPump1OutputBblStroke / a)
        if (.not.IEEE_IS_FINITE(a) .or. IEEE_IS_NAN(a)) then
            PumpsSpecification%MudPump1LinerDiameter = 0.0
        else
            PumpsSpecification%MudPump1LinerDiameter = a
        endif
        call SetMudPump1LinerDiameterN(PumpsSpecification%MudPump1LinerDiameter)
    end subroutine
    
    subroutine CalcMudPump2LinerDiameter()
        use, intrinsic :: IEEE_ARITHMETIC
        implicit none
        real(8) :: a
        a = (MathPI / 4.d0) * PumpsSpecification%MudPump2Stroke * 3.0d0 * PumpsSpecification%MudPump2VolumetricEfficiency / 9702.03d0
        a = dsqrt(PumpsSpecification%MudPump2OutputBblStroke / a)
        if (.not.IEEE_IS_FINITE(a) .or. IEEE_IS_NAN(a)) then
            PumpsSpecification%MudPump2LinerDiameter = 0.0
        else
            PumpsSpecification%MudPump2LinerDiameter = a
        endif
        call SetMudPump2LinerDiameterN(PumpsSpecification%MudPump2LinerDiameter)
    end subroutine
    
    subroutine CalcMudPump3LinerDiameter()
        use, intrinsic :: IEEE_ARITHMETIC
        implicit none
        real(8) :: a
        a = (MathPI / 4.d0) * PumpsSpecification%CementPumpStroke * 3.0d0 * PumpsSpecification%CementPumpVolumetricEfficiency / 9702.03d0
        a = dsqrt(PumpsSpecification%CementPumpOutputBblStroke / a)
        if (.not.IEEE_IS_FINITE(a) .or. IEEE_IS_NAN(a)) then
            PumpsSpecification%CementPumpLinerDiameter = 0.0
        else
            PumpsSpecification%CementPumpLinerDiameter = a
        endif
        call SetMudPump3LinerDiameterN(PumpsSpecification%CementPumpLinerDiameter)
    end subroutine
    
    
    
    subroutine CalcPump1OutputBblStroke()
        implicit none
        PumpsSpecification%MudPump1OutputBblStroke = (MathPI / 4.d0) * (PumpsSpecification%MudPump1LinerDiameter**2) * PumpsSpecification%MudPump1Stroke * 3.0d0 * PumpsSpecification%MudPump1VolumetricEfficiency / 9702.03d0
        call SetMudPump1OutputBblStrokeN(PumpsSpecification%MudPump1OutputBblStroke)
    end subroutine
    
    subroutine CalcPump2OutputBblStroke()    
        implicit none
        PumpsSpecification%MudPump2OutputBblStroke = (MathPI / 4.d0) * (PumpsSpecification%MudPump2LinerDiameter**2) * PumpsSpecification%MudPump2Stroke * 3.0d0 * PumpsSpecification%MudPump2VolumetricEfficiency / 9702.03d0
        call SetMudPump2OutputBblStrokeN(PumpsSpecification%MudPump2OutputBblStroke)
    end subroutine
    
    subroutine CalcPump3OutputBblStroke()
        implicit none
        PumpsSpecification%CementPumpOutputBblStroke = (MathPI / 4.d0) * (PumpsSpecification%CementPumpLinerDiameter**2) * PumpsSpecification%CementPumpStroke * 3.0d0 * PumpsSpecification%CementPumpVolumetricEfficiency / 9702.03d0
        call SetMudPump3OutputBblStrokeN(PumpsSpecification%CementPumpOutputBblStroke)
    end subroutine
    
end module CPumpsVariables