SimulationCore2/CSharp/Equipments/ControlPanels/CBopControlPanelVariables.f90

module CBopControlPanelVariables
    implicit none    
    public
    Type, Public:: BopControlPanelType
        ! Input vars
        real(8) :: AnnularRegulatorSetControl
        real(8) :: AirMasterValve
        real(8) :: ByePassValve
        real(8) :: AnnularValve
        real(8) :: UpperRamsValve
        real(8) :: MiddleRamsValve
        real(8) :: KillLineValve
        real(8) :: ChokeLineValve
        real(8) :: LowerRamsValve

        ! Output vars
        real(8) :: ManifoldPressureGauge
        real(8) :: AirSupplyPressureGauge
        real(8) :: AccumulatorPressureGauge
        real(8) :: AnnularPressureGauge
        integer :: AnnularOpenLED
        integer :: AnnularCloseLED
        integer :: UpperRamsOpenLED
        integer :: UpperRamsCloseLED
        integer :: MiddleRamsOpenLED
        integer :: MiddleRamsCloseLED
        integer :: KillLineOpenLED
        integer :: KillLineCloseLED
        integer :: ChokeLineOpenLED
        integer :: ChokeLineCloseLED
        integer :: LowerRamsOpenLED
        integer :: LowerRamsCloseLED
        real(8) :: AnnularStatus
        real(8) :: UpperRamsStatus
        real(8) :: MiddleRamsStatus
        real(8) :: LowerRamsStatus
    end type
    type(BopControlPanelType) :: BopControlPanel
    contains
    subroutine OpenAnnular()
        use CManifolds
        implicit none
        call ChangeValve(52, .true.)
    end subroutine
    
    subroutine CloseAnnular()
        use CManifolds
        implicit none
        call ChangeValve(52, .false.)
    end subroutine
    
    subroutine OpenUpperRams()
        use CManifolds
        implicit none
        call ChangeValve(51, .true.)
    end subroutine
    
    subroutine CloseUpperRams()
        use CManifolds
        implicit none
        call ChangeValve(51, .false.)
    end subroutine
    
    subroutine OpenMiddleRams()
        use CManifolds
        implicit none
        call ToggleMiddleRams(.true.)
    end subroutine
    
    subroutine CloseMiddleRams()
        use CManifolds
        implicit none
        call ToggleMiddleRams(.false.)
    end subroutine
    
    subroutine OpenKillLine()
        use CManifolds
        implicit none
        call ChangeValve(46, .true.)        
    end subroutine
    
    subroutine CloseKillLine()
        use CManifolds
        implicit none
        call ChangeValve(46, .false.)        
    end subroutine
    
    subroutine OpenChokeLine()
        use CManifolds
        implicit none
        call ChangeValve(47, .true.)
         !WRITE (*,*) ' valve 47 true '
    end subroutine
    
    subroutine CloseChokeLine()
        use CManifolds
        implicit none
        call ChangeValve(47, .false.)
         !WRITE (*,*) ' valve 47 false '
    end subroutine
    
    subroutine OpenLowerRams()
        use CManifolds
        implicit none
        call ChangeValve(49, .true.)
        !WRITE (*,*) ' valve 49 true '
    end subroutine
    
    subroutine CloseLowerRams()
        use CManifolds
        implicit none
        call ChangeValve(49, .false.)
        !WRITE (*,*) ' valve 49 false '
    end subroutine
    
end module CBopControlPanelVariables