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

310 lines
14 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. ! type(json_file)::parent

  14. 

  15. ! 1. get related root

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

  17. 

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

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

  20. 

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

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

  23. 

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

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

  26. 

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

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

  29. 		

  30. 

  31. ! Alarms Upper - lower bounds

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

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

  34. 

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

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

  37. 

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

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

  40. 

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

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

  43. 

  44.         

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  60. 		

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

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

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

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

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

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

  67. 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  98. 		

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

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

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

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

  103. 		

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

  105. 

  106. 

  107. 

  108. ! call jsonfile%get('Equipments.DataDisplay.MVTAlarmHigh',data%Equipments%DataDisplayConsole%MVTAlarmHigh,found)

  109. 

  110.     end subroutine

  111. 

  112.     subroutine DataDisplayConsoleToJson(parent)

  113. 

  114.         type(json_value),pointer :: parent

  115.         type(json_core) :: json

  116.         type(json_value),pointer :: p

  117. 

  118. ! 1. create new node

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

  120. 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  160. 

  161. 		call json%add(p,"MFFIAlarmLow",data%Equipments%DataDisplayConsole%MFFIAlarmLow)

  162.         call json%add(p,"MFFIAlarmHigh",data%Equipments%DataDisplayConsole%MFFIAlarmHigh)

  163.         call json%add(p,"MVTAlarmLow",data%Equipments%DataDisplayConsole%MVTAlarmLow)

  164.         call json%add(p,"MVTAlarmHigh",data%Equipments%DataDisplayConsole%MVTAlarmHigh)

  165. 

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

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

  168.     

  169.         call json%add(parent,p)

  170.     end subroutine

  171. 

  172. 

  173.     subroutine Set_TotalDepth(v)

  174. 	    implicit none

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

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

  177. 	    data%Equipments%DataDisplayConsole%TotalWellDepth = v

  178.         data%Equipments%DrillingWatch%Depth = v

  179. ! call SetDistanceDrilled(v)

  180.     end subroutine

  181.     

  182.     subroutine Set_BitPosition(v)

  183. 	    implicit none

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

  185. 	    data%Equipments%DataDisplayConsole%BitDepth = v

  186.         data%Equipments%DrillingWatch%BitPosition = v

  187.     end subroutine

  188.     

  189.     subroutine Set_RotaryTorque(v)

  190. 	    implicit none

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

  192. 	    data%Equipments%DataDisplayConsole%RotaryTorqueGauge = v

  193. 	    data%Equipments%DrillingWatch%Torque = v

  194.         data%Equipments%DataDisplayConsole%RTTorque = v

  195.     end subroutine

  196.     

  197.     

  198.     subroutine Set_MudWeightIn(v)

  199.         use SimulationVariables

  200. 	    implicit none

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

  202. 	    data%Equipments%DataDisplayConsole%MudWeightIn = v

  203. 	    data%Equipments%DrillingWatch%MudWeightIn = v

  204.     end subroutine

  205.     

  206.     subroutine Set_MudWeightOut(v)

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

  208. 	    implicit none

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

  210. 	    data%Equipments%DataDisplayConsole%MudWeightOut = v

  211. 	    data%Equipments%DrillingWatch%MudWeightOut = v

  212.     end subroutine

  213.     

  214.     subroutine Set_TripTankVolume(v)

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

  216. 	    implicit none

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

  218. 	    data%Equipments%DrillingWatch%TripTankVolume = v

  219.     end subroutine

  220.     

  221.     subroutine Set_FillVolume(v)

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

  223. 	    implicit none

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

  225. 	    data%Equipments%DrillingWatch%FillVolume = v

  226.     end subroutine

  227.     

  228.     subroutine Set_HookLoad(v)

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

  230. 	    implicit none

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

  232. 	    data%Equipments%DataDisplayConsole%HookLoadPointer = v

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

  234.         data%Equipments%DataDisplayConsole%HookLoad = v

  235.     end subroutine

  236.     

  237.     subroutine Set_WeightOnBit(v)

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

  239. 	    implicit none

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

  241. 	    data%Equipments%DataDisplayConsole%WOBPointer = v

  242.         data%Equipments%DrillingWatch%WeightOnBit = v

  243.         data%Equipments%DataDisplayConsole%WOP = v

  244.     end subroutine

  245.     

  246.     subroutine Set_ROP(v)

  247. 	    implicit none

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

  249. 	    data%Equipments%DataDisplayConsole%ROP = v

  250.         data%Equipments%DrillingWatch%ROP = v

  251.     end subroutine

  252.     

  253.     subroutine Set_CasingPressure(v)

  254. ! use CChokeControlPanelVariables

  255. 	    implicit none

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

  257. 	    data%Equipments%DataDisplayConsole%CasingPressureGauge = v

  258.         data%Equipments%DrillingWatch%CasingPressure = v

  259.         data%Equipments%ChokeControlPanel%CasingPressure = v

  260.         data%Equipments%DataDisplayConsole%CasingPressure = v

  261.     end subroutine

  262.     

  263.     subroutine Set_StandPipePressure(v)

  264. 	    implicit none

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

  266. 	    data%Equipments%DataDisplayConsole%StandPipePressureGauge = v

  267.         data%Equipments%DrillingWatch%PumpPressure = v

  268.         data%Equipments%ChokeControlPanel%StandPipePressure = v

  269.         data%Equipments%DataDisplayConsole%StandPipePressure = v

  270.         

  271.         

  272.         

  273.     end subroutine

  274.     

  275.     

  276.     subroutine Set_RotaryRPMGauge(v)

  277. 	    implicit none

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

  279. 	    data%Equipments%DataDisplayConsole%RotaryRPMGauge = v

  280.         data%Equipments%DrillingWatch%RPM = v

  281.         data%Equipments%DataDisplayConsole%RTRPM = v

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

  283.     end subroutine

  284.     

  285.     

  286.     

  287.     

  288.     subroutine Set_MP1SPMGauge(v)

  289. 	    implicit none

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

  291. 	    data%Equipments%DataDisplayConsole%MP1SPMGauge = v

  292.         data%Equipments%DataDisplayConsole%MP1SPM = v

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

  294. 		#ifdef deb

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

  296. 		#endif

  297.     end subroutine

  298.     

  299.     subroutine Set_MP2SPMGauge(v)

  300. 	    implicit none

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

  302. 	    data%Equipments%DataDisplayConsole%MP2SPMGauge = v

  303.         data%Equipments%DataDisplayConsole%MP2SPM = v

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

  305. 		#ifdef deb

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

  307. 		#endif

  308.     end subroutine

  309. end module CDataDisplayConsole