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
    type::OperationScenarioType
        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

        !moved from enum/CElevatorConnectionEnum
        integer :: ElevatorConnection = 0
        type(VoidEventHandlerCollection) :: OnElevatorConnectionChange

        !moved from enum/CKellyConnectionEnum
    end type OperationScenarioType
    type(OperationScenarioType)::OperationScenario



    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
    

    subroutine Set_ElevatorConnection(v)
        implicit none
        integer , intent(in) :: v
        #ifdef ExcludeExtraChanges
            if(OperationScenario%ElevatorConnection == v) return
        #endif
        OperationScenario%ElevatorConnection = v
        
        #ifdef deb
            print*, 'OperationScenario%ElevatorConnection=', OperationScenario%ElevatorConnection
        #endif
        call OperationScenario%OnElevatorConnectionChange%RunAll()
    end subroutine
    
    integer function Get_ElevatorConnection()
        implicit none
        Get_ElevatorConnection = OperationScenario%ElevatorConnection
    end function

end module COperationScenariosVariables