mahmood19227
/
SimulationCore2
1
0
Fork 0
Código Issues 0 Pull requests 0 Versões 0 Wiki Atividade
Simulation Core
Você não pode selecionar mais de 25 tópicos Os tópicos devem começar com uma letra ou um número, podem incluir traços ('-') e podem ter até 35 caracteres.
54 Commits
2 Branches
134 MiB
 
 
 
 
 
 
Tag: c8c7b4c604
Branches Tags
${ item.name }
Criar branch ${ searchTerm }
de c8c7b4c604
${ noResults }
SimulationCore2/CSharp/OperationScenarios/Notifications/CUnlatchLedNotification.i90

217 linhas
9.1 KiB
Original Anotar Histórico 

  1. # 1 "/mnt/c/Projects/VSIM/SimulationCore2/CSharp/OperationScenarios/Notifications/CUnlatchLedNotification.f90"

  2. module CUnlatchLedNotification

  3.     use OperationScenariosModule

  4.     use UnityModule

  5.     use CLog4

  6.     implicit none

  7.     contains

  8.     

  9.     subroutine Evaluate_UnlatchLed()

  10.         use CCommon

  11.         implicit none

  12.         

  13.         

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

  15. # 16

  16. 

  17. 

  18. 

  19. 

  20. !TOPDRIVE-CODE=47

  21.             if (Get_HookHeight() <= (TL() + NFC() - data%State%OperationScenario%ECG) .and.&

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

  23.                 (Get_Elevator() /= ELEVATOR_LATCH_STRING_BEGIN .and.& 

  24.                  Get_Elevator() /= ELEVATOR_UNLATCH_STRING_BEGIN .and.&

  25.                  Get_Elevator() /= ELEVATOR_LATCH_STAND_BEGIN .and.&

  26.                  Get_Elevator() /= ELEVATOR_UNLATCH_STAND_BEGIN .and.&

  27.                  Get_Elevator() /= ELEVATOR_LATCH_SINGLE_BEGIN .and.&

  28.                  Get_Elevator() /= ELEVATOR_UNLATCH_SINGLE_BEGIN) .and.&

  29.                 Get_ElevatorPickup() == .false. .and.&

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

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

  32.                 Get_Slips() == SLIPS_SET_END) then

  33.             

  34.                 call Set_UnlatchLed(.true.)

  35.                 return

  36.             end if

  37. 

  38. 

  39. 

  40. 

  41. !TOPDRIVE-CODE=48

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

  43.                 GetStandRack() > 80 .and.&

  44.                 Get_JointConnectionPossible() == .false. .and.&

  45.                 (Get_Elevator() /= ELEVATOR_LATCH_STRING_BEGIN .and.& 

  46.                  Get_Elevator() /= ELEVATOR_UNLATCH_STRING_BEGIN .and.&

  47.                  Get_Elevator() /= ELEVATOR_LATCH_STAND_BEGIN .and.&

  48.                  Get_Elevator() /= ELEVATOR_UNLATCH_STAND_BEGIN .and.&

  49.                  Get_Elevator() /= ELEVATOR_LATCH_SINGLE_BEGIN .and.&

  50.                  Get_Elevator() /= ELEVATOR_UNLATCH_SINGLE_BEGIN) .and.&

  51.                 Get_TdsElevatorModes() == TDS_ELEVATOR_CONNECTION_STAND .and.&

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

  53.                 Get_Slips() == SLIPS_SET_END) then

  54.             

  55.                 call Set_UnlatchLed(.true.)

  56.                 return

  57.             end if

  58. 

  59. 

  60. 

  61. 

  62. 

  63. 

  64. !TOPDRIVE-CODE=49

  65.             if ((Get_HookHeight() >= TL() .and. Get_HookHeight() <= (TL() + NFC() + data%State%OperationScenario%SG)) .and.& 

  66.                 (Get_Elevator() /= ELEVATOR_LATCH_STRING_BEGIN .and.& 

  67.                  Get_Elevator() /= ELEVATOR_UNLATCH_STRING_BEGIN .and.&

  68.                  Get_Elevator() /= ELEVATOR_LATCH_STAND_BEGIN .and.&

  69.                  Get_Elevator() /= ELEVATOR_UNLATCH_STAND_BEGIN .and.&

  70.                  Get_Elevator() /= ELEVATOR_LATCH_SINGLE_BEGIN .and.&

  71.                  Get_Elevator() /= ELEVATOR_UNLATCH_SINGLE_BEGIN) .and.&

  72.                 (Get_TdsElevatorModes() == TDS_ELEVATOR_CONNECTION_STRING .or. Get_TdsElevatorModes() == TDS_ELEVATOR_CONNECTION_SINGLE) .and.&

  73.                 Get_TdsSwing() == TDS_SWING_TILT_END .and.&

  74.                 Get_FillMouseHoleLed() == .false.) then

  75.             

  76.                 call Set_UnlatchLed(.true.)

  77.                 return

  78.             end if

  79. 

  80. 

  81. 

  82. 

  83. 

  84. 

  85. 

  86. 

  87.         endif

  88.         

  89.         

  90.         

  91.         

  92.         

  93.         

  94.         

  95.         

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

  97. # 99

  98. 

  99. 

  100. 

  101. 

  102. !OPERATION-CODE=40

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

  104.                 Get_HookHeight() <= (data%State%OperationScenario%HL + Get_NearFloorConnection() - data%State%OperationScenario%ECG) .and.&

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

  106.                 (Get_Elevator() /= ELEVATOR_LATCH_STRING_BEGIN .and.& 

  107.                  Get_Elevator() /= ELEVATOR_UNLATCH_STRING_BEGIN .and.&

  108.                  Get_Elevator() /= ELEVATOR_LATCH_STAND_BEGIN .and.&

  109.                  Get_Elevator() /= ELEVATOR_UNLATCH_STAND_BEGIN .and.&

  110.                  Get_Elevator() /= ELEVATOR_LATCH_SINGLE_BEGIN .and.&

  111.                  Get_Elevator() /= ELEVATOR_UNLATCH_SINGLE_BEGIN) .and.&

  112. !Get_Elevator() == ELEVATOR_LATCH_STRING_END .and.&

  113.                 (Get_ElevatorConnection() == ELEVATOR_LATCH_STRING) .and.&

  114. !(Get_ElevatorConnection() == ELEVATOR_CONNECTION_STRING .or. Get_ElevatorConnection() == ELEVATOR_LATCH_STRING) .and.&

  115. !Get_LatchLed() == .false.

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

  117.                 Get_Slips() == SLIPS_SET_END ) then

  118.             

  119.                 call Set_UnlatchLed(.true.)

  120. !call Set_LatchLed(.false.)

  121.                 return

  122.             end if

  123.             

  124.             

  125.             

  126.             

  127.             

  128.             

  129.             

  130.             

  131. !OPERATION-CODE=41

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

  133.                 Get_HookHeight() >= (data%State%OperationScenario%HL + data%State%OperationScenario%SL - data%State%OperationScenario%ECG + Get_NearFloorConnection()) .and. Get_HookHeight() <= (data%State%OperationScenario%HL + data%State%OperationScenario%SL - data%State%OperationScenario%ECG + Get_NearFloorConnection() + data%State%OperationScenario%LG) .and.&

  134. !Get_HookHeight() >= (HL + Get_NearFloorConnection() + SL + RE) .and. Get_HookHeight() <= (HL + Get_NearFloorConnection() + SL + LG) .and.&

  135.                 (Get_Elevator() /= ELEVATOR_LATCH_STRING_BEGIN .and.& 

  136.                  Get_Elevator() /= ELEVATOR_UNLATCH_STRING_BEGIN .and.&

  137.                  Get_Elevator() /= ELEVATOR_LATCH_STAND_BEGIN .and.&

  138.                  Get_Elevator() /= ELEVATOR_UNLATCH_STAND_BEGIN .and.&

  139.                  Get_Elevator() /= ELEVATOR_LATCH_SINGLE_BEGIN .and.&

  140.                  Get_Elevator() /= ELEVATOR_UNLATCH_SINGLE_BEGIN) .and.&

  141.                 Get_StandRack() < 80 .and.&

  142.                 Get_JointConnectionPossible() == .false. .and.&

  143. !Get_Elevator() == ELEVATOR_UNLATCH_STAND_END .and.&

  144. !Get_LatchLed() == .false.

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

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

  147.                 Get_Slips() == SLIPS_SET_END) then

  148.             

  149.                 call Set_UnlatchLed(.true.)

  150. !call Set_LatchLed(.false.)

  151.                 return

  152.             end if

  153.             

  154.             

  155.             

  156.             

  157.             

  158. !OPERATION-CODE=42

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

  160.                 Get_HookHeight() >= data%State%OperationScenario%HL .and. Get_HookHeight() <= (data%State%OperationScenario%HL + Get_NearFloorConnection() + data%State%OperationScenario%SG) .and.&

  161.                 (Get_Elevator() /= ELEVATOR_LATCH_STRING_BEGIN .and.& 

  162.                  Get_Elevator() /= ELEVATOR_UNLATCH_STRING_BEGIN .and.&

  163.                  Get_Elevator() /= ELEVATOR_LATCH_STAND_BEGIN .and.&

  164.                  Get_Elevator() /= ELEVATOR_UNLATCH_STAND_BEGIN .and.&

  165.                  Get_Elevator() /= ELEVATOR_LATCH_SINGLE_BEGIN .and.&

  166.                  Get_Elevator() /= ELEVATOR_UNLATCH_SINGLE_BEGIN) .and.&

  167. !Get_Elevator() == ELEVATOR_UNLATCH_SINGLE_END .and.&

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

  169. !Get_LatchLed() == .false. .and.&

  170.                 Get_FillMouseHoleLed() == .false.) then

  171.             

  172.                 call Set_UnlatchLed(.true.)

  173. !call Set_LatchLed(.false.)

  174.                 return

  175.             end if

  176.             

  177.             

  178.             

  179.             

  180.             

  181. !call Log_4('OPERATION-CODE=43-OPERATION_DRILL=', Get_OperationCondition() == OPERATION_DRILL)

  182. !call Log_4('OPERATION-CODE=43-Get_HookHeight=', Get_HookHeight() >= 27.41)

  183. !call Log_4('OPERATION-CODE=43-Get_Swing()=', Get_Swing() == SWING_RAT_HOLE_END)

  184. !call Log_4('OPERATION-CODE=43-Get_LatchLed()=', Get_LatchLed() == .false.)

  185. !OPERATION-CODE=43

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

  187.                 Get_HookHeight() >= 27.41 .and.&

  188. !Get_LatchLed() == .false.

  189.                 Get_Swing() == SWING_RAT_HOLE_END) then

  190. !call Log_4('OPERATION-CODE=43-call Set_UnlatchLed(.true.)')

  191.                 call Set_UnlatchLed(.true.)

  192. !call Set_LatchLed(.false.)

  193.                 return

  194.             end if

  195.             

  196.             

  197.         

  198.             call Set_UnlatchLed(.false.)

  199. 

  200.         endif

  201.     end subroutine

  202.     

  203. ! subroutine Subscribe_UnlatchLed()

  204. !     implicit none

  205.         

  206. !     !**call data%State%unitySignals%OnOperationConditionChange%Add(Evaluate_UnlatchLed)

  207. !     ! call softwareInputs%OnHookHeightChange%Add(Evaluate_UnlatchLed)

  208. !     ! call softwareInputs%OnStandRackChanged%Add(Evaluate_UnlatchLed)

  209. !     call data%State%OperationScenario%OnElevatorConnectionChange%Add(Evaluate_UnlatchLed)

  210. !     !**call data%State%unitySignals%OnSwingChange%Add(Evaluate_UnlatchLed)

  211. !     !**call data%State%unitySignals%OnSlipsChange%Add(Evaluate_UnlatchLed)

  212. !     !**call data%State%notifications%OnLatchLedChange%Add(Evaluate_UnlatchLed)

  213. !     !**call data%State%notifications%OnFillMouseHoleLedChange%Add(Evaluate_UnlatchLed)

  214. ! end subroutine

  215.     

  216. end module CUnlatchLedNotification