SimulationCore2/CSharp/OperationScenarios/Common/COperationScenariosSettings.i90

# 1 "/home/admin/SimulationCore2/CSharp/OperationScenarios/Common/COperationScenariosSettings.f90"
module COperationScenariosSettings
    implicit none
    public
    contains
    
!subroutine Initialization()
!    ! use CSimulationVariables
!    use CUnityOutputs, only: SetupUnityOutputs => Setup
!
!    use CBucketEnum
!    use CTongEnum
!    use CSwingEnum
!    use CSlipsEnum
!    use CSafetyValveEnum
!    use UnitySignalsModule
!    use CMouseHoleEnum
!    use CKellyEnum
!    use OperationScenariosModule
!    use CIbopEnum
!    use CHeadEnum
!    use CElevatorEnum
!    use CElevatorConnectionEnum
!
!    use CInstallFillupHeadPermission
!    use CInstallMudBucketPermission
!    use CIrIbopPermission
!    use CIrSafetyValvePermission
!    use CRemoveFillupHeadPermission
!    use CRemoveMudBucketPermission
!
!    use CCloseKellyCockLedNotification
!    use CCloseSafetyValveLedNotification
!    use CFillMouseHoleLedNotification
!    use CIrIBopLedNotification
!    use CIrSafetyValveLedNotification
!    use CLatchLedNotification
!    use COpenKellyCockLedNotification
!    use COpenSafetyValveLedNotification
!    use CSlipsNotification
!    use CSwingLedNotification
!    use CTongNotification
!    use CUnlatchLedNotification
!
!    use CHookHeight
!    use CIbopHeight
!    use CNearFloorConnection
!    use CSafetyValveHeight
!    use CSlackOff
!    use CStandRack
!    use CStringPressure
!    use CZeroStringSpeed
!
!    use CStringUpdate
!
!    use CFlowPipeDisconnectEnum
!    use CFlowKellyDisconnectEnum
!
!    use CFillupHeadPermission
!    use CSwingDrillPermission
!    use CSwingOffPermission
!    use CSwingTiltPermission
!    use CTdsStemJointHeight
!    use UnitySignalsModule !for CTdsConnectionModesEnum
!    use CTdsElevatorModesEnum
!    use CTdsSpineEnum
!    use CTdsSwingEnum
!    use CTdsTongEnum
!    use CTdsBackupClamp
!
!    use CTdsIbopLedNotification
!    use CTdsPowerLedNotification
!
!    use CTdsTorqueWrenchLedNotification
!
!    implicit none
!
!    call SetupUnityOutputs()
!
!    call Subscribe_Tong()
!    call Subscribe_MudBucket()
!    call Subscribe_ElevatorConnection()
!    call Subscribe_Elevator()
!    call Subscribe_FillupHead()
!    call Subscribe_Ibop()
!    call Subscribe_KellyConnection()
!    call Subscribe_Kelly()
!    call Subscribe_MouseHole()
!    call Subscribe_OperationCondition()
!    call Subscribe_SafetyValve()
!    call Subscribe_Slips()
!    call Subscribe_Swing()
!
!
!    call Subscribe_InstallFillupHeadPermission()
!    call Subscribe_InstallMudBucketPermission()
!    call Subscribe_IrIbopPermission()
!    call Subscribe_IrSafetyValvePermission()
!    call Subscribe_RemoveFillupHeadPermission()
!    call Subscribe_RemoveMudBucketPermission()
!
!    call Subscribe_CloseKellyCockLed()
!    call Subscribe_CloseSafetyValveLed()
!    call Subscribe_FillMouseHoleLed()
!    call Subscribe_IrIBopLed()
!    call Subscribe_IrSafetyValveLed()
!    call Subscribe_LatchLed()
!    call Subscribe_OpenKellyCockLed()
!    call Subscribe_OpenSafetyValveLed()
!    call Subscribe_SlipsNotification()
!    call Subscribe_SwingLed()
!    call Subscribe_UnlatchLed()
!
!    call Subscribe_HookHeight()
!    call Subscribe_IbopHeight()
!    call Subscribe_NearFloorConnection()
!    call Subscribe_SafetyValveHeight()
!    call Subscribe_SlackOff()
!    call Subscribe_StringPressure()
!    call Subscribe_ZeroStringSpeed()
!    call Subscribe_StandRack()
!
!    call Subscribe_StringUpdate()
!
!    call Subscribe_TongNotification()
!
!    call Subscribe_FlowKellyDisconnect()
!    call Subscribe_FlowPipeDisconnect()
!
!
!
!
!
!    !top drive
!    call Subscribe_TdsConnectionModes()
!    call Subscribe_TdsElevatorModes()
!    call Subscribe_FillupHeadPermission()
!    call Subscribe_SwingDrillPermission()
!    call Subscribe_SwingOffPermission()
!    call Subscribe_SwingTiltPermission()
!    call Subscribe_TdsStemJointHeight()
!    call Subscribe_TdsTong()
!    call Subscribe_TdsBackupClamp()
!    call Subscribe_TdsSwing()
!    call Subscribe_TdsSpine()
!    call Subscribe_PowerLed()
!    call Subscribe_IbopLed()
!
!    call Subscribe_TorqueWrenchLed()
!
!
!    call OnSimulationStart%Add(SetDefaultValues)
!
!end subroutine
    
