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

274 lines
13 KiB
Raw Blame History 

  1. # 1 "/home/admin/SimulationCore2/CSharp/Equipments/ControlPanels/CDataDisplayConsole.f90"

  2. module CDataDisplayConsole

  3. ! use CDataDisplayConsole

  4.     use SimulationVariables

  5. 	implicit none    

  6. 	public    

  7.     contains  

  8. 

  9.     subroutine DataDisplayConsoleFromJson(parent)

  10.         type(json_value),pointer :: parent

  11.         type(json_core) :: json

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

  13. 

  14. ! 1. get related root

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

  16.         

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  81.     end subroutine

  82. 

  83.     subroutine DataDisplayConsoleToJson(parent)

  84. 

  85.         type(json_value),pointer :: parent

  86.         type(json_core) :: json

  87.         type(json_value),pointer :: p

  88. 

  89. ! 1. create new node

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

  91. 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  131.     

  132. 

  133.         call json%add(parent,p)

  134.     end subroutine

  135. 

  136. 

  137.     subroutine Set_TotalDepth(v)

  138. 	    implicit none

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

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

  141. 	    data%Equipments%DataDisplayConsole%TotalWellDepth = v

  142.         data%Equipments%DrillingWatch%Depth = v

  143. ! call SetDistanceDrilled(v)

  144.     end subroutine

  145.     

  146.     subroutine Set_BitPosition(v)

  147. 	    implicit none

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

  149. 	    data%Equipments%DataDisplayConsole%BitDepth = v

  150.         data%Equipments%DrillingWatch%BitPosition = v

  151.     end subroutine

  152.     

  153.     subroutine Set_RotaryTorque(v)

  154. 	    implicit none

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

  156. 	    data%Equipments%DataDisplayConsole%RotaryTorqueGauge = v

  157. 	    data%Equipments%DrillingWatch%Torque = v

  158.         data%Equipments%DataDisplayConsole%RTTorque = v

  159.     end subroutine

  160.     

  161.     

  162.     subroutine Set_MudWeightIn(v)

  163.         use SimulationVariables

  164. 	    implicit none

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

  166. 	    data%Equipments%DataDisplayConsole%MudWeightIn = v

  167. 	    data%Equipments%DrillingWatch%MudWeightIn = v

  168.     end subroutine

  169.     

  170.     subroutine Set_MudWeightOut(v)

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

  172. 	    implicit none

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

  174. 	    data%Equipments%DataDisplayConsole%MudWeightOut = v

  175. 	    data%Equipments%DrillingWatch%MudWeightOut = v

  176.     end subroutine

  177.     

  178.     subroutine Set_TripTankVolume(v)

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

  180. 	    implicit none

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

  182. 	    data%Equipments%DrillingWatch%TripTankVolume = v

  183.     end subroutine

  184.     

  185.     subroutine Set_FillVolume(v)

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

  187. 	    implicit none

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

  189. 	    data%Equipments%DrillingWatch%FillVolume = v

  190.     end subroutine

  191.     

  192.     subroutine Set_HookLoad(v)

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

  194. 	    implicit none

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

  196. 	    data%Equipments%DataDisplayConsole%HookLoadPointer = v

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

  198.         data%Equipments%DataDisplayConsole%HookLoad = v

  199.     end subroutine

  200.     

  201.     subroutine Set_WeightOnBit(v)

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

  203. 	    implicit none

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

  205. 	    data%Equipments%DataDisplayConsole%WOBPointer = v

  206.         data%Equipments%DrillingWatch%WeightOnBit = v

  207.         data%Equipments%DataDisplayConsole%WOP = v

  208.     end subroutine

  209.     

  210.     subroutine Set_ROP(v)

  211. 	    implicit none

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

  213. 	    data%Equipments%DataDisplayConsole%ROP = v

  214.         data%Equipments%DrillingWatch%ROP = v

  215.     end subroutine

  216.     

  217.     subroutine Set_CasingPressure(v)

  218. ! use CChokeControlPanelVariables

  219. 	    implicit none

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

  221. 	    data%Equipments%DataDisplayConsole%CasingPressureGauge = v

  222.         data%Equipments%DrillingWatch%CasingPressure = v

  223.         data%Equipments%ChokeControlPanel%CasingPressure = v

  224.         data%Equipments%DataDisplayConsole%CasingPressure = v

  225.     end subroutine

  226.     

  227.     subroutine Set_StandPipePressure(v)

  228. 	    implicit none

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

  230. 	    data%Equipments%DataDisplayConsole%StandPipePressureGauge = v

  231.         data%Equipments%DrillingWatch%PumpPressure = v

  232.         data%Equipments%ChokeControlPanel%StandPipePressure = v

  233.         data%Equipments%DataDisplayConsole%StandPipePressure = v

  234.         

  235.         

  236.         

  237.     end subroutine

  238.     

  239.     

  240.     subroutine Set_RotaryRPMGauge(v)

  241. 	    implicit none

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

  243. 	    data%Equipments%DataDisplayConsole%RotaryRPMGauge = v

  244.         data%Equipments%DrillingWatch%RPM = v

  245.         data%Equipments%DataDisplayConsole%RTRPM = v

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

  247.     end subroutine

  248.     

  249.     

  250.     

  251.     

  252.     subroutine Set_MP1SPMGauge(v)

  253. 	    implicit none

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

  255. 	    data%Equipments%DataDisplayConsole%MP1SPMGauge = v

  256.         data%Equipments%DataDisplayConsole%MP1SPM = v

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

  258. 		#ifdef deb

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

  260. 		#endif

  261.     end subroutine

  262.     

  263.     subroutine Set_MP2SPMGauge(v)

  264. 	    implicit none

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

  266. 	    data%Equipments%DataDisplayConsole%MP2SPMGauge = v

  267.         data%Equipments%DataDisplayConsole%MP2SPM = v

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

  269. 		#ifdef deb

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

  271. 		#endif

  272.     end subroutine

  273. end module CDataDisplayConsole