SimulationCore2/CSharp/Equipments/ControlPanels/CDrillingConsoleVariables.i90

# 1 "/mnt/c/Projects/VSIM/SimulationCore2/CSharp/Equipments/ControlPanels/CDrillingConsoleVariables.f90"
module CDrillingConsoleVariables

! use CVoidEventHandlerCollection
    implicit none    
    public    
    
    TYPE, PUBLIC :: DrillingConsoleType
! Input vars
        integer :: AssignmentSwitch
        logical :: EmergencySwitch
        real(8) :: RTTorqueLimitKnob
        integer :: MP1CPSwitchI = 0 !for not turning on pump1 on simulation start
        integer :: MP1CPSwitchT !for not turning on pump1 on simulation start
        integer :: MP1CPSwitch 
        logical :: MP1ThrottleUpdate = .false.
        real(8) :: MP1Throttle = -1.0
        integer :: MP2SwitchI = 0  !for not turning on pump2 on simulation start
        logical :: MP2SwitchT  !for not turning on pump2 on simulation start
        logical :: MP2Switch 
        logical :: MP2ThrottleUpdate = .false.
        real(8) :: MP2Throttle = -1.0
        integer :: DWSwitch
        real(8) :: DWThrottle
        integer :: RTSwitch
        real(8) :: RTThrottle
        real(8) :: DWBreak
        real(8) :: PreviousDWBreak
        logical :: ForceBreak = .false.
        real(8) :: DWAcceleretor
        real(8) :: DWTransmisionLever
        real(8) :: DWPowerLever
        real(8) :: TongLever
        real(8) :: RTTransmissionLever
        real(8) :: DWClutchLever
        real(8) :: EddyBreakLever
        logical :: AutoDW
        logical :: GEN1
        logical :: GEN2
        logical :: GEN3
        logical :: GEN4
        logical :: Permission_OpenKellyCock = .false.
        logical :: OpenKellyCock
        logical :: Permission_CloseKellyCock = .false.
        logical :: CloseKellyCock
        logical :: Permission_OpenSafetyValve = .false.
        logical :: OpenSafetyValve
        logical :: Permission_CloseSafetyValve = .false.
        logical :: CloseSafetyValve
        logical :: Permission_IRSafetyValve = .false.
        logical :: IRSafetyValve
        logical :: Permission_IRIBop = .false.
        logical :: IRIBop
        logical :: LatchPipe
        logical :: UnlatchPipe
        logical :: Swing
        logical :: FillMouseHole
        logical :: Slips
        real :: BrakeLeverCoefficient
        logical :: HideDrillingBrake
        logical :: ParkingBrakeBtn
    
! Output vars
        logical :: ParkingBrakeLed
        integer :: GEN1LED
        integer :: GEN2LED
        integer :: GEN3LED
        integer :: GEN4LED
        integer :: SCR1LED
        integer :: SCR2LED
        integer :: SCR3LED
        integer :: SCR4LED
        integer :: MP1BLWR
        integer :: MP2BLWR
        integer :: DWBLWR
        integer :: RTBLWR
        integer :: PWRLIM
        real(8) :: PWRLIMMTR
        real(8) :: RTTorqueLimitGauge
        integer :: AutoDWLED
        integer :: GEN1BTNLED
        integer :: GEN2BTNLED
        integer :: GEN3BTNLED
        integer :: GEN4BTNLED
        integer :: OpenKellyCockLed
        integer :: CloseKellyCockLed
        integer :: OpenSafetyValveLed
        integer :: CloseSafetyValveLed
        integer :: IRSafetyValveLed
        integer :: IRIBopLed

        integer :: LatchPipeLED
        integer :: UnlatchPipeLED
        integer :: SwingLed
        integer :: FillMouseHoleLed
    END TYPE DrillingConsoleType
    
end module CDrillingConsoleVariables