! subroutine SetDefaultValues()
    subroutine OperationScenarios_Init()
        use OperationScenariosModule
        use CHoistingVariables
        use SimulationVariables
        use CManifolds, only: RemoveSafetyValve_TripMode, RemoveSafetyValve_KellyMode
        implicit none
        
        call Set_KellyConnection(KELLY_CONNECTION_NOTHING)
!Get_KellyConnection()
!KELLY_CONNECTION_NOTHING
!KELLY_CONNECTION_STRING
!KELLY_CONNECTION_SINGLE
        call Set_ElevatorConnection(ELEVATOR_CONNECTION_NOTHING)
!Get_ElevatorConnection()
!ELEVATOR_CONNECTION_NOTHING
!ELEVATOR_CONNECTION_STRING
!ELEVATOR_CONNECTION_STAND
!ELEVATOR_CONNECTION_SINGLE
!ELEVATOR_LATCH_STRING
!ELEVATOR_LATCH_SINGLE
!ELEVATOR_LATCH_STAND
        
        
        
        
        
        
        
        
        call Set_CloseKellyCockLed(.false.)    !Get_CloseKellyCockLed()
        call Set_CloseSafetyValveLed(.false.)  !Get_CloseSafetyValveLed()
        call Set_FillMouseHoleLed(.true.)      !Get_FillMouseHoleLed()
        call Set_IrIBopLed(.false.)            !Get_IrIBopLed()
!call Set_IrSafetyValveLed(.true.)      !Get_IrSafetyValveLed()
        if(data%Configuration%Hoisting%DriveType == TopDrive_DriveType) then
            call RemoveSafetyValve_TripMode()
            call RemoveSafetyValve_KellyMode()
            call Set_IrSafetyValveLed(.false.)
        else
            call Set_IrSafetyValveLed(.true.)
        endif
        call Set_LatchLed(.false.)             !Get_LatchLed()
        call Set_OpenKellyCockLed(.true.)      !Get_OpenKellyCockLed()
        call Set_OpenSafetyValveLed(.true.)    !Get_OpenSafetyValveLed()
        call Set_SlipsNotification(.false.)    !Get_SlipsNotification()
        call Set_SwingLed(.false.)             !Get_SwingLed()
        call Set_TongNotification(.false.)     !Get_TongNotification()
        call Set_UnlatchLed(.false.)           !Get_UnlatchLed()
        
        
        
        
        
        
        
        call Set_InstallFillupHeadPermission(.false.)  !Get_InstallFillupHeadPermission()
        call Set_InstallMudBucketPermission(.false.)   !Get_InstallMudBucketPermission()
        call Set_IrIbopPermission(.false.)             !Get_IrIbopPermission()
        call Set_IrSafetyValvePermission(.false.)      !Get_IrSafetyValvePermission()
        call Set_RemoveFillupHeadPermission(.false.)   !Get_RemoveFillupHeadPermission()
        call Set_RemoveMudBucketPermission(.false.)    !Get_RemoveMudBucketPermission()
        
        
        
        
        
        
        
        
        
!call Set_HookHeight(REAL(70.0, 8))   !Get_HookHeight()
        call Set_IbopHeight(3.0)              !Get_IbopHeight()
