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.
59 Commits
2 Branches
134 MiB
 
 
 
 
 
 
Tree: 9f4b16fe97
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '9f4b16fe97'
${ noResults }
SimulationCore2/CSharp/Equipments/ControlPanels/CDataDisplayConsole.f90

426 lines
23 KiB
Raw Blame History 

  1. module CDataDisplayConsole

  2. 	! use CDataDisplayConsole

  3.     use SimulationVariables

  4. 	implicit none    

  5. 	public    

  6.     contains  

  7. 

  8.     subroutine DataDisplayConsoleFromJson(parent)

  9.         type(json_value),pointer :: parent

  10.         type(json_core) :: json

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

  12. 

  13.         ! 1. get related root

  14.         call json%get(parent,'DataDisplay',p)

  15.         

  16.         ! 2. get member of data type from node

  17. 		! call json%get(p,'TripAlarmLow',pval)

  18. 		! call json%get(pval,data%Equipments%DataDisplayConsole%TripAlarmLow)

  19. 		! call json%get(p,'TripAlarmHigh',pval)

  20. 		! call json%get(pval,data%Equipments%DataDisplayConsole%TripAlarmHigh)

  21. 		! call json%get(p,'RetFlowAlarmLow',pval)

  22. 		! call json%get(pval,data%Equipments%DataDisplayConsole%RetFlowAlarmLow)

  23. 		! call json%get(p,'RetFlowAlarmHigh',pval)

  24. 		! call json%get(pval,data%Equipments%DataDisplayConsole%RetFlowAlarmHigh)

  25. 		! call json%get(p,'PitAlarmLow',pval)

  26. 		! call json%get(pval,data%Equipments%DataDisplayConsole%PitAlarmLow)

  27. 		! call json%get(p,'PitAlarmHigh',pval)

  28. 		! call json%get(pval,data%Equipments%DataDisplayConsole%PitAlarmHigh)

  29. 		! call json%get(p,'PortWeightOnBit',pval)

  30. 		! call json%get(pval,data%Equipments%DataDisplayConsole%PortWeightOnBit)

  31. 		! call json%get(p,'PortHookLoad',pval)

  32. 		! call json%get(pval,data%Equipments%DataDisplayConsole%PortHookLoad)

  33. 		! call json%get(p,'PortCasingPressure',pval)

  34. 		! call json%get(pval,data%Equipments%DataDisplayConsole%PortCasingPressure)

  35. 		! call json%get(p,'PortPumpPressure',pval)

  36. 		! call json%get(pval,data%Equipments%DataDisplayConsole%PortPumpPressure)

  37. 		call json%get(p,'TripTankSetAlarmLow',pval)

  38. 		call json%get(pval,data%Equipments%DataDisplayConsole%TripTankSetAlarmLow)

  39. 		call json%get(p,'TripTankSetAlarmHigh',pval)

  40. 		call json%get(pval,data%Equipments%DataDisplayConsole%TripTankSetAlarmHigh)

  41. 		call json%get(p,'TripTankSetAlarmSwitch',pval)

  42. 		call json%get(pval,data%Equipments%DataDisplayConsole%TripTankSetAlarmSwitch)

  43. 		call json%get(p,'TripTankPowerSwitch',pval)

  44. 		call json%get(pval,data%Equipments%DataDisplayConsole%TripTankPowerSwitch)

  45. 		call json%get(p,'TripTankPumpSwitch',pval)

  46. 		call json%get(pval,data%Equipments%DataDisplayConsole%TripTankPumpSwitch)

  47. 		call json%get(p,'TripTankHornSwitch',pval)

  48. 		call json%get(pval,data%Equipments%DataDisplayConsole%TripTankHornSwitch)

  49. 		call json%get(p,'AcidGasDetectionHornSwitch',pval)

  50. 		call json%get(pval,data%Equipments%DataDisplayConsole%AcidGasDetectionHornSwitch)

  51. 		call json%get(p,'TotalStrokeCounterResetSwitch',pval)

  52. 		call json%get(pval,data%Equipments%DataDisplayConsole%TotalStrokeCounterResetSwitch)

  53. 		call json%get(p,'DrillingTrippingSelectorSwitch',pval)

  54. 		call json%get(pval,data%Equipments%DataDisplayConsole%DrillingTrippingSelectorSwitch)

  55. 		call json%get(p,'MVTSetAlarmLowKnob',pval)

  56. 		call json%get(pval,data%Equipments%DataDisplayConsole%MVTSetAlarmLowKnob)

  57. 		call json%get(p,'MVTSetAlarmHighKnob',pval)

  58. 		call json%get(pval,data%Equipments%DataDisplayConsole%MVTSetAlarmHighKnob)

  59. 		call json%get(p,'MVTSetAlarmSwitch',pval)

  60. 		call json%get(pval,data%Equipments%DataDisplayConsole%MVTSetAlarmSwitch)

  61. 		call json%get(p,'MudTank1Switch',pval)

  62. 		call json%get(pval,data%Equipments%DataDisplayConsole%MudTank1Switch)

  63. 		call json%get(p,'MudTank2Switch',pval)

  64. 		call json%get(pval,data%Equipments%DataDisplayConsole%MudTank2Switch)

  65. 		call json%get(p,'MudTank3Switch',pval)

  66. 		call json%get(pval,data%Equipments%DataDisplayConsole%MudTank3Switch)

  67. 		call json%get(p,'MudTank4Switch',pval)

  68. 		call json%get(pval,data%Equipments%DataDisplayConsole%MudTank4Switch)

  69. 		call json%get(p,'MVTFineKnob',pval)

  70. 		call json%get(pval,data%Equipments%DataDisplayConsole%MVTFineKnob)

  71. 		call json%get(p,'MVTCoarseKnob',pval)

  72. 		call json%get(pval,data%Equipments%DataDisplayConsole%MVTCoarseKnob)

  73. 		call json%get(p,'MVTHornSwitch',pval)

  74. 		call json%get(pval,data%Equipments%DataDisplayConsole%MVTHornSwitch)

  75. 		call json%get(p,'MVTDeviationTripSelectionSwitch',pval)

  76. 		call json%get(pval,data%Equipments%DataDisplayConsole%MVTDeviationTripSelectionSwitch)

  77. 		call json%get(p,'MVTPowerSwitch',pval)

  78. 		call json%get(pval,data%Equipments%DataDisplayConsole%MVTPowerSwitch)

  79. 		call json%get(p,'MFFIResetTotalStrokes',pval)

  80. 		call json%get(pval,data%Equipments%DataDisplayConsole%MFFIResetTotalStrokes)

  81. 		call json%get(p,'MFFIResetFillCounter',pval)

  82. 		call json%get(pval,data%Equipments%DataDisplayConsole%MFFIResetFillCounter)

  83. 		call json%get(p,'MFFIPumpSelectorSwitch',pval)

  84. 		call json%get(pval,data%Equipments%DataDisplayConsole%MFFIPumpSelectorSwitch)

  85. 		call json%get(p,'MFFIFillSPMSelectorSwitch',pval)

  86. 		call json%get(pval,data%Equipments%DataDisplayConsole%MFFIFillSPMSelectorSwitch)

  87. 		call json%get(p,'MFFISetAlarmLowKnob',pval)

  88. 		call json%get(pval,data%Equipments%DataDisplayConsole%MFFISetAlarmLowKnob)

  89. 		call json%get(p,'MFFISetAlarmHighKnob',pval)

  90. 		call json%get(pval,data%Equipments%DataDisplayConsole%MFFISetAlarmHighKnob)

  91. 		call json%get(p,'MFFISetAlarmSwitch',pval)

  92. 		call json%get(pval,data%Equipments%DataDisplayConsole%MFFISetAlarmSwitch)

  93. 		call json%get(p,'MFFIPowerSwitch',pval)

  94. 		call json%get(pval,data%Equipments%DataDisplayConsole%MFFIPowerSwitch)

  95. 		call json%get(p,'MFFIHornSwitch',pval)

  96. 		call json%get(pval,data%Equipments%DataDisplayConsole%MFFIHornSwitch)

  97. 		call json%get(p,'ResetWob',pval)

  98. 		call json%get(pval,data%Equipments%DataDisplayConsole%ResetWob)

  99. 		call json%get(p,'Clutch',pval)

  100. 		! call json%get(pval,data%Equipments%DataDisplayConsole%Clutch)

  101. 		! call json%get(p,'WOBPointer',pval)

  102. 		! call json%get(pval,data%Equipments%DataDisplayConsole%WOBPointer)

  103. 		! call json%get(p,'HookLoadPointer',pval)

  104. 		! call json%get(pval,data%Equipments%DataDisplayConsole%HookLoadPointer)

  105. 		! call json%get(p,'TripTankGauge',pval)

  106. 		! call json%get(pval,data%Equipments%DataDisplayConsole%TripTankGauge)

  107. 		! call json%get(p,'TripTankAlarmLED',pval)

  108. 		! call json%get(pval,data%Equipments%DataDisplayConsole%TripTankAlarmLED)

  109. 		! call json%get(p,'TripTankPumpLED',pval)

  110. 		! call json%get(pval,data%Equipments%DataDisplayConsole%TripTankPumpLED)

  111. 		! call json%get(p,'StandPipePressureGauge',pval)

  112. 		! call json%get(pval,data%Equipments%DataDisplayConsole%StandPipePressureGauge)

  113. 		! call json%get(p,'CasingPressureGauge',pval)

  114. 		! call json%get(pval,data%Equipments%DataDisplayConsole%CasingPressureGauge)

  115. 		! call json%get(p,'MP1SPMGauge',pval)

  116. 		! call json%get(pval,data%Equipments%DataDisplayConsole%MP1SPMGauge)

  117. 		! call json%get(p,'MP2SPMGauge',pval)

  118. 		! call json%get(pval,data%Equipments%DataDisplayConsole%MP2SPMGauge)

  119. 		! call json%get(p,'ReturnLineTempGauge',pval)

  120. 		! call json%get(pval,data%Equipments%DataDisplayConsole%ReturnLineTempGauge)

  121. 		! call json%get(p,'RotaryTorqueGauge',pval)

  122. 		! call json%get(pval,data%Equipments%DataDisplayConsole%RotaryTorqueGauge)

  123. 		! call json%get(p,'RotaryRPMGauge',pval)

  124. 		! call json%get(pval,data%Equipments%DataDisplayConsole%RotaryRPMGauge)

  125. 		! call json%get(p,'AcidGasDetectionLED',pval)

  126. 		! call json%get(pval,data%Equipments%DataDisplayConsole%AcidGasDetectionLED)

  127. 		! call json%get(p,'TotalStrokeCounter',pval)

  128. 		! call json%get(pval,data%Equipments%DataDisplayConsole%TotalStrokeCounter)

  129. 		! call json%get(p,'PitGainLossGauge',pval)

  130. 		! call json%get(pval,data%Equipments%DataDisplayConsole%PitGainLossGauge)

  131. 		! call json%get(p,'MudTanksVolumeGauge',pval)

  132. 		! call json%get(pval,data%Equipments%DataDisplayConsole%MudTanksVolumeGauge)

  133. 		! call json%get(p,'MVTAlarmLED',pval)

  134. 		! call json%get(pval,data%Equipments%DataDisplayConsole%MVTAlarmLED)

  135. 		! call json%get(p,'ReturnMudFlowGauge',pval)

  136. 		! call json%get(pval,data%Equipments%DataDisplayConsole%ReturnMudFlowGauge)

  137. 		! call json%get(p,'FillStrokeCounter',pval)

  138. 		! call json%get(pval,data%Equipments%DataDisplayConsole%FillStrokeCounter)

  139. 		! call json%get(p,'MFFITotalStrokeCounter',pval)

  140. 		! call json%get(pval,data%Equipments%DataDisplayConsole%MFFITotalStrokeCounter)

  141. 		! call json%get(p,'MFFIAlarmLED',pval)

  142. 		! call json%get(pval,data%Equipments%DataDisplayConsole%MFFIAlarmLED)

  143. 		! call json%get(p,'MFFIPumpLED',pval)

  144. 		! call json%get(pval,data%Equipments%DataDisplayConsole%MFFIPumpLED)

  145. 		! call json%get(p,'TotalWellDepth',pval)

  146. 		! call json%get(pval,data%Equipments%DataDisplayConsole%TotalWellDepth)

  147. 		! call json%get(p,'BitDepth',pval)

  148. 		! call json%get(pval,data%Equipments%DataDisplayConsole%BitDepth)

  149. 		! call json%get(p,'HookLoad',pval)

  150. 		! call json%get(pval,data%Equipments%DataDisplayConsole%HookLoad)

  151. 		! call json%get(p,'StandPipePressure',pval)

  152. 		! call json%get(pval,data%Equipments%DataDisplayConsole%StandPipePressure)

  153. 		! call json%get(p,'CasingPressure',pval)

  154. 		! call json%get(pval,data%Equipments%DataDisplayConsole%CasingPressure)

  155. 		! call json%get(p,'MP1SPM',pval)

  156. 		! call json%get(pval,data%Equipments%DataDisplayConsole%MP1SPM)

  157. 		! call json%get(p,'MP2SPM',pval)

  158. 		! call json%get(pval,data%Equipments%DataDisplayConsole%MP2SPM)

  159. 		! call json%get(p,'RTTorque',pval)

  160. 		! call json%get(pval,data%Equipments%DataDisplayConsole%RTTorque)

  161. 		! call json%get(p,'RTRPM',pval)

  162. 		! call json%get(pval,data%Equipments%DataDisplayConsole%RTRPM)

  163. 		! call json%get(p,'WOP',pval)

  164. 		! call json%get(pval,data%Equipments%DataDisplayConsole%WOP)

  165. 		! call json%get(p,'ROP',pval)

  166. 		! call json%get(pval,data%Equipments%DataDisplayConsole%ROP)

  167. 		! call json%get(p,'MudWeightIn',pval)

  168. 		! call json%get(pval,data%Equipments%DataDisplayConsole%MudWeightIn)

  169. 		! call json%get(p,'MudWeightOut',pval)

  170. 		! call json%get(pval,data%Equipments%DataDisplayConsole%MudWeightOut)

  171. 		! call json%get(p,'Buzzer1',pval)

  172. 		! call json%get(pval,data%Equipments%DataDisplayConsole%Buzzer1)

  173. 		! call json%get(p,'Buzzer2',pval)

  174. 		! call json%get(pval,data%Equipments%DataDisplayConsole%Buzzer2)

  175. 		! call json%get(p,'Buzzer3',pval)

  176. 		! call json%get(pval,data%Equipments%DataDisplayConsole%Buzzer3)

  177. 		! call json%get(p,'Buzzer4',pval)

  178. 		! call json%get(pval,data%Equipments%DataDisplayConsole%Buzzer4)

  179.     end subroutine

  180. 

  181.     subroutine DataDisplayConsoleToJson(parent)

  182. 

  183.         type(json_value),pointer :: parent

  184.         type(json_core) :: json

  185.         type(json_value),pointer :: p

  186. 

  187.         ! 1. create new node

  188.         call json%create_object(p,'DataDisplay')

  189.         ! call json%add(p,"TripAlarmLow",data%Equipments%DataDisplayConsole%TripAlarmLow)

  190.         ! call json%add(p,"TripAlarmHigh",data%Equipments%DataDisplayConsole%TripAlarmHigh)

  191.         ! call json%add(p,"RetFlowAlarmLow",data%Equipments%DataDisplayConsole%RetFlowAlarmLow)

  192.         ! call json%add(p,"RetFlowAlarmHigh",data%Equipments%DataDisplayConsole%RetFlowAlarmHigh)

  193.         ! call json%add(p,"PitAlarmLow",data%Equipments%DataDisplayConsole%PitAlarmLow)

  194.         ! call json%add(p,"PitAlarmHigh",data%Equipments%DataDisplayConsole%PitAlarmHigh)

  195. 		! call json%add(p,"PortWeightOnBit",data%Equipments%DataDisplayConsole%PortWeightOnBit)

  196.         ! call json%add(p,"PortHookLoad",data%Equipments%DataDisplayConsole%PortHookLoad)

  197.         ! call json%add(p,"PortCasingPressure",data%Equipments%DataDisplayConsole%PortCasingPressure)

  198.         ! call json%add(p,"PortPumpPressure",data%Equipments%DataDisplayConsole%PortPumpPressure)

  199. 

  200.         ! call json%add(p,"TripTankSetAlarmLow",data%Equipments%DataDisplayConsole%TripTankSetAlarmLow)

  201.         ! call json%add(p,"TripTankSetAlarmHigh",data%Equipments%DataDisplayConsole%TripTankSetAlarmHigh)

  202.         ! call json%add(p,"TripTankSetAlarmSwitch",data%Equipments%DataDisplayConsole%TripTankSetAlarmSwitch)

  203.         ! call json%add(p,"TripTankPowerSwitch",data%Equipments%DataDisplayConsole%TripTankPowerSwitch)

  204.         ! call json%add(p,"TripTankPumpSwitch",data%Equipments%DataDisplayConsole%TripTankPumpSwitch)

  205.         ! call json%add(p,"TripTankHornSwitch",data%Equipments%DataDisplayConsole%TripTankHornSwitch)

  206.         ! call json%add(p,"AcidGasDetectionHornSwitch",data%Equipments%DataDisplayConsole%AcidGasDetectionHornSwitch)

  207.         ! call json%add(p,"TotalStrokeCounterResetSwitch",data%Equipments%DataDisplayConsole%TotalStrokeCounterResetSwitch)

  208.         ! call json%add(p,"DrillingTrippingSelectorSwitch",data%Equipments%DataDisplayConsole%DrillingTrippingSelectorSwitch)

  209.         ! call json%add(p,"MVTSetAlarmLowKnob",data%Equipments%DataDisplayConsole%MVTSetAlarmLowKnob)

  210.         ! call json%add(p,"MVTSetAlarmHighKnob",data%Equipments%DataDisplayConsole%MVTSetAlarmHighKnob)

  211.         ! call json%add(p,"MVTSetAlarmSwitch",data%Equipments%DataDisplayConsole%MVTSetAlarmSwitch)

  212.         ! call json%add(p,"MudTank1Switch",data%Equipments%DataDisplayConsole%MudTank1Switch)

  213.         ! call json%add(p,"MudTank2Switch",data%Equipments%DataDisplayConsole%MudTank2Switch)

  214.         ! call json%add(p,"MudTank3Switch",data%Equipments%DataDisplayConsole%MudTank3Switch)

  215.         ! call json%add(p,"MudTank4Switch",data%Equipments%DataDisplayConsole%MudTank4Switch)

  216.         ! call json%add(p,"MVTFineKnob",data%Equipments%DataDisplayConsole%MVTFineKnob)

  217.         ! call json%add(p,"MVTCoarseKnob",data%Equipments%DataDisplayConsole%MVTCoarseKnob)

  218.         ! call json%add(p,"MVTHornSwitch",data%Equipments%DataDisplayConsole%MVTHornSwitch)

  219.         ! call json%add(p,"MVTDeviationTripSelectionSwitch",data%Equipments%DataDisplayConsole%MVTDeviationTripSelectionSwitch)

  220.         ! call json%add(p,"MVTPowerSwitch",data%Equipments%DataDisplayConsole%MVTPowerSwitch)

  221.         ! call json%add(p,"MFFIResetTotalStrokes",data%Equipments%DataDisplayConsole%MFFIResetTotalStrokes)

  222.         ! call json%add(p,"MFFIResetFillCounter",data%Equipments%DataDisplayConsole%MFFIResetFillCounter)

  223.         ! call json%add(p,"MFFIPumpSelectorSwitch",data%Equipments%DataDisplayConsole%MFFIPumpSelectorSwitch)

  224.         ! call json%add(p,"MFFIFillSPMSelectorSwitch",data%Equipments%DataDisplayConsole%MFFIFillSPMSelectorSwitch)

  225.         ! call json%add(p,"MFFISetAlarmLowKnob",data%Equipments%DataDisplayConsole%MFFISetAlarmLowKnob)

  226.         ! call json%add(p,"MFFISetAlarmHighKnob",data%Equipments%DataDisplayConsole%MFFISetAlarmHighKnob)

  227.         ! call json%add(p,"MFFISetAlarmSwitch",data%Equipments%DataDisplayConsole%MFFISetAlarmSwitch)

  228.         ! call json%add(p,"MFFIPowerSwitch",data%Equipments%DataDisplayConsole%MFFIPowerSwitch)

  229.         ! call json%add(p,"MFFIHornSwitch",data%Equipments%DataDisplayConsole%MFFIHornSwitch)

  230.         ! call json%add(p,"ResetWob",data%Equipments%DataDisplayConsole%ResetWob)

  231.         ! call json%add(p,"Clutch",data%Equipments%DataDisplayConsole%Clutch)

  232. 

  233. 		call json%add(p,"WOBPointer",data%Equipments%DataDisplayConsole%WOBPointer)

  234.         call json%add(p,"HookLoadPointer",data%Equipments%DataDisplayConsole%HookLoadPointer)

  235.         call json%add(p,"TripTankGauge",data%Equipments%DataDisplayConsole%TripTankGauge)

  236.         call json%add(p,"TripTankAlarmLED",data%Equipments%DataDisplayConsole%TripTankAlarmLED)

  237.         call json%add(p,"TripTankPumpLED",data%Equipments%DataDisplayConsole%TripTankPumpLED)

  238.         call json%add(p,"StandPipePressureGauge",data%Equipments%DataDisplayConsole%StandPipePressureGauge)

  239.         call json%add(p,"CasingPressureGauge",data%Equipments%DataDisplayConsole%CasingPressureGauge)

  240.         call json%add(p,"MP1SPMGauge",data%Equipments%DataDisplayConsole%MP1SPMGauge)

  241.         call json%add(p,"MP2SPMGauge",data%Equipments%DataDisplayConsole%MP2SPMGauge)

  242.         call json%add(p,"ReturnLineTempGauge",data%Equipments%DataDisplayConsole%ReturnLineTempGauge)

  243.         call json%add(p,"RotaryTorqueGauge",data%Equipments%DataDisplayConsole%RotaryTorqueGauge)

  244.         call json%add(p,"RotaryRPMGauge",data%Equipments%DataDisplayConsole%RotaryRPMGauge)

  245.         call json%add(p,"AcidGasDetectionLED",data%Equipments%DataDisplayConsole%AcidGasDetectionLED)

  246.         call json%add(p,"TotalStrokeCounter",data%Equipments%DataDisplayConsole%TotalStrokeCounter)

  247.         call json%add(p,"PitGainLossGauge",data%Equipments%DataDisplayConsole%PitGainLossGauge)

  248.         call json%add(p,"MudTanksVolumeGauge",data%Equipments%DataDisplayConsole%MudTanksVolumeGauge)

  249.         call json%add(p,"MVTAlarmLED",data%Equipments%DataDisplayConsole%MVTAlarmLED)

  250.         call json%add(p,"ReturnMudFlowGauge",data%Equipments%DataDisplayConsole%ReturnMudFlowGauge)

  251.         call json%add(p,"FillStrokeCounter",data%Equipments%DataDisplayConsole%FillStrokeCounter)

  252.         call json%add(p,"MFFITotalStrokeCounter",data%Equipments%DataDisplayConsole%MFFITotalStrokeCounter)

  253.         call json%add(p,"MFFIAlarmLED",data%Equipments%DataDisplayConsole%MFFIAlarmLED)

  254.         call json%add(p,"MFFIPumpLED",data%Equipments%DataDisplayConsole%MFFIPumpLED)

  255.         call json%add(p,"TotalWellDepth",data%Equipments%DataDisplayConsole%TotalWellDepth)

  256.         ! call json%add(p,"TotalWellDepth",1000)

  257.         call json%add(p,"BitDepth",data%Equipments%DataDisplayConsole%BitDepth)

  258.         call json%add(p,"HookLoad",data%Equipments%DataDisplayConsole%HookLoad)

  259.         call json%add(p,"StandPipePressure",data%Equipments%DataDisplayConsole%StandPipePressure)

  260.         call json%add(p,"CasingPressure",data%Equipments%DataDisplayConsole%CasingPressure)

  261.         call json%add(p,"MP1SPM",data%Equipments%DataDisplayConsole%MP1SPM)

  262.         call json%add(p,"MP2SPM",data%Equipments%DataDisplayConsole%MP2SPM)

  263.         call json%add(p,"RTTorque",data%Equipments%DataDisplayConsole%RTTorque)

  264.         call json%add(p,"RTRPM",data%Equipments%DataDisplayConsole%RTRPM)

  265.         call json%add(p,"WOP",data%Equipments%DataDisplayConsole%WOP)

  266.         call json%add(p,"ROP",data%Equipments%DataDisplayConsole%ROP)

  267.         call json%add(p,"MudWeightIn",data%Equipments%DataDisplayConsole%MudWeightIn)

  268.         call json%add(p,"MudWeightOut",data%Equipments%DataDisplayConsole%MudWeightOut)

  269.         call json%add(p,"Buzzer1",data%Equipments%DataDisplayConsole%Buzzer1)

  270.         call json%add(p,"Buzzer2",data%Equipments%DataDisplayConsole%Buzzer2)

  271.         call json%add(p,"Buzzer3",data%Equipments%DataDisplayConsole%Buzzer3)

  272.         call json%add(p,"Buzzer4",data%Equipments%DataDisplayConsole%Buzzer4)

  273.     

  274. 

  275.         call json%add(parent,p)

  276.     end subroutine

  277. 

  278. 

  279.     subroutine Set_TotalDepth(v)

  280.         use SimulationVariables !@!!, only: data%Equipments%DrillingWatch%Depth

  281.         ! use CSimulationVariables, only: SetDistanceDrilled

  282. 	    implicit none

  283. 	    real(8), intent(in) :: v

  284. 		! print *,"total depth = ",v

  285. 	    data%Equipments%DataDisplayConsole%TotalWellDepth = 1000

  286.         data%Equipments%DrillingWatch%Depth = 1000

  287.         ! call SetDistanceDrilled(v)

  288.     end subroutine

  289.     

  290.     subroutine Set_BitPosition(v)

  291.         use SimulationVariables !@!!, only: data%Equipments%DrillingWatch%BitPosition

  292. 	    implicit none

  293. 	    real(8), intent(in) :: v

  294. 	    data%Equipments%DataDisplayConsole%BitDepth = v

  295.         data%Equipments%DrillingWatch%BitPosition = v

  296.     end subroutine

  297.     

  298.     subroutine Set_RotaryTorque(v)

  299.         use SimulationVariables !@!!, only: data%Equipments%DrillingWatch%Torque

  300. 	    implicit none

  301. 	    real(8), intent(in) :: v

  302. 	    data%Equipments%DataDisplayConsole%RotaryTorqueGauge = v

  303. 	    data%Equipments%DrillingWatch%Torque = v

  304.         data%Equipments%DataDisplayConsole%RTTorque = v

  305.     end subroutine

  306.     

  307.     

  308.     subroutine Set_MudWeightIn(v)

  309.         use SimulationVariables !@!, only: MudWeightInDw => data%Equipments%DataDisplayConsole%MudWeightIn

  310. 	    implicit none

  311. 	    real(8), intent(in) :: v

  312. 	    data%Equipments%DataDisplayConsole%MudWeightIn = v

  313. 	    data%Equipments%DrillingWatch%MudWeightIn = v

  314.     end subroutine

  315.     

  316.     subroutine Set_MudWeightOut(v)

  317.         use SimulationVariables !@!, only: MudWeightOutDw => data%Equipments%DataDisplayConsole%MudWeightOut

  318. 	    implicit none

  319. 	    real(8), intent(in) :: v

  320. 	    data%Equipments%DataDisplayConsole%MudWeightOut = v

  321. 	    data%Equipments%DrillingWatch%MudWeightOut = v

  322.     end subroutine

  323.     

  324.     subroutine Set_TripTankVolume(v)

  325.         use SimulationVariables !@!, only: data%Equipments%DrillingWatch%TripTankVolume

  326. 	    implicit none

  327. 	    real(8), intent(in) :: v

  328. 	    data%Equipments%DrillingWatch%TripTankVolume = v

  329.     end subroutine

  330.     

  331.     subroutine Set_FillVolume(v)

  332.         use SimulationVariables !@!, only: data%Equipments%DrillingWatch%FillVolume

  333. 	    implicit none

  334. 	    real(8), intent(in) :: v

  335. 	    data%Equipments%DrillingWatch%FillVolume = v

  336.     end subroutine

  337.     

  338.     subroutine Set_HookLoad(v)

  339.         use SimulationVariables !@!, only: HookLoadDw => data%Equipments%DataDisplayConsole%HookLoad

  340. 	    implicit none

  341. 	    real(8), intent(in) :: v

  342. 	    data%Equipments%DataDisplayConsole%HookLoadPointer = v

  343.         data%Equipments%DrillingWatch%HookLoad = v * 1000

  344.         data%Equipments%DataDisplayConsole%HookLoad = v

  345.     end subroutine

  346.     

  347.     subroutine Set_WeightOnBit(v)

  348.         use SimulationVariables !@!, only: data%Equipments%DrillingWatch%WeightOnBit

  349. 	    implicit none

  350. 	    real(8), intent(in) :: v

  351. 	    data%Equipments%DataDisplayConsole%WOBPointer = v

  352.         data%Equipments%DrillingWatch%WeightOnBit = v

  353.         data%Equipments%DataDisplayConsole%WOP = v

  354.     end subroutine

  355.     

  356.     subroutine Set_ROP(v)

  357.         use SimulationVariables !@!, only: ROPDw => data%Equipments%DataDisplayConsole%ROP

  358. 	    implicit none

  359. 	    real(8), intent(in) :: v

  360. 	    data%Equipments%DataDisplayConsole%ROP = v

  361.         data%Equipments%DrillingWatch%ROP = v

  362.     end subroutine

  363.     

  364.     subroutine Set_CasingPressure(v)

  365.         use SimulationVariables !@!, only: CasingPressureDw => CasingPressure

  366.         use CChokeControlPanelVariables

  367.         use SimulationVariables!, only: CasingPressureChoke => CasingPressure

  368. 	    implicit none

  369. 	    real(8), intent(in) :: v

  370. 	    data%Equipments%DataDisplayConsole%CasingPressureGauge = v

  371.         data%Equipments%DrillingWatch%CasingPressure = v

  372.         data%Equipments%ChokeControlPanel%CasingPressure = v

  373.         data%Equipments%DataDisplayConsole%CasingPressure = v

  374.     end subroutine

  375.     

  376.     subroutine Set_StandPipePressure(v)

  377.         use SimulationVariables !@!, only: data%Equipments%DrillingWatch%PumpPressure

  378.         use CChokeControlPanelVariables

  379.     use SimulationVariables!, only: StandPipePressureChoke => data%Equipments%DataDisplayConsole%StandPipePressure

  380. 	    implicit none

  381. 	    real(8), intent(in) :: v

  382. 	    data%Equipments%DataDisplayConsole%StandPipePressureGauge = v

  383.         data%Equipments%DrillingWatch%PumpPressure = v

  384.         data%Equipments%ChokeControlPanel%StandPipePressure = v

  385.         data%Equipments%DataDisplayConsole%StandPipePressure = v

  386.         

  387.         

  388.         

  389.     end subroutine

  390.     

  391.     

  392.     subroutine Set_RotaryRPMGauge(v)

  393.         use SimulationVariables !@!, only: data%Equipments%DrillingWatch%RPM

  394. 	    implicit none

  395. 	    real(8), intent(in) :: v

  396. 	    data%Equipments%DataDisplayConsole%RotaryRPMGauge = v

  397.         data%Equipments%DrillingWatch%RPM = v

  398.         data%Equipments%DataDisplayConsole%RTRPM = v

  399.         ! call data%Equipments%DataDisplayConsole%OnRotaryRpmChange%RunAll(v)

  400.     end subroutine

  401.     

  402.     

  403.     

  404.     

  405.     subroutine Set_MP1SPMGauge(v)

  406. 	    implicit none

  407. 	    real(8), intent(in) :: v

  408. 	    data%Equipments%DataDisplayConsole%MP1SPMGauge = v

  409.         data%Equipments%DataDisplayConsole%MP1SPM = v

  410.         !@data%State%unitySignals%(PumpsSpmChanges)) call PumpsSpmChanges(data%Equipments%DataDisplayConsole%MP1SPMGauge, data%Equipments%DataDisplayConsole%MP2SPMGauge)

  411. #ifdef deb

  412. 	    print*, 'MP1SPMGauge=', data%Equipments%DataDisplayConsole%MP1SPMGauge

  413. #endif

  414.     end subroutine

  415.     

  416.     subroutine Set_MP2SPMGauge(v)

  417. 	    implicit none

  418. 	    real(8), intent(in) :: v

  419. 	    data%Equipments%DataDisplayConsole%MP2SPMGauge = v

  420.         data%Equipments%DataDisplayConsole%MP2SPM = v

  421.         !@data%State%unitySignals%(PumpsSpmChanges)) call PumpsSpmChanges(data%Equipments%DataDisplayConsole%MP1SPMGauge, data%Equipments%DataDisplayConsole%MP2SPMGauge)

  422. #ifdef deb

  423. 	    print*, 'MP2SPMGauge=', data%Equipments%DataDisplayConsole%MP2SPMGauge

  424. #endif

  425.     end subroutine

  426. end module CDataDisplayConsole