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.
66 Commits
2 Branches
134 MiB
 
 
 
 
 
 
Tree: 9f0233da87
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '9f0233da87'
${ noResults }
SimulationCore2/CSharp/OperationScenarios/Notifications/CTongNotification.i90

287 lines
11 KiB
Raw 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.         

  11.         

  12.         

  13.         

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

  15. # 16

  16. 

  17. 

  18. 

  19. 

  20.             

  21. !TOPDRIVE-CODE=50

  22.             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.&

  23.                  (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.& 

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

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

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

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

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

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

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

  31.                 Get_Slips() == SLIPS_SET_END) then

  32.             

  33.                 call Set_TongNotification(.true.)

  34.                 return

  35.             end if

  36. 

  37. 

  38. 

  39. 

  40. 

  41. !TOPDRIVE-CODE=51

  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_SINGLE .or. Get_TdsElevatorModes() == TDS_ELEVATOR_CONNECTION_SINGLE) .and.&

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

  48.                 Get_Slips() == SLIPS_SET_END) then

  49.             

  50.                 call Set_TongNotification(.true.)

  51.                 return

  52.             end if

  53. 

  54.                 

  55.                 

  56.                 

  57.                 

  58.                 

  59.                 

  60. 

  61. !TOPDRIVE-CODE=52

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

  63.                 Get_JointConnectionPossible() .and.&

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

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

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

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

  68.                 Get_Slips() == SLIPS_SET_END) then

  69.             

  70.                 call Set_TongNotification(.true.)

  71.                 return

  72.             end if

  73. 

  74. 

  75. 

  76. 

  77. 

  78.         endif

  79.         

  80.         

  81.         

  82.         

  83.         

  84.         

  85.         

  86.         

  87.         

  88.         

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

  90. # 92

  91. 

  92. 

  93. !OPERATION-CODE=44

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

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

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

  97.                 ((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.&

  98.                  (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.&

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

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

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

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

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

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

  105.                 Get_Slips() == SLIPS_SET_END) then

  106.             

  107.                 call Set_TongNotification(.true.)

  108.                 return

  109.             end if

  110.             

  111.             

  112.             

  113.             

  114. !OPERATION-CODE=45

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

  116.                 Get_HookHeight() >= 66 .and. Get_HookHeight() <= 69 .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_MOUSE_HOLE_END) then

  121.             

  122.                 call Set_TongNotification(.true.)

  123.                 return

  124.             end if

  125.             

  126.             

  127.             

  128. !OPERATION-CODE=46

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

  130.                 Get_JointConnectionPossible() .and.&

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

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

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

  134.                 Get_Swing() == SWING_MOUSE_HOLE_END) then

  135.             

  136.                 call Set_TongNotification(.true.)

  137.                 return

  138.             end if

  139.             

  140.             

  141.             

  142.             

  143. !OPERATION-CODE=47

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

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

  146.                 Get_JointConnectionPossible() .and.&

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

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

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

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

  151.                 Get_Slips() == SLIPS_SET_END) then

  152.             

  153.                 call Set_TongNotification(.true.)

  154.                 return

  155.             end if

  156.             

  157.             

  158.             

  159.             

  160.             

  161. !OPERATION-CODE=48

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

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

  164.                 Get_JointConnectionPossible() .and.&

  165.                 Get_KellyConnection() == KELLY_CONNECTION_SINGLE .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.             

  176.             

  177.             

  178.             

  179.             

  180.             

  181.             

  182.      

  183.         

  184.         

  185.             

  186.             

  187.             

  188.             

  189. !OPERATION-CODE=50

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

  191.                 ((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.&

  192.                  (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.&

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

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

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

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

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

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

  199.                 Get_Slips() == SLIPS_SET_END) then

  200.             

  201.                 call Set_TongNotification(.true.)

  202.                 return

  203.             end if

  204.             

  205.             

  206.             

  207.             

  208.             

  209. !OPERATION-CODE=51

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

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

  212.                 Get_JointConnectionPossible() .and.&

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

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

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

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

  217.                 Get_Slips() == SLIPS_SET_END) then

  218.             

  219.                 call Set_TongNotification(.true.)

  220.                 return

  221.             end if

  222.             

  223.             

  224.             

  225.             

  226.             

  227. !OPERATION-CODE=52

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

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

  230.                 Get_JointConnectionPossible() .and.&

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

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

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

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

  235.                 Get_Slips() == SLIPS_SET_END) then

  236.             

  237.                 call Set_TongNotification(.true.)

  238.                 return

  239.             end if

  240.             

  241.             

  242.             

  243.         

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

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

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

  247. !    Get_Slips() == SLIPS_SET_END) then

  248. !

  249. !    call Set_TongNotification(.true.)

  250. !    return

  251. !end if

  252. !

  253.             

  254.             

  255.             call Set_TongNotification(.false.)

  256. 

  257.         endif

  258.         

  259.         

  260.         

  261.         

  262.         

  263.         

  264.         

  265.         

  266.             

  267.             

  268.     end subroutine

  269.     

  270. ! subroutine Subscribe_TongNotification()

  271. !     implicit none

  272.         

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

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

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

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

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

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

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

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

  281.         

  282. ! end subroutine

  283.     

  284.     

  285.     

  286. end module CTongNotification