SimulationCore2/CSharp/Equipments/ControlPanels/CDataDisplayConsoleVariables.f90

module CDataDisplayConsoleVariables
    use CIActionReference
    use CDoubleEventHandlerCollection
    implicit none    
    public    
    
    !portable
    real(8) :: TripAlarmLow
    real(8) :: TripAlarmHigh
    real(8) :: RetFlowAlarmLow
    real(8) :: RetFlowAlarmHigh
    real(8) :: PitAlarmLow
    real(8) :: PitAlarmHigh
    
    real(8) :: PortWeightOnBit
    real(8) :: PortHookLoad
    real(8) :: PortCasingPressure
    real(8) :: PortPumpPressure
    
    
    ! Input vars
    real(8) :: TripTankSetAlarmLow
    real(8) :: TripTankSetAlarmHigh
    integer :: TripTankSetAlarmSwitch
    logical :: TripTankPowerSwitch
    logical :: TripTankPumpSwitch
    logical :: TripTankHornSwitch
    logical :: AcidGasDetectionHornSwitch
    logical :: TotalStrokeCounterResetSwitch
    logical :: DrillingTrippingSelectorSwitch
    real(8) :: MVTSetAlarmLowKnob
    real(8) :: MVTSetAlarmHighKnob
    integer :: MVTSetAlarmSwitch
    logical :: MudTank1Switch
    logical :: MudTank2Switch
    logical :: MudTank3Switch
    logical :: MudTank4Switch
    real(8) :: MVTFineKnob
    real(8) :: MVTCoarseKnob
    logical :: MVTHornSwitch
    logical :: MVTDeviationTripSelectionSwitch
    logical :: MVTPowerSwitch
    logical :: MFFIResetTotalStrokes
    logical :: MFFIResetFillCounter
    integer :: MFFIPumpSelectorSwitch
    logical :: MFFIFillSPMSelectorSwitch
    real(8) :: MFFISetAlarmLowKnob
    real(8) :: MFFISetAlarmHighKnob
    integer :: MFFISetAlarmSwitch
    logical :: MFFIPowerSwitch
    logical :: MFFIHornSwitch
    
    logical :: ResetWob
    logical :: Clutch

    ! Output vars
    real(8) :: WOBPointer
    real(8) :: HookLoadPointer
    real(8) :: TripTankGauge
    integer :: TripTankAlarmLED
    integer :: TripTankPumpLED
    real(8) :: StandPipePressureGauge
    real(8) :: CasingPressureGauge
    real(8) :: MP1SPMGauge
    real(8) :: MP2SPMGauge
    real(8) :: ReturnLineTempGauge
    real(8) :: RotaryTorqueGauge
    real(8) :: RotaryRPMGauge
    type(DoubleEventHandlerCollection) :: OnRotaryRpmChange
    integer :: AcidGasDetectionLED
    real(8) :: TotalStrokeCounter
    !real(8) :: TotalStrokeCounter_temp
    real(8) :: PitGainLossGauge
    real(8) :: MudTanksVolumeGauge
    integer :: MVTAlarmLED
    real(8) :: ReturnMudFlowGauge
    real(8) :: FillStrokeCounter
    real(8) :: MFFITotalStrokeCounter
    integer :: MFFIAlarmLED
    integer :: MFFIPumpLED
    real(8) :: TotalWellDepth
    real(8) :: BitDepth
    real(8) :: HookLoad
    real(8) :: StandPipePressure
    real(8) :: CasingPressure
    real(8) :: MP1SPM
    real(8) :: MP2SPM
    real(8) :: RTTorque
    real(8) :: RTRPM
    real(8) :: WOP
    real(8) :: ROP
    real(8) :: MudWeightIn
    real(8) :: MudWeightOut
    logical :: Buzzer1
    logical :: Buzzer2
    logical :: Buzzer3
    logical :: Buzzer4
    
    ! events
    procedure (ActionDualDouble), pointer :: PumpsSpmChanges => null()
    
    contains  
    
    
    subroutine Set_TotalDepth(v)
        use CDrillWatchVariables, only: Depth
        use CSimulationVariables, only: SetDistanceDrilled
	    implicit none
	    real(8), intent(in) :: v
	    TotalWellDepth = v
        Depth = v
        call SetDistanceDrilled(v)
    end subroutine
    
    subroutine Set_BitPosition(v)
        use CDrillWatchVariables, only: BitPosition
	    implicit none
	    real(8), intent(in) :: v
	    BitDepth = v
        BitPosition = v
    end subroutine
    
    subroutine Set_RotaryTorque(v)
        use CDrillWatchVariables, only: Torque
	    implicit none
	    real(8), intent(in) :: v
	    RotaryTorqueGauge = v
	    Torque = v
        RTTorque = v
    end subroutine
    
    
    subroutine Set_MudWeightIn(v)
        use CDrillWatchVariables, only: MudWeightInDw => MudWeightIn
	    implicit none
	    real(8), intent(in) :: v
	    MudWeightIn = v
	    MudWeightInDw = v
    end subroutine
    
    subroutine Set_MudWeightOut(v)
        use CDrillWatchVariables, only: MudWeightOutDw => MudWeightOut
	    implicit none
	    real(8), intent(in) :: v
	    MudWeightOut = v
	    MudWeightOutDw = v
    end subroutine
    
    subroutine Set_TripTankVolume(v)
        use CDrillWatchVariables, only: TripTankVolume
	    implicit none
	    real(8), intent(in) :: v
	    TripTankVolume = v
    end subroutine
    
    subroutine Set_FillVolume(v)
        use CDrillWatchVariables, only: FillVolume
	    implicit none
	    real(8), intent(in) :: v
	    FillVolume = v
    end subroutine
    
    
    
    
    
    
    
    
    
    subroutine Set_HookLoad(v)
        use CDrillWatchVariables, only: HookLoadDw => HookLoad
	    implicit none
	    real(8), intent(in) :: v
	    HookLoadPointer = v
        HookLoadDw = v * 1000
        HookLoad = v
    end subroutine
    
    subroutine Set_WeightOnBit(v)
        use CDrillWatchVariables, only: WeightOnBit
	    implicit none
	    real(8), intent(in) :: v
	    WOBPointer = v
        WeightOnBit = v
        WOP = v
    end subroutine
    
    subroutine Set_ROP(v)
        use CDrillWatchVariables, only: ROPDw => ROP
	    implicit none
	    real(8), intent(in) :: v
	    ROP = v
        ROPDw = v
    end subroutine
    
    subroutine Set_CasingPressure(v)
        use CDrillWatchVariables, only: CasingPressureDw => CasingPressure
        use CChokeControlPanelVariables, only: CasingPressureChoke => CasingPressure
	    implicit none
	    real(8), intent(in) :: v
	    CasingPressureGauge = v
        CasingPressureDw = v
        CasingPressureChoke = v
        CasingPressure = v
    end subroutine
    
    subroutine Set_StandPipePressure(v)
        use CDrillWatchVariables, only: PumpPressure
        use CChokeControlPanelVariables, only: StandPipePressureChoke => StandPipePressure
	    implicit none
	    real(8), intent(in) :: v
	    StandPipePressureGauge = v
        PumpPressure = v
        StandPipePressureChoke = v
        StandPipePressure = v
        
        
        
    end subroutine
    
    
    subroutine Set_RotaryRPMGauge(v)
        use CDrillWatchVariables, only: RPM
	    implicit none
	    real(8), intent(in) :: v
	    RotaryRPMGauge = v
        RPM = v
        RTRPM = v
        call OnRotaryRpmChange%RunAll(v)
    end subroutine
    
    
    
    
    subroutine Set_MP1SPMGauge(v)
	    implicit none
	    real(8), intent(in) :: v
	    MP1SPMGauge = v
        MP1SPM = v
        if(associated(PumpsSpmChanges)) call PumpsSpmChanges(MP1SPMGauge, MP2SPMGauge)
#ifdef deb
	    print*, 'MP1SPMGauge=', MP1SPMGauge
#endif
    end subroutine
    
    subroutine Set_MP2SPMGauge(v)
	    implicit none
	    real(8), intent(in) :: v
	    MP2SPMGauge = v
        MP2SPM = v
        if(associated(PumpsSpmChanges)) call PumpsSpmChanges(MP1SPMGauge, MP2SPMGauge)
#ifdef deb
	    print*, 'MP2SPMGauge=', MP2SPMGauge
#endif
    end subroutine
    
end module CDataDisplayConsoleVariables