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/Equipments/ControlPanels/CDrillingConsole.f90

197 lines
13 KiB
Raw Blame History 

  1. module CDrillingConsole

  2.     use CDrillingConsoleVariables

  3.     use SimulationVariables

  4.     ! use CSimulationVariables

  5.     use CLog4

  6.     use CLog3

  7.     implicit none    

  8.     public    

  9.     contains  

  10. 

  11. 

  12.     subroutine DrillingConsoleFromJson(jsonfile)

  13.         type(json_value),pointer :: parent

  14.         type(json_core) :: json

  15.         type(json_value),pointer :: p,pval

  16. 		type(json_file)::jsonfile

  17. 		logical::found

  18. 		integer :: i

  19. 

  20. 		! call jsonfile%get('Equipments.Drilling.AssignmentSwitch',data%Equipments%DrillingConsole%AssignmentSwitch,found)

  21. 		! if ( .not. found ) call logg(4,"Not found: AssignmentSwitch")

  22. 		! call jsonfile%get('Equipments.Drilling.EmergencySwitch',data%Equipments%DrillingConsole%EmergencySwitch,found)

  23. 		! if ( .not. found ) call logg(4,"Not found: EmergencySwitch")

  24. 		! call jsonfile%get('Equipments.Drilling.RTTorqueLimitKnob',data%Equipments%DrillingConsole%RTTorqueLimitKnob,found)

  25. 		! if ( .not. found ) call logg(4,"Not found: RTTorqueLimitKnob")

  26. 		call jsonfile%get('Equipments.Drilling.MP1CPSwitch',data%Equipments%DrillingConsole%MP1CPSwitch,found)

  27. 		if ( .not. found ) call logg(4,"Not found: MP1CPSwitch")

  28. 		! call jsonfile%get('Equipments.Drilling.MP1ThrottleUpdate',data%Equipments%DrillingConsole%MP1ThrottleUpdate,found)

  29. 		! if ( .not. found ) call logg(4,"Not found: MP1ThrottleUpdate")

  30. 		call jsonfile%get('Equipments.Drilling.MP1Throttle',data%Equipments%DrillingConsole%MP1Throttle,found)

  31. 		if ( .not. found ) call logg(4,"Not found: MP1Throttle")

  32. 		call jsonfile%get('Equipments.Drilling.MP2Switch',data%Equipments%DrillingConsole%MP2Switch,found)

  33. 		if ( .not. found ) call logg(4,"Not found: MP2Switch")

  34. 		! call jsonfile%get('Equipments.Drilling.MP2ThrottleUpdate',data%Equipments%DrillingConsole%MP2ThrottleUpdate,found)

  35. 		! if ( .not. found ) call logg(4,"Not found: MP2ThrottleUpdate")

  36. 		call jsonfile%get('Equipments.Drilling.MP2Throttle',data%Equipments%DrillingConsole%MP2Throttle,found)

  37. 		if ( .not. found ) call logg(4,"Not found: MP2Throttle")

  38. 		call jsonfile%get('Equipments.Drilling.DWSwitch',data%Equipments%DrillingConsole%DWSwitch,found)

  39. 		if ( .not. found ) call logg(4,"Not found: DWSwitch")

  40. 		call jsonfile%get('Equipments.Drilling.DWThrottle',data%Equipments%DrillingConsole%DWThrottle,found)

  41. 		if ( .not. found ) call logg(4,"Not found: DWThrottle")

  42. 		! if (print_log .and. abs(data%Equipments%DrillingConsole%DWThrottle)>0) print *,"data%Equipments%DrillingConsole%DWThrottle = ",data%Equipments%DrillingConsole%DWThrottle

  43. 		call jsonfile%get('Equipments.Drilling.RTSwitch',data%Equipments%DrillingConsole%RTSwitch,found)

  44. 		if ( .not. found ) call logg(4,"Not found: RTSwitch")

  45. 		call jsonfile%get('Equipments.Drilling.RTThrottle',i,found)

  46. 		data%Equipments%DrillingConsole%RTThrottle = real(i)

  47. 		if ( .not. found ) call logg(4,"Not found: RTThrottle")

  48. 		! call jsonfile%get('Equipments.Drilling.DWBreak',data%Equipments%DrillingConsole%DWBreak,found)

  49. 		! if ( .not. found ) call logg(4,"Not found: DWBreak")

  50. 		! call jsonfile%get('Equipments.Drilling.PreviousDWBreak',data%Equipments%DrillingConsole%PreviousDWBreak,found)

  51. 		! if ( .not. found ) call logg(4,"Not found: PreviousDWBreak")

  52. 		! call jsonfile%get('Equipments.Drilling.ForceBreak',data%Equipments%DrillingConsole%ForceBreak,found)

  53. 		! if ( .not. found ) call logg(4,"Not found: ForceBreak")

  54. 		! call jsonfile%get('Equipments.Drilling.DWAcceleretor',data%Equipments%DrillingConsole%DWAcceleretor,found)

  55. 		! if ( .not. found ) call logg(4,"Not found: DWAcceleretor")

  56. 		! call jsonfile%get('Equipments.Drilling.DWTransmisionLever',data%Equipments%DrillingConsole%DWTransmisionLever,found)

  57. 		! if ( .not. found ) call logg(4,"Not found: DWTransmisionLever")

  58. 		! call jsonfile%get('Equipments.Drilling.DWPowerLever',data%Equipments%DrillingConsole%DWPowerLever,found)

  59. 		! if ( .not. found ) call logg(4,"Not found: DWPowerLever")

  60. 		! call jsonfile%get('Equipments.Drilling.TongLever',data%Equipments%DrillingConsole%TongLever,found)

  61. 		! if ( .not. found ) call logg(4,"Not found: TongLever")

  62. 		! call jsonfile%get('Equipments.Drilling.RTTransmissionLever',data%Equipments%DrillingConsole%RTTransmissionLever,found)

  63. 		! if ( .not. found ) call logg(4,"Not found: RTTransmissionLever")

  64. 		! call jsonfile%get('Equipments.Drilling.DWClutchLever',data%Equipments%DrillingConsole%DWClutchLever,found)

  65. 		! if ( .not. found ) call logg(4,"Not found: DWClutchLever")

  66. 		! call jsonfile%get('Equipments.Drilling.EddyBreakLever',data%Equipments%DrillingConsole%EddyBreakLever,found)

  67. 		! if ( .not. found ) call logg(4,"Not found: EddyBreakLever")

  68. 		! call jsonfile%get('Equipments.Drilling.AutoDW',data%Equipments%DrillingConsole%AutoDW,found)

  69. 		! if ( .not. found ) call logg(4,"Not found: AutoDW")

  70. 		! call jsonfile%get('Equipments.Drilling.GEN1',data%Equipments%DrillingConsole%GEN1,found)

  71. 		! if ( .not. found ) call logg(4,"Not found: GEN1")

  72. 		! call jsonfile%get('Equipments.Drilling.GEN2',data%Equipments%DrillingConsole%GEN2,found)

  73. 		! if ( .not. found ) call logg(4,"Not found: GEN2")

  74. 		! call jsonfile%get('Equipments.Drilling.GEN3',data%Equipments%DrillingConsole%GEN3,found)

  75. 		! if ( .not. found ) call logg(4,"Not found: GEN3")

  76. 		! call jsonfile%get('Equipments.Drilling.GEN4',data%Equipments%DrillingConsole%GEN4,found)

  77. 		! if ( .not. found ) call logg(4,"Not found: GEN4")

  78. 		! call jsonfile%get('Equipments.Drilling.Permission_OpenKellyCock',data%Equipments%DrillingConsole%Permission_OpenKellyCock,found)

  79. 		! if ( .not. found ) call logg(4,"Not found: Permission_OpenKellyCock")

  80. 		! call jsonfile%get('Equipments.Drilling.OpenKellyCock',data%Equipments%DrillingConsole%OpenKellyCock,found)

  81. 		! if ( .not. found ) call logg(4,"Not found: OpenKellyCock")

  82. 		! call jsonfile%get('Equipments.Drilling.Permission_CloseKellyCock',data%Equipments%DrillingConsole%Permission_CloseKellyCock,found)

  83. 		! if ( .not. found ) call logg(4,"Not found: Permission_CloseKellyCock")

  84. 		! call jsonfile%get('Equipments.Drilling.CloseKellyCock',data%Equipments%DrillingConsole%CloseKellyCock,found)

  85. 		! if ( .not. found ) call logg(4,"Not found: CloseKellyCock")

  86. 		! call jsonfile%get('Equipments.Drilling.Permission_OpenSafetyValve',data%Equipments%DrillingConsole%Permission_OpenSafetyValve,found)

  87. 		! if ( .not. found ) call logg(4,"Not found: Permission_OpenSafetyValve")

  88. 		! call jsonfile%get('Equipments.Drilling.OpenSafetyValve',data%Equipments%DrillingConsole%OpenSafetyValve,found)

  89. 		! if ( .not. found ) call logg(4,"Not found: OpenSafetyValve")

  90. 		! call jsonfile%get('Equipments.Drilling.Permission_CloseSafetyValve',data%Equipments%DrillingConsole%Permission_CloseSafetyValve,found)

  91. 		! if ( .not. found ) call logg(4,"Not found: Permission_CloseSafetyValve")

  92. 		! call jsonfile%get('Equipments.Drilling.CloseSafetyValve',data%Equipments%DrillingConsole%CloseSafetyValve,found)

  93. 		! if ( .not. found ) call logg(4,"Not found: CloseSafetyValve")

  94. 		! call jsonfile%get('Equipments.Drilling.Permission_IRSafetyValve',data%Equipments%DrillingConsole%Permission_IRSafetyValve,found)

  95. 		! if ( .not. found ) call logg(4,"Not found: Permission_IRSafetyValve")

  96. 		! call jsonfile%get('Equipments.Drilling.IRSafetyValve',data%Equipments%DrillingConsole%IRSafetyValve,found)

  97. 		! if ( .not. found ) call logg(4,"Not found: IRSafetyValve")

  98. 		! call jsonfile%get('Equipments.Drilling.Permission_IRIBop',data%Equipments%DrillingConsole%Permission_IRIBop,found)

  99. 		! if ( .not. found ) call logg(4,"Not found: Permission_IRIBop")

  100. 		! call jsonfile%get('Equipments.Drilling.IRIBop',data%Equipments%DrillingConsole%IRIBop,found)

  101. 		! if ( .not. found ) call logg(4,"Not found: IRIBop")

  102. 		! call jsonfile%get('Equipments.Drilling.LatchPipe',data%Equipments%DrillingConsole%LatchPipe,found)

  103. 		! if ( .not. found ) call logg(4,"Not found: LatchPipe")

  104. 		! call jsonfile%get('Equipments.Drilling.UnlatchPipe',data%Equipments%DrillingConsole%UnlatchPipe,found)

  105. 		! if ( .not. found ) call logg(4,"Not found: UnlatchPipe")

  106. 		! call jsonfile%get('Equipments.Drilling.Swing',data%Equipments%DrillingConsole%Swing,found)

  107. 		! if ( .not. found ) call logg(4,"Not found: Swing")

  108. 		! call jsonfile%get('Equipments.Drilling.FillMouseHole',data%Equipments%DrillingConsole%FillMouseHole,found)

  109. 		! if ( .not. found ) call logg(4,"Not found: FillMouseHole")

  110. 		! call jsonfile%get('Equipments.Drilling.Slips',data%Equipments%DrillingConsole%Slips,found)

  111. 		! if ( .not. found ) call logg(4,"Not found: Slips")

  112. 		! call jsonfile%get('Equipments.Drilling.BrakeLeverCoefficient',data%Equipments%DrillingConsole%BrakeLeverCoefficient,found)

  113. 		! if ( .not. found ) call logg(4,"Not found: BrakeLeverCoefficient")

  114. 		! call jsonfile%get('Equipments.Drilling.HideDrillingBrake',data%Equipments%DrillingConsole%HideDrillingBrake,found)

  115. 		! if ( .not. found ) call logg(4,"Not found: HideDrillingBrake")

  116. 		! call jsonfile%get('Equipments.Drilling.ParkingBrakeBtn',data%Equipments%DrillingConsole%ParkingBrakeBtn,found)

  117. 		! if ( .not. found ) call logg(4,"Not found: ParkingBrakeBtn")

  118. 

  119. 		! call jsonfile%destroy()

  120. 

  121. 		! data%Equipments%DrillingConsole%DWSwitch = -1

  122. 		data%Equipments%DrillingConsole%AssignmentSwitch = 1

  123.         ! data%Equipments%DrillingConsole%MP1CPSwitch = -1

  124.         ! data%Equipments%DrillingConsole%MP2Switch = -1

  125. 		! data%Equipments%DrillingConsole%RTSwitch = -1

  126.     end subroutine

  127. 

  128.     subroutine DrillingConsoleToJson(parent)

  129. 

  130.         type(json_value),pointer :: parent

  131.         type(json_core) :: json

  132.         type(json_value),pointer :: p

  133. 

  134.         ! 1. create new node

  135.         call json%create_object(p,'Drilling')

  136. 		

  137. 		call json%add(p,"ParkingBrakeLed",data%Equipments%DrillingConsole%ParkingBrakeLed)

  138.         call json%add(p,"GEN1LED",data%Equipments%DrillingConsole%GEN1LED)

  139.         call json%add(p,"GEN2LED",data%Equipments%DrillingConsole%GEN2LED)

  140.         call json%add(p,"GEN3LED",data%Equipments%DrillingConsole%GEN3LED)

  141.         call json%add(p,"GEN4LED",data%Equipments%DrillingConsole%GEN4LED)

  142.         call json%add(p,"SCR1LED",data%Equipments%DrillingConsole%SCR1LED)

  143.         call json%add(p,"SCR2LED",data%Equipments%DrillingConsole%SCR2LED)

  144.         call json%add(p,"SCR3LED",data%Equipments%DrillingConsole%SCR3LED)

  145.         call json%add(p,"SCR4LED",data%Equipments%DrillingConsole%SCR4LED)

  146.         call json%add(p,"MP1BLWR",data%Equipments%DrillingConsole%MP1BLWR)

  147.         call json%add(p,"MP2BLWR",data%Equipments%DrillingConsole%MP2BLWR)

  148.         call json%add(p,"DWBLWR",data%Equipments%DrillingConsole%DWBLWR)

  149.         call json%add(p,"RTBLWR",data%Equipments%DrillingConsole%RTBLWR)

  150.         call json%add(p,"PWRLIM",data%Equipments%DrillingConsole%PWRLIM)

  151.         call json%add(p,"PWRLIMMTR",data%Equipments%DrillingConsole%PWRLIMMTR)

  152.         call json%add(p,"RTTorqueLimitGauge",data%Equipments%DrillingConsole%RTTorqueLimitGauge)

  153.         call json%add(p,"AutoDWLED",data%Equipments%DrillingConsole%AutoDWLED)

  154.         call json%add(p,"GEN1BTNLED",data%Equipments%DrillingConsole%GEN1BTNLED)

  155.         call json%add(p,"GEN2BTNLED",data%Equipments%DrillingConsole%GEN2BTNLED)

  156.         call json%add(p,"GEN3BTNLED",data%Equipments%DrillingConsole%GEN3BTNLED)

  157.         call json%add(p,"GEN4BTNLED",data%Equipments%DrillingConsole%GEN4BTNLED)

  158.         call json%add(p,"OpenKellyCockLed",data%Equipments%DrillingConsole%OpenKellyCockLed)

  159.         call json%add(p,"CloseKellyCockLed",data%Equipments%DrillingConsole%CloseKellyCockLed)

  160.         call json%add(p,"OpenSafetyValveLed",data%Equipments%DrillingConsole%OpenSafetyValveLed)

  161.         call json%add(p,"CloseSafetyValveLed",data%Equipments%DrillingConsole%CloseSafetyValveLed)

  162.         call json%add(p,"IRSafetyValveLed",data%Equipments%DrillingConsole%IRSafetyValveLed)

  163.         call json%add(p,"IRIBopLed",data%Equipments%DrillingConsole%IRIBopLed)

  164.         call json%add(p,"LatchPipeLED",data%Equipments%DrillingConsole%LatchPipeLED)

  165.         call json%add(p,"UnlatchPipeLED",data%Equipments%DrillingConsole%UnlatchPipeLED)

  166.         call json%add(p,"SwingLed",data%Equipments%DrillingConsole%SwingLed)

  167.         call json%add(p,"FillMouseHoleLed",data%Equipments%DrillingConsole%FillMouseHoleLed)

  168.         call json%add(p,"MP1CPSwitch",data%Equipments%DrillingConsole%MP1CPSwitch)

  169.         call json%add(p,"MP2Switch",data%Equipments%DrillingConsole%MP2Switch)

  170.         call json%add(p,"DWSwitch",data%Equipments%DrillingConsole%DWSwitch)

  171.         call json%add(p,"RTSwitch",data%Equipments%DrillingConsole%RTSwitch)

  172. 		

  173.         call json%add(p,"RTSwitch",data%Equipments%DrillingConsole%RTSwitch)

  174. 

  175. 		! Trottle -------------

  176. 		call json%add(p,"MP1Throttle",data%Equipments%DrillingConsole%MP1Throttle)

  177.         call json%add(p,"MP2Throttle",data%Equipments%DrillingConsole%MP2Throttle)

  178.         call json%add(p,"RTThrottle",data%Equipments%DrillingConsole%RTThrottle)

  179.         call json%add(p,"DWThrottle",data%Equipments%DrillingConsole%DWThrottle)

  180.         call json%add(parent,p)

  181.     end subroutine

  182. 

  183. 	subroutine SetTongLever(v) bind(C,name="setTongLever")

  184. 			use CTongEnum

  185. 			use ISO_C_BINDING, only:c_int

  186. 			integer(c_int), intent(in) :: v

  187. 			if(v == 1) then

  188. 				call ButtonPress_Breakout_TongNotification()

  189. 				if(print_log) print*, 'BreakoutLeverPress'

  190. 			endif

  191. 			if(v == -1) then

  192. 				call ButtonPress_Makeup_TongNotification()

  193. 				if(print_log) print*, 'MakeupLeverPress'

  194. 			endif

  195. 			if(print_log) print*, 'TongLever=', v

  196. 		end subroutine

  197. end module CDrillingConsole