|
- module CInstallFillupHeadPermission
- use COperationScenariosVariables
- implicit none
-
- contains
-
- subroutine Evaluate_InstallFillupHeadPermission()
- use TD_DrillStemComponents
- implicit none
-
-
-
- if (DriveType == TopDrive_DriveType) then
- #ifdef OST
- print*, 'Evaluate_InstallFillupHeadPermission=TopDrive'
- #endif
- endif
-
-
-
-
-
-
-
-
-
- if (DriveType == Kelly_DriveType) then
- #ifdef OST
- print*, 'Evaluate_InstallFillupHeadPermission=Kelly'
- #endif
-
-
- !!OPERATION-CODE=69
- !if (Get_OperationCondition() == OPERATION_DRILL .and.&
- ! Get_NearFloorConnection() >= 3.0 .and. Get_NearFloorConnection() <= 6.0 .and.&
- ! Get_JointConnectionPossible() == .false. .and.&
- ! Get_KellyConnection() /= KELLY_CONNECTION_STRING .and.&
- ! Get_Slips() == SLIPS_SET_END) then
- !
- ! call Set_InstallFillupHeadPermission(.true.)
- ! return
- !end if
-
-
-
- !OPERATION-CODE=70
- if (Get_OperationCondition() == OPERATION_TRIP .and.&
- TD_TopJointHeight >= 3.0 .and. TD_TopJointHeight <= 9.0 .and.&
- Get_JointConnectionPossible() == .false. .and.&
- !Get_ElevatorConnectionPossible() == .false. .and.&
- !Get_ElevatorConnection() /= ELEVATOR_CONNECTION_STRING .and.&
- Get_ElevatorConnection() == ELEVATOR_CONNECTION_NOTHING) then
-
- call Set_InstallFillupHeadPermission(.true.)
- return
- end if
-
-
-
-
- call Set_InstallFillupHeadPermission(.false.)
-
- endif
-
-
-
-
-
- end subroutine
-
- subroutine Subscribe_InstallFillupHeadPermission()
- implicit none
- ! imp me...
- end subroutine
-
- end module CInstallFillupHeadPermission
|
