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

318 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.             if(print_log) print*, 'Evaluate_TdsElevatorModes=TopDrive'

  13. 

  14.             !TOPDRIVE-CODE=7

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

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

  17.                 Get_TdsSwing() == TDS_SWING_OFF_END ) then

  18.             

  19.                 call Set_TdsElevatorModes(TDS_ELEVATOR_LATCH_STRING)

  20.                 call Set_Elevator(ELEVATOR_NEUTRAL)

  21.                 return

  22.             end if

  23.                 

  24.             !TOPDRIVE-CODE=8

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

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

  27.                 Get_TdsElevatorModes() == TDS_ELEVATOR_CONNECTION_STRING) then

  28.             

  29.                 call Set_TdsElevatorModes(TDS_ELEVATOR_LATCH_STRING)

  30.                 return

  31.             end if

  32. 

  33. 

  34.                 

  35.             !TOPDRIVE-CODE=9

  36.             if (Get_ElevatorPickup() .and.&

  37.                 Get_TdsElevatorModes() == TDS_ELEVATOR_LATCH_STRING) then

  38.             

  39.                 call Set_TdsElevatorModes(TDS_ELEVATOR_CONNECTION_STRING)

  40.                 return

  41.             end if

  42.                 

  43.                 

  44.             !TOPDRIVE-CODE=10

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

  46.                 Get_TdsElevatorModes() == TDS_ELEVATOR_LATCH_STRING) then

  47.             

  48.                 call Set_TdsElevatorModes(TDS_ELEVATOR_CONNECTION_NOTHING)

  49.                 call Set_Elevator(ELEVATOR_NEUTRAL)

  50.                 return

  51.             end if

  52.                 

  53.                 

  54.                 

  55.                 

  56.             !TOPDRIVE-CODE=11

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

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

  59.                 Get_TdsConnectionModes() == TDS_CONNECTION_STRING) then

  60.             

  61.                 call Set_TdsElevatorModes(TDS_ELEVATOR_CONNECTION_NOTHING)

  62.                 call Set_Elevator(ELEVATOR_NEUTRAL)

  63.                 return

  64.             end if

  65.                 

  66.                 

  67.                 

  68.                 

  69.                 

  70.             !TOPDRIVE-CODE=12

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

  72.                 Get_TdsElevatorModes() == TDS_ELEVATOR_CONNECTION_NOTHING) then

  73.             

  74.                 call Set_TdsElevatorModes(TDS_ELEVATOR_CONNECTION_STAND)

  75.                 call Set_Elevator(ELEVATOR_NEUTRAL)

  76.                 call SetStandRack(Get_StandRack() - 1)

  77.                 return

  78.             end if

  79.                 

  80.                 

  81.                 

  82.                 

  83.             !TOPDRIVE-CODE=13

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

  85.                 Get_TdsElevatorModes() == TDS_ELEVATOR_CONNECTION_STAND) then

  86.             

  87.                 call Set_TdsElevatorModes(TDS_ELEVATOR_CONNECTION_NOTHING)

  88.                 call Set_Elevator(ELEVATOR_NEUTRAL)

  89.                 call SetStandRack(Get_StandRack() + 1)

  90.                 return

  91.             end if

  92.                 

  93.                 

  94.                 

  95.                 

  96.             !TOPDRIVE-CODE=14

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

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

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

  100.                 Get_FillMouseHoleLed()) then

  101.             

  102.                 call Set_TdsElevatorModes(TDS_ELEVATOR_CONNECTION_SINGLE)

  103.                 call Set_Elevator(ELEVATOR_NEUTRAL)

  104.                 call Set_UnlatchLed(.true.)

  105.                 call Set_FillMouseHoleLed(.false.)

  106.                 call Set_MouseHole(MOUSE_HOLE_NEUTRAL)

  107.                 return

  108.             end if

  109.                 

  110.                 

  111.                 

  112.                 

  113.                 

  114.             !TOPDRIVE-CODE=15

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

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

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

  118.                 Get_FillMouseHoleLed() == .false.) then

  119.             

  120.                 call Set_TdsElevatorModes(TDS_ELEVATOR_CONNECTION_NOTHING)

  121.                 call Set_Elevator(ELEVATOR_NEUTRAL)

  122.                 call Set_UnlatchLed(.false.)

  123.                 call Set_FillMouseHoleLed(.true.)

  124.                 call Set_MouseHole(MOUSE_HOLE_NEUTRAL)

  125.                 return

  126.             end if

  127.                 

  128.                 

  129.                 

  130.             !TOPDRIVE-CODE=16

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

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

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

  134.                 Get_TdsConnectionModes() == TDS_CONNECTION_NOTHING) then

  135.             

  136.                 call Set_TdsElevatorModes(TDS_ELEVATOR_LATCH_SINGLE)

  137.                 call Set_Tong(TONG_NEUTRAL)

  138.                 call Set_StringUpdate(STRING_UPDATE_REMOVE_SINGLE)

  139.                 return

  140.             end if  

  141.                 

  142.                 

  143.                 

  144.               

  145.             !TOPDRIVE-CODE=17

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

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

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

  149.                 Get_TdsConnectionModes() == TDS_CONNECTION_NOTHING) then

  150.             

  151.                 call Set_TdsElevatorModes(TDS_ELEVATOR_CONNECTION_SINGLE)

  152.                 call Set_Tong(TONG_NEUTRAL)

  153.                 call Set_StringUpdate(STRING_UPDATE_REMOVE_SINGLE)

  154.                 return

  155.             end if  

  156.                 

  157.                 

  158.                 

  159.             !TOPDRIVE-CODE=18

  160.             if (Get_ElevatorPickup() .and.&

  161.                 Get_TdsElevatorModes() == TDS_ELEVATOR_LATCH_SINGLE) then

  162.             

  163.                 call Set_TdsElevatorModes(TDS_ELEVATOR_CONNECTION_SINGLE)

  164.                 return

  165.             end if   

  166.                 

  167.                 

  168.                 

  169.                 

  170.             !TOPDRIVE-CODE=19

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

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

  173.                 Get_TdsElevatorModes() == TDS_ELEVATOR_CONNECTION_SINGLE) then

  174.             

  175.                 call Set_TdsElevatorModes(TDS_ELEVATOR_LATCH_SINGLE)

  176.                 

  177.                 return

  178.             end if 

  179.                 

  180.                 

  181.                 

  182.                 

  183.                 

  184.                 

  185.             !TOPDRIVE-CODE=20

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

  187.                 Get_TdsElevatorModes() == TDS_ELEVATOR_CONNECTION_SINGLE) then

  188.             

  189.                 call Set_TdsElevatorModes(TDS_ELEVATOR_CONNECTION_STRING)

  190.                 call Set_Tong(TONG_NEUTRAL)

  191.                 call Set_StringUpdate(STRING_UPDATE_ADD_SINGLE)

  192.                 return

  193.             end if   

  194.                 

  195.                 

  196.                 

  197.                 

  198.             !TOPDRIVE-CODE=21

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

  200.                 Get_TdsElevatorModes() == TDS_ELEVATOR_LATCH_SINGLE) then

  201.             

  202.                 call Set_TdsElevatorModes(TDS_ELEVATOR_LATCH_STRING)

  203.                 call Set_Tong(TONG_NEUTRAL)

  204.                 call Set_StringUpdate(STRING_UPDATE_ADD_SINGLE)

  205.                 return

  206.             end if    

  207.                 

  208.                 

  209.                 

  210.             !TOPDRIVE-CODE=22

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

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

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

  214.                 Get_TdsConnectionModes() == TDS_CONNECTION_NOTHING) then

  215.             

  216.                 call Set_TdsElevatorModes(TDS_ELEVATOR_LATCH_STAND)

  217.                 call Set_Tong(TONG_NEUTRAL)

  218.                 call Set_StringUpdate(STRING_UPDATE_REMOVE_STAND)

  219.                 return

  220.             end if   

  221.                 

  222.                 

  223.                 

  224.             !TOPDRIVE-CODE=23

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

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

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

  228.                 Get_TdsConnectionModes() == TDS_CONNECTION_NOTHING) then

  229.             

  230.                 call Set_TdsElevatorModes(TDS_ELEVATOR_CONNECTION_STAND)

  231.                 call Set_Tong(TONG_NEUTRAL)

  232.                 call Set_StringUpdate(STRING_UPDATE_REMOVE_STAND)

  233.                 return

  234.             end if     

  235.                 

  236.                 

  237.                 

  238.             !TOPDRIVE-CODE=24

  239.             if (Get_ElevatorPickup() .and.&

  240.                 Get_TdsElevatorModes() == TDS_ELEVATOR_LATCH_STAND) then

  241.             

  242.                 call Set_TdsElevatorModes(TDS_ELEVATOR_CONNECTION_STAND)

  243.                 return

  244.             end if  

  245.                 

  246.                 

  247.                 

  248.                 

  249.                 

  250.             !TOPDRIVE-CODE=25

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

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

  253.                 Get_TdsElevatorModes() == TDS_ELEVATOR_CONNECTION_STAND) then

  254.             

  255.                 call Set_TdsElevatorModes(TDS_ELEVATOR_LATCH_STAND)

  256.                 return

  257.             end if 

  258.                 

  259.                 

  260.                 

  261.                 

  262.             !TOPDRIVE-CODE=26

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

  264.                 Get_TdsElevatorModes() == TDS_ELEVATOR_CONNECTION_STAND) then

  265.             

  266.                 call Set_TdsElevatorModes(TDS_ELEVATOR_CONNECTION_STRING)

  267.                 call Set_Tong(TONG_NEUTRAL)

  268.                 call Set_StringUpdate(STRING_UPDATE_ADD_STAND)

  269.                 return

  270.             end if 

  271.                 

  272.                 

  273.                 

  274.                 

  275.                 

  276.                 

  277.                 

  278.                 

  279.                 

  280.             !TOPDRIVE-CODE=27

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

  282.                 Get_TdsElevatorModes() == TDS_ELEVATOR_LATCH_STAND) then

  283.             

  284.                 call Set_TdsElevatorModes(TDS_ELEVATOR_LATCH_STRING)

  285.                 call Set_Tong(TONG_NEUTRAL)

  286.                 call Set_StringUpdate(STRING_UPDATE_ADD_STAND)

  287.                 return

  288.             end if 

  289.                 

  290.                 

  291.                 

  292.                 

  293.                 

  294.                 

  295.                 

  296.                 

  297.                 

  298.                 

  299. 

  300.         endif

  301.         

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

  303.         !     if(print_log) print*, 'Evaluate_TdsElevatorModes=Kelly'

  304.         ! endif

  305.         

  306.         

  307.         

  308.         

  309.     end subroutine

  310.     

  311.     subroutine Subscribe_TdsElevatorModes()

  312.         use CDrillingConsoleVariables

  313.         use SimulationVariables

  314.         use SimulationVariables

  315.         implicit none

  316.     end subroutine

  317.     

  318. end module CTdsElevatorModesEnum