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.
58 Commits
2 Branches
134 MiB
 
 
 
 
 
 
Tree: d3fe89fe45
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'd3fe89fe45'
${ noResults }
SimulationCore2/CSharp/OperationScenarios/Enums/CTdsElevatorModesEnum.f90

333 lines
12 KiB
Raw Blame History 

  1. module CTdsElevatorModesEnum

  2.     use OperationScenariosModule

  3.     use UnityModule

  4.     implicit none

  5.     contains

  6.     

  7.     subroutine Evaluate_TdsElevatorModes()

  8.         use CCommon, only: SetStandRack

  9.         implicit none

  10.         

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

  12. #ifdef OST

  13.             print*, 'Evaluate_TdsElevatorModes=TopDrive'

  14. #endif

  15. 

  16. 

  17.             !TOPDRIVE-CODE=7

  18.             if (Get_Elevator() == ELEVATOR_LATCH_STRING_END .and.&

  19.                 Get_TdsElevatorModes() == TDS_ELEVATOR_CONNECTION_NOTHING .and.&

  20.                 Get_TdsSwing() == TDS_SWING_OFF_END ) then

  21.             

  22.                 call Set_TdsElevatorModes(TDS_ELEVATOR_LATCH_STRING)

  23.                 call Set_Elevator(ELEVATOR_NEUTRAL)

  24.                 return

  25.             end if

  26.                 

  27.                 

  28.                 

  29.             !TOPDRIVE-CODE=8

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

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

  32.                 Get_TdsElevatorModes() == TDS_ELEVATOR_CONNECTION_STRING) then

  33.             

  34.                 call Set_TdsElevatorModes(TDS_ELEVATOR_LATCH_STRING)

  35.                 return

  36.             end if

  37. 

  38. 

  39.                 

  40.             !TOPDRIVE-CODE=9

  41.             if (Get_ElevatorPickup() .and.&

  42.                 Get_TdsElevatorModes() == TDS_ELEVATOR_LATCH_STRING) then

  43.             

  44.                 call Set_TdsElevatorModes(TDS_ELEVATOR_CONNECTION_STRING)

  45.                 return

  46.             end if

  47.                 

  48.                 

  49.             !TOPDRIVE-CODE=10

  50.             if (Get_Elevator() == ELEVATOR_UNLATCH_STRING_END .and.&

  51.                 Get_TdsElevatorModes() == TDS_ELEVATOR_LATCH_STRING) then

  52.             

  53.                 call Set_TdsElevatorModes(TDS_ELEVATOR_CONNECTION_NOTHING)

  54.                 call Set_Elevator(ELEVATOR_NEUTRAL)

  55.                 return

  56.             end if

  57.                 

  58.                 

  59.                 

  60.                 

  61.             !TOPDRIVE-CODE=11

  62.             if (Get_Elevator() == ELEVATOR_UNLATCH_STRING_END .and.&

  63.                 Get_TdsElevatorModes() == TDS_ELEVATOR_LATCH_STRING .and.&

  64.                 Get_TdsConnectionModes() == TDS_CONNECTION_STRING) then

  65.             

  66.                 call Set_TdsElevatorModes(TDS_ELEVATOR_CONNECTION_NOTHING)

  67.                 call Set_Elevator(ELEVATOR_NEUTRAL)

  68.                 return

  69.             end if

  70.                 

  71.                 

  72.                 

  73.                 

  74.                 

  75.             !TOPDRIVE-CODE=12

  76.             if (Get_Elevator() == ELEVATOR_LATCH_STAND_END .and.&

  77.                 Get_TdsElevatorModes() == TDS_ELEVATOR_CONNECTION_NOTHING) then

  78.             

  79.                 call Set_TdsElevatorModes(TDS_ELEVATOR_CONNECTION_STAND)

  80.                 call Set_Elevator(ELEVATOR_NEUTRAL)

  81.                 call SetStandRack(Get_StandRack() - 1)

  82.                 return

  83.             end if

  84.                 

  85.                 

  86.                 

  87.                 

  88.             !TOPDRIVE-CODE=13

  89.             if (Get_Elevator() == ELEVATOR_UNLATCH_STAND_END .and.&

  90.                 Get_TdsElevatorModes() == TDS_ELEVATOR_CONNECTION_STAND) then

  91.             

  92.                 call Set_TdsElevatorModes(TDS_ELEVATOR_CONNECTION_NOTHING)

  93.                 call Set_Elevator(ELEVATOR_NEUTRAL)

  94.                 call SetStandRack(Get_StandRack() + 1)

  95.                 return

  96.             end if

  97.                 

  98.                 

  99.                 

  100.                 

  101.             !TOPDRIVE-CODE=14

  102.             if (Get_Elevator() == ELEVATOR_LATCH_SINGLE_END .and.&

  103.                 Get_TdsElevatorModes() == TDS_ELEVATOR_CONNECTION_NOTHING .and.&

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

  105.                 Get_FillMouseHoleLed()) then

  106.             

  107.                 call Set_TdsElevatorModes(TDS_ELEVATOR_CONNECTION_SINGLE)

  108.                 call Set_Elevator(ELEVATOR_NEUTRAL)

  109.                 call Set_UnlatchLed(.true.)

  110.                 call Set_FillMouseHoleLed(.false.)

  111.                 call Set_MouseHole(MOUSE_HOLE_NEUTRAL)

  112.                 return

  113.             end if

  114.                 

  115.                 

  116.                 

  117.                 

  118.                 

  119.             !TOPDRIVE-CODE=15

  120.             if (Get_Elevator() == ELEVATOR_UNLATCH_SINGLE_END .and.&

  121.                 Get_TdsElevatorModes() == TDS_ELEVATOR_CONNECTION_SINGLE .and.&

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

  123.                 Get_FillMouseHoleLed() == .false.) then

  124.             

  125.                 call Set_TdsElevatorModes(TDS_ELEVATOR_CONNECTION_NOTHING)

  126.                 call Set_Elevator(ELEVATOR_NEUTRAL)

  127.                 call Set_UnlatchLed(.false.)

  128.                 call Set_FillMouseHoleLed(.true.)

  129.                 call Set_MouseHole(MOUSE_HOLE_NEUTRAL)

  130.                 return

  131.             end if

  132.                 

  133.                 

  134.                 

  135.             !TOPDRIVE-CODE=16

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

  137.                 Get_Tong() == TONG_BREAKOUT_END .and.&

  138.                 Get_TdsElevatorModes() == TDS_ELEVATOR_LATCH_STRING .and.&

  139.                 Get_TdsConnectionModes() == TDS_CONNECTION_NOTHING) then

  140.             

  141.                 call Set_TdsElevatorModes(TDS_ELEVATOR_LATCH_SINGLE)

  142.                 call Set_Tong(TONG_NEUTRAL)

  143.                 call Set_StringUpdate(STRING_UPDATE_REMOVE_SINGLE)

  144.                 return

  145.             end if  

  146.                 

  147.                 

  148.                 

  149.               

  150.             !TOPDRIVE-CODE=17

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

  152.                 Get_Tong() == TONG_BREAKOUT_END .and.&

  153.                 Get_TdsElevatorModes() == TDS_ELEVATOR_CONNECTION_STRING .and.&

  154.                 Get_TdsConnectionModes() == TDS_CONNECTION_NOTHING) then

  155.             

  156.                 call Set_TdsElevatorModes(TDS_ELEVATOR_CONNECTION_SINGLE)

  157.                 call Set_Tong(TONG_NEUTRAL)

  158.                 call Set_StringUpdate(STRING_UPDATE_REMOVE_SINGLE)

  159.                 return

  160.             end if  

  161.                 

  162.                 

  163.                 

  164.             !TOPDRIVE-CODE=18

  165.             if (Get_ElevatorPickup() .and.&

  166.                 Get_TdsElevatorModes() == TDS_ELEVATOR_LATCH_SINGLE) then

  167.             

  168.                 call Set_TdsElevatorModes(TDS_ELEVATOR_CONNECTION_SINGLE)

  169.                 return

  170.             end if   

  171.                 

  172.                 

  173.                 

  174.                 

  175.             !TOPDRIVE-CODE=19

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

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

  178.                 Get_TdsElevatorModes() == TDS_ELEVATOR_CONNECTION_SINGLE) then

  179.             

  180.                 call Set_TdsElevatorModes(TDS_ELEVATOR_LATCH_SINGLE)

  181.                 

  182.                 return

  183.             end if 

  184.                 

  185.                 

  186.                 

  187.                 

  188.                 

  189.                 

  190.             !TOPDRIVE-CODE=20

  191.             if (Get_Tong() == TONG_MAKEUP_END .and.&

  192.                 Get_TdsElevatorModes() == TDS_ELEVATOR_CONNECTION_SINGLE) then

  193.             

  194.                 call Set_TdsElevatorModes(TDS_ELEVATOR_CONNECTION_STRING)

  195.                 call Set_Tong(TONG_NEUTRAL)

  196.                 call Set_StringUpdate(STRING_UPDATE_ADD_SINGLE)

  197.                 return

  198.             end if   

  199.                 

  200.                 

  201.                 

  202.                 

  203.             !TOPDRIVE-CODE=21

  204.             if (Get_Tong() == TONG_MAKEUP_END .and.&

  205.                 Get_TdsElevatorModes() == TDS_ELEVATOR_LATCH_SINGLE) then

  206.             

  207.                 call Set_TdsElevatorModes(TDS_ELEVATOR_LATCH_STRING)

  208.                 call Set_Tong(TONG_NEUTRAL)

  209.                 call Set_StringUpdate(STRING_UPDATE_ADD_SINGLE)

  210.                 return

  211.             end if    

  212.                 

  213.                 

  214.                 

  215.             !TOPDRIVE-CODE=22

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

  217.                 Get_Tong() == TONG_BREAKOUT_END .and.&

  218.                 Get_TdsElevatorModes() == TDS_ELEVATOR_LATCH_STRING .and.&

  219.                 Get_TdsConnectionModes() == TDS_CONNECTION_NOTHING) then

  220.             

  221.                 call Set_TdsElevatorModes(TDS_ELEVATOR_LATCH_STAND)

  222.                 call Set_Tong(TONG_NEUTRAL)

  223.                 call Set_StringUpdate(STRING_UPDATE_REMOVE_STAND)

  224.                 return

  225.             end if   

  226.                 

  227.                 

  228.                 

  229.             !TOPDRIVE-CODE=23

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

  231.                 Get_Tong() == TONG_BREAKOUT_END .and.&

  232.                 Get_TdsElevatorModes() == TDS_ELEVATOR_CONNECTION_STRING .and.&

  233.                 Get_TdsConnectionModes() == TDS_CONNECTION_NOTHING) then

  234.             

  235.                 call Set_TdsElevatorModes(TDS_ELEVATOR_CONNECTION_STAND)

  236.                 call Set_Tong(TONG_NEUTRAL)

  237.                 call Set_StringUpdate(STRING_UPDATE_REMOVE_STAND)

  238.                 return

  239.             end if     

  240.                 

  241.                 

  242.                 

  243.             !TOPDRIVE-CODE=24

  244.             if (Get_ElevatorPickup() .and.&

  245.                 Get_TdsElevatorModes() == TDS_ELEVATOR_LATCH_STAND) then

  246.             

  247.                 call Set_TdsElevatorModes(TDS_ELEVATOR_CONNECTION_STAND)

  248.                 return

  249.             end if  

  250.                 

  251.                 

  252.                 

  253.                 

  254.                 

  255.             !TOPDRIVE-CODE=25

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

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

  258.                 Get_TdsElevatorModes() == TDS_ELEVATOR_CONNECTION_STAND) then

  259.             

  260.                 call Set_TdsElevatorModes(TDS_ELEVATOR_LATCH_STAND)

  261.                 return

  262.             end if 

  263.                 

  264.                 

  265.                 

  266.                 

  267.             !TOPDRIVE-CODE=26

  268.             if (Get_Tong() == TONG_MAKEUP_END .and.&

  269.                 Get_TdsElevatorModes() == TDS_ELEVATOR_CONNECTION_STAND) then

  270.             

  271.                 call Set_TdsElevatorModes(TDS_ELEVATOR_CONNECTION_STRING)

  272.                 call Set_Tong(TONG_NEUTRAL)

  273.                 call Set_StringUpdate(STRING_UPDATE_ADD_STAND)

  274.                 return

  275.             end if 

  276.                 

  277.                 

  278.                 

  279.                 

  280.                 

  281.                 

  282.                 

  283.                 

  284.                 

  285.             !TOPDRIVE-CODE=27

  286.             if (Get_Tong() == TONG_MAKEUP_END .and.&

  287.                 Get_TdsElevatorModes() == TDS_ELEVATOR_LATCH_STAND) then

  288.             

  289.                 call Set_TdsElevatorModes(TDS_ELEVATOR_LATCH_STRING)

  290.                 call Set_Tong(TONG_NEUTRAL)

  291.                 call Set_StringUpdate(STRING_UPDATE_ADD_STAND)

  292.                 return

  293.             end if 

  294.                 

  295.                 

  296.                 

  297.                 

  298.                 

  299.                 

  300.                 

  301.                 

  302.                 

  303.                 

  304. 

  305.         endif

  306.         

  307.         

  308.         

  309.         

  310.         

  311.         

  312.         

  313.         

  314.         

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

  316. #ifdef OST

  317.             print*, 'Evaluate_TdsElevatorModes=Kelly'

  318. #endif

  319.         endif

  320.         

  321.         

  322.         

  323.         

  324.     end subroutine

  325.     

  326.     subroutine Subscribe_TdsElevatorModes()

  327.         use CDrillingConsoleVariables

  328.     use SimulationVariables

  329.     use SimulationVariables

  330.         implicit none

  331.     end subroutine

  332.     

  333. end module CTdsElevatorModesEnum