!call Set_NearFloorConnection(3.0)    !Get_NearFloorConnection()
        call Set_SafetyValveHeight(3.0)       !Get_SafetyValveHeight()
        call Set_SlackOff(.true.)             !Get_SlackOff()
!call Set_StandRack(0.0)              !Get_StandRack()
!call Set_StringPressure(0.0)         !Get_StringPressure()
!call Set_ZeroStringSpeed(.true.)     !Get_ZeroStringSpeed()
        
        
        
        
        
        
        
        
!Get_ElevatorConnected()
!Get_JointConnection()
!Get_NearMonkeyBoardPosition()
!Get_NearFloorPosition()
!Get_SingleSetInMouseHole()
!Get_SwingCenter()
        
        
        
        
        
        
        call Set_MudBucket(MUD_BUCKET_REMOVE)
!Get_MudBucket()
!MUD_BUCKET_INSTALL
!MUD_BUCKET_REMOVE
        
        call Set_Elevator(ELEVATOR_NEUTRAL)
! Get_Elevator()
!ELEVATOR_NEUTRAL
!ELEVATOR_LATCH_STRING_BEGIN
!ELEVATOR_LATCH_STRING_END
!ELEVATOR_UNLATCH_STRING_BEGIN
!ELEVATOR_UNLATCH_STRING_END
!ELEVATOR_LATCH_STAND_BEGIN
!ELEVATOR_LATCH_STAND_END
!ELEVATOR_UNLATCH_STAND_BEGIN
!ELEVATOR_UNLATCH_STAND_END
!ELEVATOR_LATCH_SINGLE_BEGIN
!ELEVATOR_LATCH_SINGLE_END
!ELEVATOR_UNLATCH_SINGLE_BEGIN
!ELEVATOR_UNLATCH_SINGLE_END
                
        call Set_FillupHead(FILLUP_HEAD_REMOVE)
!Get_FillupHead()
!FILLUP_HEAD_INSTALL
!FILLUP_HEAD_REMOVE
        
        call Set_Ibop(IBOP_REMOVE)
!Get_Ibop()
!IBOP_INSTALL
!IBOP_REMOVE
        
        call Set_Kelly(KELLY_INSTALL)
!Get_Kelly()
!KELLY_NEUTRAL
!KELLY_INSTALL
!KELLY_REMOVE
        
        call Set_MouseHole(MOUSE_HOLE_FILL)
!Get_MouseHole()
!MOUSE_HOLE_NEUTRAL
!MOUSE_HOLE_FILL
!MOUSE_HOLE_EMPTY
        
        call Set_OperationCondition(OPERATION_DRILL)
!Get_OperationCondition()
!OPERATION_DRILL
!OPERATION_TRIP
        
        
        call Set_SafetyValve(SAFETY_VALVE_INSTALL)
!Get_SafetyValve()
!SAFETY_VALVE_INSTALL
!SAFETY_VALVE_REMOVE
        if(data%Configuration%Hoisting%DriveType == TopDrive_DriveType) call Set_SafetyValve(SAFETY_VALVE_REMOVE)
        
        call Set_Slips(SLIPS_SET_END)
!Get_Slips()
        
        call Set_Swing(SWING_WELL_BEGIN)
!Get_Swing()
!SWING_NEUTRAL
!SWING_MOUSE_HOLE_BEGIN
!SWING_MOUSE_HOLE_END
!SWING_RAT_HOLE_BEGIN
!SWING_RAT_HOLE_END
!SWING_WELL_BEGIN
!SWING_WELL_END
        
        call Set_Tong(TONG_NEUTRAL)
!Get_Tong()
!TONG_NEUTRAL
!TONG_BREAKOUT_BEGIN
!TONG_BREAKOUT_END
!TONG_MAKEUP_BEGIN
!TONG_MAKEUP_END
        
        
        call Set_StringUpdate(STRING_UPDATE_NEUTRAL)
!Get_StringUpdate()
!STRING_UPDATE_NEUTRAL
!STRING_UPDATE_ADD_SINGLE
!STRING_UPDATE_ADD_STAND
!STRING_UPDATE_REMOVE_SINGLE
!STRING_UPDATE_REMOVE_STAND
        
        
        
        
        
        
        
        
        
        
        
        
        
        
        
        
        
        
        
        
        
        
        
        
        
        
        call Set_TdsElevatorModes(TDS_ELEVATOR_CONNECTION_NOTHING)
