SimulationCore2/CSharp/OperationScenarios/Common/COperationScenariosVariables.f90

module COperationScenariosVariables
    
    use CKellyConnectionEnumVariables
    use CElevatorConnectionEnumVariables
        
    use CCloseKellyCockLedNotificationVariables
    use CCloseSafetyValveLedNotificationVariables
    use CFillMouseHoleLedNotificationVariables
    use CIrIBopLedNotificationVariables
    use CIrSafetyValveLedNotificationVariables
    use CLatchLedNotificationVariables
    use COpenKellyCockLedNotificationVariables        
    use COpenSafetyValveLedNotificationVariables
    use CSlipsNotificationVariables
    use CSwingLedNotificationVariables
    use CTongNotificationVariables
    use CUnlatchLedNotificationVariables
        
    use CInstallFillupHeadPermissionVariables
    use CInstallMudBucketPermissionVariables
    use CIrIbopPermissionVariables
    use CIrSafetyValvePermissionVariables
    use CRemoveFillupHeadPermissionVariables
    use CRemoveMudBucketPermissionVariables
        
    use CHookHeight
    use CIbopHeight
    use CNearFloorConnection
    use CSafetyValveHeight
    use CSlackOff
    use CStandRack
    use CStringPressure
    use CZeroStringSpeed
    
    use CStringUpdateVariables   
    
    use CUnityInputs
    !, only: Get_OutOfMouseHole,&
    !                        Get_Unlatch,&
    !                        Get_Latch,&
    !                        Get_SlipsUnSet,&
    !                        Get_SlipsSet,&
    !                        Get_BreakupTong,&
    !                        Get_MakeupTong,&
    !                        Get_NewHookHeight,&
    !                        Get_ElevatorConnectionPossible,&
    !                        Get_JointConnectionPossible,&
    !                        Get_NearMonkeyBoardPosition,&
    !                        Get_SingleSetInMouseHole,&
    !                        Get_SwingCenter
    use CUnityOutputs, only: GetRotaryRpm
        
    use CBucketEnumVariables
    use CElevatorEnumVariables
    use CHeadEnumVariables
    use CIbopEnumVariables
    use CKellyEnumVariables
    use CMouseHoleEnumVariables
    use COperationConditionEnumVariables
    use CSafetyValveEnumVariables
    use CSlipsEnumVariables
    use CSwingEnumVariables
    use CTongEnumVariables
    
    use CFillupHeadPermissionVariables
    use CSwingDrillPermissionVariables
    use CSwingOffPermissionVariables
    use CSwingTiltPermissionVariables
    use CTdsStemJointHeight
    use CTdsConnectionModesEnumVariables
    use CTdsElevatorModesEnumVariables
    use CTdsSpineEnumVariables
    use CTdsSwingEnumVariables
    use CTdsTongEnumVariables
    use CTdsBackupClampVariables
    
    use CHoistingVariables
    use CTopDrivePanelVariables
    
    use CTdsPowerLedNotificationVariables
    use CTdsIbopLedNotificationVariables
    
    use CTdsTorqueWrenchLedNotificationVariables
    
    implicit none
    public
    
    real :: HKL = 63.76     ! Hook And Kelly Length
    real :: HL  = 17.81     ! Hook Length
    real :: PL  = 30.0      ! Pipe Length
    real :: SL  = 90.0      ! Stand Length
    real :: LG  = 8.0       ! Limit Gap
    real :: SG  = 3.0       ! Slips Gap
    real :: TG  = 4.0       ! Tong Gap
    real :: RE  = 3.0       ! Release
    real :: ECG = 2.3       ! Elevator Connection Gap
    
    contains
    
    real(8) function TJH()
        use TD_DrillStemComponents
	    implicit none
	    TJH = TD_TopJointHeight
    end function
    
    real function TL()
	    implicit none
	    TL = 26.97
    end function
    
    real function NFC()
	    implicit none
	    NFC = Get_NearFloorConnection()
    end function
    
end module COperationScenariosVariables