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
 
 
 
 
 
 
Branch: master
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'master'
${ noResults }
SimulationCore2/CSharp/OperationScenarios/Common/OperationScenarios.i90

305 lines
9.8 KiB
Raw Permalink Blame History 

  1. # 1 "/home/admin/SimulationCore2/CSharp/OperationScenarios/Common/OperationScenarios.f90"

  2. module OperationScenariosModule

  3. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

  4. !! Paseted From ....Variables.f90

  5. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

  6.     use SimulationVariables

  7.     use PermissionsModule

  8.     use UnityModule

  9.     use UnitySignalVariables

  10.     use UnitySignalsModule

  11.     use PermissionsModule

  12.     use CHoistingVariables

  13.     use CTopDrivePanelVariables

  14.     use NotificationModule

  15.     use SoftwareInputsModule

  16. 

  17.     contains

  18. 

  19.     subroutine OperationScenariosToJson(parent)

  20. 

  21.         type(json_value),pointer :: parent

  22.         type(json_core) :: json

  23.         type(json_value),pointer :: p

  24. 

  25. ! 1. create new node

  26.         call json%create_object(p,'OperationScenarios')

  27.         

  28. ! 2. add member of data type to new node

  29.         call json%add(p,"ElevatorConnection",data%State%OperationScenario%ElevatorConnection)

  30.         call json%add(p,"StringUpdate",data%State%OperationScenario%StringUpdate)

  31.         call json%add(p,"KellyConnection",data%State%OperationScenario%KellyConnection)

  32.         

  33. ! 3. add new node to parent

  34.         call json%add(parent,p)

  35.     end subroutine

  36. 

  37. ! moved from kellyConnectionEnum

  38.     subroutine Set_KellyConnection(v)

  39.         use CManifolds, Only: KellyConnected, KellyDisconnected

  40.         implicit none

  41.         integer , intent(in) :: v

  42. # 43

  43. 

  44. 

  45.         data%State%OperationScenario%KellyConnection = v

  46.         

  47.         if(data%State%OperationScenario%KellyConnection /= KELLY_CONNECTION_STRING) then

  48.             call KellyDisconnected()

  49.         else

  50.             call KellyConnected()

  51.         endif

  52.         

  53. # 55

  54. 

  55. !**call data%State%OperationScenario%OnKellyConnectionChange%RunAll()

  56.     end subroutine

  57.     

  58.     integer function Get_KellyConnection()

  59.         implicit none

  60.         Get_KellyConnection = data%State%OperationScenario%KellyConnection

  61.     end function

  62.     

  63.     subroutine Evaluate_KellyConnection()

  64.         implicit none

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

  66. # 69

  67. 

  68.         endif

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

  70. # 74

  71. 

  72. 

  73. !OPERATION-CODE=1

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

  75. !Get_JointConnectionPossible() .and.&

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

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

  78. !Get_TongNotification() .and.&

  79.                 Get_Tong() == TONG_MAKEUP_END) then

  80. !call Log_4('KELLY_CONNECTION_STRING')

  81.                 call Set_Tong(TONG_NEUTRAL)

  82.                 call Set_KellyConnection(KELLY_CONNECTION_STRING)

  83.                 return

  84.             end if

  85.         

  86. !OPERATION-CODE=2

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

  88.                 Get_StringPressure() == 0 .and.&

  89.                 Get_HookHeight() <= (data%State%OperationScenario%HKL + Get_NearFloorConnection()) .and.&

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

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

  92. !Get_TongNotification() .and.&

  93.                 Get_Tong() == TONG_BREAKOUT_END) then

  94.                 call Set_Tong(TONG_NEUTRAL)

  95.                 call Set_KellyConnection(KELLY_CONNECTION_NOTHING)

  96.                 call Set_SwingLed(.true.)

  97.                 return

  98.             end if

  99.         

  100.             

  101. !OPERATION-CODE=3

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

  103. !Get_JointConnectionPossible() .and.&

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

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

  106. !Get_TongNotification() .and.&

  107.                 Get_FillMouseHoleLed() .and.&

  108.                 Get_Tong() == TONG_MAKEUP_END) then

  109.                 call Set_Tong(TONG_NEUTRAL)

  110.                 call Set_KellyConnection(KELLY_CONNECTION_SINGLE)

  111.                 call Set_SwingLed(.false.)

  112.                 call Set_FillMouseHoleLed(.false.)

  113.                 call Set_MouseHole(MOUSE_HOLE_NEUTRAL)

  114.                 return

  115.             end if

  116.             

  117.             

  118. !OPERATION-CODE=4

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

  120.                 Get_KellyConnection() == KELLY_CONNECTION_SINGLE .and.&

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

  122. !Get_TongNotification() .and.&

  123.                 Get_FillMouseHoleLed() == .false. .and.&

  124.                 Get_Tong() == TONG_BREAKOUT_END) then

  125.                 call Set_Tong(TONG_NEUTRAL)

  126.                 call Set_KellyConnection(KELLY_CONNECTION_NOTHING)

  127.                 call Set_FillMouseHoleLed(.true.)

  128.                 call Set_MouseHole(MOUSE_HOLE_NEUTRAL)

  129.                 return

  130.             end if

  131.            

  132. !OPERATION-CODE=5

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

  134. !Get_JointConnectionPossible() .and.&

  135.                 Get_KellyConnection() == KELLY_CONNECTION_SINGLE .and.&

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

  137. !Get_TongNotification() .and.&

  138.                 Get_Tong() == TONG_MAKEUP_END) then

  139.                 call Set_Tong(TONG_NEUTRAL)

  140.                 call Set_KellyConnection(KELLY_CONNECTION_STRING)

  141.                 call Set_StringUpdate(STRING_UPDATE_ADD_SINGLE)

  142.                 call Set_SwingLed(.false.)

  143.                 return

  144.             end if

  145.             

  146. !OPERATION-CODE=6

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

  148.                 Get_StringPressure() == 0 .and.&

  149.                 Get_HookHeight() > 70.0 .and.&

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

  151. !Get_TongNotification() .and.&

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

  153.                 Get_Tong() == TONG_BREAKOUT_END) then

  154.                 call Set_Tong(TONG_NEUTRAL)

  155.                 call Set_KellyConnection(KELLY_CONNECTION_SINGLE)

  156.                 call Set_StringUpdate(STRING_UPDATE_REMOVE_SINGLE)

  157.                 return

  158.             end if

  159. 

  160.         endif      

  161.             

  162.     end subroutine

  163.     

  164. ! subroutine Subscribe_KellyConnection()

  165. !     use CDrillingConsoleVariables

  166. ! use ConfigurationVariables

  167. ! use ConfigurationVariables

  168. !     implicit none

  169.         

  170. !     call OnBreakoutLeverPress%Add(ButtonPress_Breakout)

  171. !     call OnMakeupLeverPress%Add(ButtonPress_Makeup)

  172. ! end subroutine

  173.     

  174.     subroutine ButtonPress_Breakout()

  175.         implicit none

  176. # 181

  177. 

  178.     end subroutine

  179.     

  180.     subroutine ButtonPress_Makeup()

  181.         implicit none

  182. # 188

  183. 

  184.     end subroutine

  185. 

  186. 

  187.     subroutine Set_StringUpdate(v)

  188.         implicit none

  189.         integer , intent(in) :: v

  190. # 197

  191. 

  192.         data%State%OperationScenario%StringUpdate = v

  193. !**call data%State%OperationScenario%OnStringUpdateChange%RunAll(v)

  194.     end subroutine

  195.     

  196.     integer function Get_StringUpdate()

  197.         implicit none

  198.         Get_StringUpdate = data%State%OperationScenario%StringUpdate

  199.     end function

  200. 

  201.     real(8) function TJH()

  202.         use TD_DrillStemComponents

  203. 	    implicit none

  204. 	    TJH = data%State%TD_String%TopJointHeight

  205.     end function

  206.     

  207.     real function TL()

  208. 	    implicit none

  209. 	    TL = 26.97

  210.     end function

  211.     

  212.     real function NFC()

  213. 	    implicit none

  214. 	    NFC = Get_NearFloorConnection()

  215.     end function

  216.     

  217. 

  218.     subroutine Set_ElevatorConnection(v)

  219.         implicit none

  220.         integer , intent(in) :: v

  221. # 229

  222. 

  223.         data%State%OperationScenario%ElevatorConnection = v

  224.         

  225. # 234

  226. 

  227. !**call data%State%OperationScenario%OnElevatorConnectionChange%RunAll()

  228.     end subroutine

  229.     

  230.     integer function Get_ElevatorConnection()

  231.         implicit none

  232.         Get_ElevatorConnection = data%State%OperationScenario%ElevatorConnection

  233.     end function

  234. 

  235. !//SLIPS: everythings start here

  236.     subroutine ButtonPress_Slips() bind(C,name="ButtonPress_Slips")

  237. ! use NotificationModule

  238.         use CUnityOutputs

  239. ! use UnitySignalsModule

  240.         implicit none

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

  242.             if(print_log) print*, 'ButtonPress_Slips=TopDrive'

  243.     

  244. !TOPDRIVE-CODE=30

  245.             if (Get_Slips() == SLIPS_UNSET_END .and.&

  246.                 Get_SlipsNotification()) then

  247.             

  248.                 call Set_Slips(SLIPS_SET_BEGIN)

  249.                 return

  250.             end if

  251.     

  252. !TOPDRIVE-CODE=31

  253.             if (Get_TdsConnectionModes() == TDS_CONNECTION_STRING .and.&

  254.                 Get_Slips() == SLIPS_SET_END .and.&

  255.                 Get_SlipsNotification()) then

  256.             

  257.                 call Set_Slips(SLIPS_UNSET_BEGIN)

  258.                 return

  259.             end if

  260.     

  261. !TOPDRIVE-CODE=32

  262.             if (Get_TdsElevatorModes() == TDS_ELEVATOR_CONNECTION_STRING .and.&

  263.                 Get_Slips() == SLIPS_SET_END .and.&

  264.                 Get_SlipsNotification()) then

  265.             

  266.                 call Set_Slips(SLIPS_UNSET_BEGIN)

  267.                 return

  268.             end if

  269.         endif

  270.         

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

  272.             if(print_log) print*, 'ButtonPress_Slips=Kelly'

  273. !OPERATION-CODE=19

  274.             if (Get_Slips() == SLIPS_UNSET_END .and.&

  275.                 Get_SlipsNotification()) then

  276.             

  277.                 call Set_Slips(SLIPS_SET_BEGIN)

  278.                 return

  279.             end if

  280.             

  281. !OPERATION-CODE=20

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

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

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

  285.                 Get_SlipsNotification() .and.&

  286.                 Get_Slips() == SLIPS_SET_END) then

  287.             

  288.                 call Set_Slips(SLIPS_UNSET_BEGIN)

  289.                 return

  290.             end if

  291. !OPERATION-CODE=21

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

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

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

  295.                 Get_SlipsNotification() .and.&

  296.                 Get_Slips() == SLIPS_SET_END) then

  297.                 call Set_Slips(SLIPS_UNSET_BEGIN)

  298.                 return

  299.             end if   

  300.         endif

  301.     end subroutine

  302.     

  303. 

  304. end module OperationScenariosModule