!Get_TdsElevatorModes()
!TDS_ELEVATOR_CONNECTION_NOTHING
!TDS_ELEVATOR_CONNECTION_STRING
!TDS_ELEVATOR_CONNECTION_SINGLE
!TDS_ELEVATOR_CONNECTION_STAND
!TDS_ELEVATOR_LATCH_STRING
!TDS_ELEVATOR_LATCH_SINGLE
!TDS_ELEVATOR_LATCH_STAND
        
        
        
        
        
        call Set_TdsConnectionModes(TDS_CONNECTION_NOTHING)
!Get_TdsConnectionModes()
!TDS_CONNECTION_NOTHING
!TDS_CONNECTION_STRING
!TDS_CONNECTION_SPINE
        
        
        
        
        call Set_SwingTiltPermission(.false.)     !Get_SwingTiltPermission()
        call Set_SwingOffPermission(.false.)      !Get_SwingOffPermission()
        call Set_SwingDrillPermission(.false.)    !Get_SwingDrillPermission()
        call Set_FillupHeadPermission(.false.)    !Get_FillupHeadPermission()
        
        call Set_PowerLed(.false.)
        call Set_IbopLed(.false.)
        
        call Set_TorqueWrenchLed(0)             !Get_TorqueWrenchLed()
        
        
!TdsPower_REV = 1
!TdsPower_OFF = 0
!TdsPower_FWD = -1
!
!TdsMu_TORQ = 1
!TdsMu_SPINE = 0
!TdsMu_DRILL = -1
!
!TdsLinkTilt_TILT = 1
!TdsLinkTilt_OFF = 0
!TdsLinkTilt_DRILL = -1

!TDS IBOP	    TopDriveIbop
!TDS LinkTilt	TopDriveLinkTiltState
!TDS MU	        TopDriveDrillTorqueState
!TDS Power 	    TopDriveTdsPowerState
        
!TopDriveTorqueWrench   PRESSED=True or UNPRESSED=Falses
        
!Get_TdsConnectionPossible()
!Get_TdsStemIn()
        
!call Set_TdsStemJointHeight(v)  !Get_TdsStemJointHeight()
        
        
!Get_SwingDrillPermission()
!Get_SwingOffPermission()
!Get_SwingTiltPermission()
!Get_FillupHeadPermission()
        
        call Set_TdsTong(TDS_TONG_BREAKOUT_END)
!Get_TdsTong()
!TDS_TONG_BREAKOUT_BEGIN
!TDS_TONG_BREAKOUT_END
!TDS_TONG_MAKEUP_BEGIN
!TDS_TONG_MAKEUP_END
        
        
        call Set_TdsBackupClamp(BACKUP_CLAMP_OFF_END)
!Get_TdsBackupClamp()
!BACKUP_CLAMP_OFF_END
!BACKUP_CLAMP_OFF_BEGIN
!BACKUP_CLAMP_FW_BEGIN
!BACKUP_CLAMP_FW_END
        
        
        call Set_TdsSwing(TDS_SWING_OFF_END)
!Get_TdsSwing()
!TDS_SWING_NEUTRAL
!TDS_SWING_OFF_BEGIN
!TDS_SWING_OFF_END
!TDS_SWING_DRILL_BEGIN
!TDS_SWING_DRILL_END
!TDS_SWING_TILT_BEGIN
!TDS_SWING_TILT_END
        
        
        
        
        
        call Set_TdsSpine(TDS_SPINE_NEUTRAL) !TDS_SPINE_DISCONNECT_END
!Get_TdsSpine()
!TDS_SPINE_NEUTRAL
!TDS_SPINE_CONNECT_BEGIN
!TDS_SPINE_CONNECT_END
!TDS_SPINE_DISCONNECT_BEGIN
!TDS_SPINE_DISCONNECT_END
        
    end subroutine
    
! subroutine SetDefaults_WN()
! !DEC$ ATTRIBUTES DLLEXPORT :: SetDefaults_WN
! !DEC$ ATTRIBUTES ALIAS: 'SetDefaults_WN' :: SetDefaults_WN
!     implicit none
!     call SetDefaultValues()
! end subroutine
    
end module COperationScenariosSettings