mahmood19227
/
SimulationCore2
1
0
Fork 0
Code Issues 0 Pull Requests 0 Releases 0 Wiki Activity
Simulation Core
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
69 Commits
2 Branches
134 MiB
 
 
 
 
 
 
Branch: master
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'master'
${ noResults }
SimulationCore2/CSharp/OperationScenarios/Notifications/CTongNotification.i90

208 lines
10 KiB
Raw Permalink Blame History 

  1. # 1 "/home/admin/SimulationCore2/CSharp/OperationScenarios/Notifications/CTongNotification.f90"

  2. module CTongNotification

  3.     use OperationScenariosModule

  4.     implicit none

  5.     contains

  6.     

  7.     subroutine Evaluate_TongNotification()

  8.         implicit none

  9.         

  10.         if (data%Configuration%Hoisting%DriveType == TopDrive_DriveType) then

  11. ! if(print_log) print*, 'Evaluate_TongNotification=TopDrive'

  12. 

  13. !TOPDRIVE-CODE=50

  14.             if (((Get_HookHeight() >= (TL() + data%State%OperationScenario%PL - data%State%OperationScenario%ECG + NFC() - data%State%OperationScenario%RE) .and. Get_HookHeight() <= (TL() + NFC() + data%State%OperationScenario%PL - data%State%OperationScenario%ECG + data%State%OperationScenario%TG)) .or.&

  15.                  (Get_HookHeight() >= (TL() + data%State%OperationScenario%SL - data%State%OperationScenario%ECG + NFC() - data%State%OperationScenario%RE) .and. Get_HookHeight() <= (TL() + NFC() + data%State%OperationScenario%SL - data%State%OperationScenario%ECG + data%State%OperationScenario%TG))).and.& 

  16.                 GetRotaryRpm() == 0.0d0 .and.&

  17.                 Get_NearFloorConnection() >= 3.0 .and. Get_NearFloorConnection() <= 6.0 .and.&

  18.                 ((Get_Tong() /= TONG_BREAKOUT_BEGIN .and.& 

  19.                  Get_Tong() /= TONG_MAKEUP_BEGIN) .or.& 

  20.                  Get_Tong() == TONG_NEUTRAL ) .and.&

  21.                 (Get_TdsElevatorModes() == TDS_ELEVATOR_LATCH_STRING .or. Get_TdsElevatorModes() == TDS_ELEVATOR_CONNECTION_STRING) .and.&

  22.                 Get_TdsSwing() == TDS_SWING_OFF_END .and.&

  23.                 Get_Slips() == SLIPS_SET_END) then

  24.             

  25.                 call Set_TongNotification(.true.)

  26.                 return

  27.             end if

  28. 

  29. !TOPDRIVE-CODE=51

  30.             if (GetRotaryRpm() == 0.0d0 .and.&

  31.                     Get_JointConnectionPossible() .and.&

  32.                     (Get_Tong() /= TONG_BREAKOUT_BEGIN .and.& 

  33.                     Get_Tong() /= TONG_MAKEUP_BEGIN) .and.&

  34.                     (Get_TdsElevatorModes() == TDS_ELEVATOR_LATCH_SINGLE .or. Get_TdsElevatorModes() == TDS_ELEVATOR_CONNECTION_SINGLE) .and.&

  35.                     Get_TdsSwing() == TDS_SWING_OFF_END .and.&

  36.                     Get_Slips() == SLIPS_SET_END) then        

  37.                 call Set_TongNotification(.true.)

  38.                 return

  39.             end if

  40. 

  41. !TOPDRIVE-CODE=52

  42.             if (GetRotaryRpm() == 0.0d0 .and.&

  43.                     Get_JointConnectionPossible() .and.&

  44.                     (Get_Tong() /= TONG_BREAKOUT_BEGIN .and.& 

  45.                     Get_Tong() /= TONG_MAKEUP_BEGIN) .and.&

  46.                     (Get_TdsElevatorModes() == TDS_ELEVATOR_LATCH_STAND .or. Get_TdsElevatorModes() == TDS_ELEVATOR_CONNECTION_STAND) .and.&

  47.                     Get_TdsSwing() == TDS_SWING_OFF_END .and.&

  48.                     Get_Slips() == SLIPS_SET_END) then            

  49.                 call Set_TongNotification(.true.)

  50.                 return

  51.             end if

  52.         endif

  53.         

  54.         

  55.         if (data%Configuration%Hoisting%DriveType == Kelly_DriveType) then

  56. ! if(print_log) print*, 'Evaluate_TongNotification=Kelly'

  57. !OPERATION-CODE=44

  58.             if (Get_OperationCondition() == OPERATION_DRILL .and.&

  59. !((Get_HookHeight() >= 65.0 .and. Get_HookHeight() <= 70.0) .or.&

  60. ! (Get_HookHeight() >= 96.0 .and. Get_HookHeight() <= 101.0)).and.&

  61.                 ((Get_HookHeight() >= (data%State%OperationScenario%HKL + Get_NearFloorConnection() - data%State%OperationScenario%RE) .and. Get_HookHeight() <= (data%State%OperationScenario%HKL + Get_NearFloorConnection() + data%State%OperationScenario%TG)) .or.&

  62.                  (Get_HookHeight() >= (data%State%OperationScenario%HKL + Get_NearFloorConnection() + data%State%OperationScenario%PL -data%State%OperationScenario%RE) .and. Get_HookHeight() <= (data%State%OperationScenario%HKL + Get_NearFloorConnection() + data%State%OperationScenario%TG + data%State%OperationScenario%PL))).and.&

  63.                 GetRotaryRpm() == 0.0d0 .and.&

  64.                 Get_KellyConnection() == KELLY_CONNECTION_STRING .and.&

  65.                 Get_NearFloorConnection() >= 3.0 .and. Get_NearFloorConnection() <= 6.0 .and.&

  66.                 Get_Swing() == SWING_WELL_END .and.&

  67.                 (Get_Tong() /= TONG_BREAKOUT_BEGIN .and.& 

  68.                  Get_Tong() /= TONG_MAKEUP_BEGIN) .and.&

  69.                 Get_Slips() == SLIPS_SET_END) then

  70.             

  71.                 call Set_TongNotification(.true.)

  72.                 return

  73.             end if

  74.             

  75. !OPERATION-CODE=45

  76.             if (Get_OperationCondition() == OPERATION_DRILL .and.&

  77.                 Get_HookHeight() >= 66 .and. Get_HookHeight() <= 69 .and.&

  78.                 Get_KellyConnection() == KELLY_CONNECTION_SINGLE .and.&

  79.                 (Get_Tong() /= TONG_BREAKOUT_BEGIN .and.& 

  80.                  Get_Tong() /= TONG_MAKEUP_BEGIN) .and.&

  81.                 Get_Swing() == SWING_MOUSE_HOLE_END) then

  82.             

  83.                 call Set_TongNotification(.true.)

  84.                 return

  85.             end if

  86.             

  87. !OPERATION-CODE=46

  88.             if (Get_OperationCondition() == OPERATION_DRILL .and.&

  89.                 Get_JointConnectionPossible() .and.&

  90.                 Get_KellyConnection() == KELLY_CONNECTION_NOTHING .and.&

  91.                 (Get_Tong() /= TONG_BREAKOUT_BEGIN .and.& 

  92.                  Get_Tong() /= TONG_MAKEUP_BEGIN) .and.&

  93.                 Get_Swing() == SWING_MOUSE_HOLE_END) then

  94.             

  95.                 call Set_TongNotification(.true.)

  96.                 return

  97.             end if

  98.             

  99. !OPERATION-CODE=47

  100.             if (Get_OperationCondition() == OPERATION_DRILL .and.&

  101.                 GetRotaryRpm() == 0.0d0 .and.&

  102.                 Get_JointConnectionPossible() .and.&

  103.                 Get_KellyConnection() == KELLY_CONNECTION_NOTHING .and.&

  104.                 (Get_Tong() /= TONG_BREAKOUT_BEGIN .and.& 

  105.                  Get_Tong() /= TONG_MAKEUP_BEGIN) .and.&

  106.                 Get_Swing() == SWING_WELL_END .and.& 

  107.                 Get_Slips() == SLIPS_SET_END) then

  108.             

  109.                 call Set_TongNotification(.true.)

  110.                 return

  111.             end if            

  112.             

  113. !OPERATION-CODE=48

  114.             if (Get_OperationCondition() == OPERATION_DRILL .and.&

  115.                 GetRotaryRpm() == 0.0d0 .and.&

  116.                 Get_JointConnectionPossible() .and.&

  117.                 Get_KellyConnection() == KELLY_CONNECTION_SINGLE .and.&

  118.                 (Get_Tong() /= TONG_BREAKOUT_BEGIN .and.& 

  119.                  Get_Tong() /= TONG_MAKEUP_BEGIN) .and.&

  120.                 Get_Swing() == SWING_WELL_END .and.& 

  121.                 Get_Slips() == SLIPS_SET_END) then

  122.             

  123.                 call Set_TongNotification(.true.)

  124.                 return

  125.             end if 

  126.                         

  127. !OPERATION-CODE=50

  128.             if (Get_OperationCondition() == OPERATION_TRIP .and.&

  129.                 ((Get_HookHeight() >= (data%State%OperationScenario%HL + data%State%OperationScenario%PL - data%State%OperationScenario%ECG + Get_NearFloorConnection() - data%State%OperationScenario%RE) .and. Get_HookHeight() <= (data%State%OperationScenario%HL + Get_NearFloorConnection() + data%State%OperationScenario%PL - data%State%OperationScenario%ECG + data%State%OperationScenario%TG)) .or.&

  130.                  (Get_HookHeight() >= (data%State%OperationScenario%HL + data%State%OperationScenario%SL - data%State%OperationScenario%ECG + Get_NearFloorConnection() - data%State%OperationScenario%RE) .and. Get_HookHeight() <= (data%State%OperationScenario%HL + Get_NearFloorConnection() + data%State%OperationScenario%TG - data%State%OperationScenario%ECG + data%State%OperationScenario%SL))).and.&

  131.                 Get_NearFloorConnection() >= 3.0 .and. Get_NearFloorConnection() <= 6.0 .and.&

  132.                 GetRotaryRpm() == 0.0d0 .and.&

  133.                 Get_ElevatorConnection() == ELEVATOR_CONNECTION_STRING .and.&

  134.                 (Get_Tong() /= TONG_BREAKOUT_BEGIN .and.& 

  135.                  Get_Tong() /= TONG_MAKEUP_BEGIN) .and.&

  136.                 Get_Swing() == SWING_WELL_END .and.& 

  137.                 Get_Slips() == SLIPS_SET_END) then

  138.             

  139.                 call Set_TongNotification(.true.)

  140.                 return

  141.             end if

  142.             

  143.             

  144.             

  145.             

  146.             

  147. !OPERATION-CODE=51

  148.             if (Get_OperationCondition() == OPERATION_TRIP .and.&

  149.                 GetRotaryRpm() == 0.0d0 .and.&

  150.                 Get_JointConnectionPossible() .and.&

  151.                 Get_ElevatorConnection() == ELEVATOR_CONNECTION_SINGLE .and.&

  152.                 (Get_Tong() /= TONG_BREAKOUT_BEGIN .and.& 

  153.                  Get_Tong() /= TONG_MAKEUP_BEGIN) .and.&

  154.                 Get_Swing() == SWING_WELL_END .and.&

  155.                 Get_Slips() == SLIPS_SET_END) then

  156.             

  157.                 call Set_TongNotification(.true.)

  158.                 return

  159.             end if

  160.                         

  161. !OPERATION-CODE=52

  162.             if (Get_OperationCondition() == OPERATION_TRIP .and.&

  163.                 GetRotaryRpm() == 0.0d0 .and.&

  164.                 Get_JointConnectionPossible() .and.&

  165.                 Get_ElevatorConnection() == ELEVATOR_CONNECTION_STAND .and.&

  166.                 (Get_Tong() /= TONG_BREAKOUT_BEGIN .and.& 

  167.                  Get_Tong() /= TONG_MAKEUP_BEGIN) .and.&

  168.                 Get_Swing() == SWING_WELL_END .and.&

  169.                 Get_Slips() == SLIPS_SET_END) then

  170.             

  171.                 call Set_TongNotification(.true.)

  172.                 return

  173.             end if

  174.         

  175. !if (Get_OperationCondition() == OPERATION_DRILL .and.&

  176. !    Get_KellyConnection() == KELLY_CONNECTION_STRING .and.&

  177. !    Get_Swing() == SWING_WELL_END .and.&

  178. !    Get_Slips() == SLIPS_SET_END) then

  179. !

  180. !    call Set_TongNotification(.true.)

  181. !    return

  182. !end if

  183. !

  184.             call Set_TongNotification(.false.)

  185.         endif

  186.         

  187.     call Set_TongNotification(.true.)

  188.         

  189.     end subroutine

  190.     

  191. ! subroutine Subscribe_TongNotification()

  192. !     implicit none

  193.         

  194. !     call data%State%unitySignals%OnOperationConditionChange%Add(Evaluate_TongNotification)

  195. !     ! call softwareInputs%OnHookHeightChange%Add(Evaluate_TongNotification)

  196. !     call data%Equipments%UnityInputs%OnJointConnectionPossibleChange%Add(Evaluate_TongNotification)

  197. !     call data%Equipments%UnityInputs%OnSingleSetInMouseHoleChange%Add(Evaluate_TongNotification)

  198. !     call data%State%OperationScenario%OnElevatorConnectionChange%Add(Evaluate_TongNotification)

  199. !     call KellyConnectionEnum%OnKellyConnectionChange%Add(Evaluate_TongNotification)

  200. !     call data%State%unitySignals%OnSwingChange%Add(Evaluate_TongNotification)

  201. !     call data%State%unitySignals%OnSlipsChange%Add(Evaluate_TongNotification)

  202.         

  203. ! end subroutine

  204.     

  205.     

  206.     

  207. end module CTongNotification