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

332 lines
12 KiB
Raw Blame History 

  1. module CTdsElevatorModesEnum

  2.     use OperationScenariosModule

  3.     implicit none

  4.     contains

  5.     

  6.     subroutine Evaluate_TdsElevatorModes()

  7.         use CCommon, only: SetStandRack

  8.         implicit none

  9.         

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

  11. #ifdef OST

  12.             print*, 'Evaluate_TdsElevatorModes=TopDrive'

  13. #endif

  14. 

  15. 

  16.             !TOPDRIVE-CODE=7

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

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

  19.                 Get_TdsSwing() == TDS_SWING_OFF_END ) then

  20.             

  21.                 call Set_TdsElevatorModes(TDS_ELEVATOR_LATCH_STRING)

  22.                 call Set_Elevator(ELEVATOR_NEUTRAL)

  23.                 return

  24.             end if

  25.                 

  26.                 

  27.                 

  28.             !TOPDRIVE-CODE=8

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

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

  31.                 Get_TdsElevatorModes() == TDS_ELEVATOR_CONNECTION_STRING) then

  32.             

  33.                 call Set_TdsElevatorModes(TDS_ELEVATOR_LATCH_STRING)

  34.                 return

  35.             end if

  36. 

  37. 

  38.                 

  39.             !TOPDRIVE-CODE=9

  40.             if (Get_ElevatorPickup() .and.&

  41.                 Get_TdsElevatorModes() == TDS_ELEVATOR_LATCH_STRING) then

  42.             

  43.                 call Set_TdsElevatorModes(TDS_ELEVATOR_CONNECTION_STRING)

  44.                 return

  45.             end if

  46.                 

  47.                 

  48.             !TOPDRIVE-CODE=10

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

  50.                 Get_TdsElevatorModes() == TDS_ELEVATOR_LATCH_STRING) then

  51.             

  52.                 call Set_TdsElevatorModes(TDS_ELEVATOR_CONNECTION_NOTHING)

  53.                 call Set_Elevator(ELEVATOR_NEUTRAL)

  54.                 return

  55.             end if

  56.                 

  57.                 

  58.                 

  59.                 

  60.             !TOPDRIVE-CODE=11

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

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

  63.                 Get_TdsConnectionModes() == TDS_CONNECTION_STRING) then

  64.             

  65.                 call Set_TdsElevatorModes(TDS_ELEVATOR_CONNECTION_NOTHING)

  66.                 call Set_Elevator(ELEVATOR_NEUTRAL)

  67.                 return

  68.             end if

  69.                 

  70.                 

  71.                 

  72.                 

  73.                 

  74.             !TOPDRIVE-CODE=12

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

  76.                 Get_TdsElevatorModes() == TDS_ELEVATOR_CONNECTION_NOTHING) then

  77.             

  78.                 call Set_TdsElevatorModes(TDS_ELEVATOR_CONNECTION_STAND)

  79.                 call Set_Elevator(ELEVATOR_NEUTRAL)

  80.                 call SetStandRack(Get_StandRack() - 1)

  81.                 return

  82.             end if

  83.                 

  84.                 

  85.                 

  86.                 

  87.             !TOPDRIVE-CODE=13

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

  89.                 Get_TdsElevatorModes() == TDS_ELEVATOR_CONNECTION_STAND) then

  90.             

  91.                 call Set_TdsElevatorModes(TDS_ELEVATOR_CONNECTION_NOTHING)

  92.                 call Set_Elevator(ELEVATOR_NEUTRAL)

  93.                 call SetStandRack(Get_StandRack() + 1)

  94.                 return

  95.             end if

  96.                 

  97.                 

  98.                 

  99.                 

  100.             !TOPDRIVE-CODE=14

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

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

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

  104.                 Get_FillMouseHoleLed()) then

  105.             

  106.                 call Set_TdsElevatorModes(TDS_ELEVATOR_CONNECTION_SINGLE)

  107.                 call Set_Elevator(ELEVATOR_NEUTRAL)

  108.                 call Set_UnlatchLed(.true.)

  109.                 call Set_FillMouseHoleLed(.false.)

  110.                 call Set_MouseHole(MOUSE_HOLE_NEUTRAL)

  111.                 return

  112.             end if

  113.                 

  114.                 

  115.                 

  116.                 

  117.                 

  118.             !TOPDRIVE-CODE=15

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

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

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

  122.                 Get_FillMouseHoleLed() == .false.) then

  123.             

  124.                 call Set_TdsElevatorModes(TDS_ELEVATOR_CONNECTION_NOTHING)

  125.                 call Set_Elevator(ELEVATOR_NEUTRAL)

  126.                 call Set_UnlatchLed(.false.)

  127.                 call Set_FillMouseHoleLed(.true.)

  128.                 call Set_MouseHole(MOUSE_HOLE_NEUTRAL)

  129.                 return

  130.             end if

  131.                 

  132.                 

  133.                 

  134.             !TOPDRIVE-CODE=16

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

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

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

  138.                 Get_TdsConnectionModes() == TDS_CONNECTION_NOTHING) then

  139.             

  140.                 call Set_TdsElevatorModes(TDS_ELEVATOR_LATCH_SINGLE)

  141.                 call Set_Tong(TONG_NEUTRAL)

  142.                 call Set_StringUpdate(STRING_UPDATE_REMOVE_SINGLE)

  143.                 return

  144.             end if  

  145.                 

  146.                 

  147.                 

  148.               

  149.             !TOPDRIVE-CODE=17

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

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

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

  153.                 Get_TdsConnectionModes() == TDS_CONNECTION_NOTHING) then

  154.             

  155.                 call Set_TdsElevatorModes(TDS_ELEVATOR_CONNECTION_SINGLE)

  156.                 call Set_Tong(TONG_NEUTRAL)

  157.                 call Set_StringUpdate(STRING_UPDATE_REMOVE_SINGLE)

  158.                 return

  159.             end if  

  160.                 

  161.                 

  162.                 

  163.             !TOPDRIVE-CODE=18

  164.             if (Get_ElevatorPickup() .and.&

  165.                 Get_TdsElevatorModes() == TDS_ELEVATOR_LATCH_SINGLE) then

  166.             

  167.                 call Set_TdsElevatorModes(TDS_ELEVATOR_CONNECTION_SINGLE)

  168.                 return

  169.             end if   

  170.                 

  171.                 

  172.                 

  173.                 

  174.             !TOPDRIVE-CODE=19

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

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

  177.                 Get_TdsElevatorModes() == TDS_ELEVATOR_CONNECTION_SINGLE) then

  178.             

  179.                 call Set_TdsElevatorModes(TDS_ELEVATOR_LATCH_SINGLE)

  180.                 

  181.                 return

  182.             end if 

  183.                 

  184.                 

  185.                 

  186.                 

  187.                 

  188.                 

  189.             !TOPDRIVE-CODE=20

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

  191.                 Get_TdsElevatorModes() == TDS_ELEVATOR_CONNECTION_SINGLE) then

  192.             

  193.                 call Set_TdsElevatorModes(TDS_ELEVATOR_CONNECTION_STRING)

  194.                 call Set_Tong(TONG_NEUTRAL)

  195.                 call Set_StringUpdate(STRING_UPDATE_ADD_SINGLE)

  196.                 return

  197.             end if   

  198.                 

  199.                 

  200.                 

  201.                 

  202.             !TOPDRIVE-CODE=21

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

  204.                 Get_TdsElevatorModes() == TDS_ELEVATOR_LATCH_SINGLE) then

  205.             

  206.                 call Set_TdsElevatorModes(TDS_ELEVATOR_LATCH_STRING)

  207.                 call Set_Tong(TONG_NEUTRAL)

  208.                 call Set_StringUpdate(STRING_UPDATE_ADD_SINGLE)

  209.                 return

  210.             end if    

  211.                 

  212.                 

  213.                 

  214.             !TOPDRIVE-CODE=22

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

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

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

  218.                 Get_TdsConnectionModes() == TDS_CONNECTION_NOTHING) then

  219.             

  220.                 call Set_TdsElevatorModes(TDS_ELEVATOR_LATCH_STAND)

  221.                 call Set_Tong(TONG_NEUTRAL)

  222.                 call Set_StringUpdate(STRING_UPDATE_REMOVE_STAND)

  223.                 return

  224.             end if   

  225.                 

  226.                 

  227.                 

  228.             !TOPDRIVE-CODE=23

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

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

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

  232.                 Get_TdsConnectionModes() == TDS_CONNECTION_NOTHING) then

  233.             

  234.                 call Set_TdsElevatorModes(TDS_ELEVATOR_CONNECTION_STAND)

  235.                 call Set_Tong(TONG_NEUTRAL)

  236.                 call Set_StringUpdate(STRING_UPDATE_REMOVE_STAND)

  237.                 return

  238.             end if     

  239.                 

  240.                 

  241.                 

  242.             !TOPDRIVE-CODE=24

  243.             if (Get_ElevatorPickup() .and.&

  244.                 Get_TdsElevatorModes() == TDS_ELEVATOR_LATCH_STAND) then

  245.             

  246.                 call Set_TdsElevatorModes(TDS_ELEVATOR_CONNECTION_STAND)

  247.                 return

  248.             end if  

  249.                 

  250.                 

  251.                 

  252.                 

  253.                 

  254.             !TOPDRIVE-CODE=25

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

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

  257.                 Get_TdsElevatorModes() == TDS_ELEVATOR_CONNECTION_STAND) then

  258.             

  259.                 call Set_TdsElevatorModes(TDS_ELEVATOR_LATCH_STAND)

  260.                 return

  261.             end if 

  262.                 

  263.                 

  264.                 

  265.                 

  266.             !TOPDRIVE-CODE=26

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

  268.                 Get_TdsElevatorModes() == TDS_ELEVATOR_CONNECTION_STAND) then

  269.             

  270.                 call Set_TdsElevatorModes(TDS_ELEVATOR_CONNECTION_STRING)

  271.                 call Set_Tong(TONG_NEUTRAL)

  272.                 call Set_StringUpdate(STRING_UPDATE_ADD_STAND)

  273.                 return

  274.             end if 

  275.                 

  276.                 

  277.                 

  278.                 

  279.                 

  280.                 

  281.                 

  282.                 

  283.                 

  284.             !TOPDRIVE-CODE=27

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

  286.                 Get_TdsElevatorModes() == TDS_ELEVATOR_LATCH_STAND) then

  287.             

  288.                 call Set_TdsElevatorModes(TDS_ELEVATOR_LATCH_STRING)

  289.                 call Set_Tong(TONG_NEUTRAL)

  290.                 call Set_StringUpdate(STRING_UPDATE_ADD_STAND)

  291.                 return

  292.             end if 

  293.                 

  294.                 

  295.                 

  296.                 

  297.                 

  298.                 

  299.                 

  300.                 

  301.                 

  302.                 

  303. 

  304.         endif

  305.         

  306.         

  307.         

  308.         

  309.         

  310.         

  311.         

  312.         

  313.         

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

  315. #ifdef OST

  316.             print*, 'Evaluate_TdsElevatorModes=Kelly'

  317. #endif

  318.         endif

  319.         

  320.         

  321.         

  322.         

  323.     end subroutine

  324.     

  325.     subroutine Subscribe_TdsElevatorModes()

  326.         use CDrillingConsoleVariables

  327.     use SimulationVariables

  328.     use SimulationVariables

  329.         implicit none

  330.     end subroutine

  331.     

  332. end module CTdsElevatorModesEnum