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

308 lines
14 KiB
Raw Permalink 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. 		! type(json_file)::parent

  13. 

  14.         ! 1. get related root

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

  16. 

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

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

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

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

  21. 

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

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

  24. 

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

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

  27. 		

  28. 

  29. 		! Alarms Upper - lower bounds

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

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

  32. 

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

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

  35. 

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

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

  38. 

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

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

  41. 

  42.         

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  58. 		

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

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

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

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

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

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

  65. 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  96. 		

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

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

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

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

  101. 		

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

  103. 

  104. 

  105. 

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

  107. 

  108.     end subroutine

  109. 

  110.     subroutine DataDisplayConsoleToJson(parent)

  111.         type(json_value),pointer :: parent

  112.         type(json_core) :: json

  113.         type(json_value),pointer :: p

  114. 

  115.         ! 1. create new node

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

  117. 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  143. 		!!!

  144. 		call json%add(p,"StaticHookLoad",data%State%TD_String%StaticHookLoad)

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  159. 

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

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

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

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

  164. 

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

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

  167.     

  168.         call json%add(parent,p)

  169.     end subroutine

  170. 

  171. 

  172.     subroutine Set_TotalDepth(v)

  173. 	    implicit none

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

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

  176. 	    data%Equipments%DataDisplayConsole%TotalWellDepth = v

  177.         data%Equipments%DrillingWatch%Depth = v

  178.         ! call SetDistanceDrilled(v)

  179.     end subroutine

  180.     

  181.     subroutine Set_BitPosition(v)

  182. 	    implicit none

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

  184. 	    data%Equipments%DataDisplayConsole%BitDepth = v

  185.         data%Equipments%DrillingWatch%BitPosition = v

  186.     end subroutine

  187.     

  188.     subroutine Set_RotaryTorque(v)

  189. 	    implicit none

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

  191. 	    data%Equipments%DataDisplayConsole%RotaryTorqueGauge = v

  192. 	    data%Equipments%DrillingWatch%Torque = v

  193.         data%Equipments%DataDisplayConsole%RTTorque = v

  194.     end subroutine

  195.     

  196.     

  197.     subroutine Set_MudWeightIn(v)

  198.         use SimulationVariables

  199. 	    implicit none

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

  201. 	    data%Equipments%DataDisplayConsole%MudWeightIn = v

  202. 	    data%Equipments%DrillingWatch%MudWeightIn = v

  203.     end subroutine

  204.     

  205.     subroutine Set_MudWeightOut(v)

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

  207. 	    implicit none

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

  209. 	    data%Equipments%DataDisplayConsole%MudWeightOut = v

  210. 	    data%Equipments%DrillingWatch%MudWeightOut = v

  211.     end subroutine

  212.     

  213.     subroutine Set_TripTankVolume(v)

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

  215. 	    implicit none

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

  217. 	    data%Equipments%DrillingWatch%TripTankVolume = v

  218.     end subroutine

  219.     

  220.     subroutine Set_FillVolume(v)

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

  222. 	    implicit none

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

  224. 	    data%Equipments%DrillingWatch%FillVolume = v

  225.     end subroutine

  226.     

  227.     subroutine Set_HookLoad(v)

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

  229. 	    implicit none

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

  231. 	    data%Equipments%DataDisplayConsole%HookLoadPointer = v

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

  233.         data%Equipments%DataDisplayConsole%HookLoad = v

  234.     end subroutine

  235.     

  236.     subroutine Set_WeightOnBit(v)

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

  238. 	    implicit none

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

  240. 	    data%Equipments%DataDisplayConsole%WOBPointer = v

  241.         data%Equipments%DrillingWatch%WeightOnBit = v

  242.         data%Equipments%DataDisplayConsole%WOP = v

  243.     end subroutine

  244.     

  245.     subroutine Set_ROP(v)

  246. 	    implicit none

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

  248. 	    data%Equipments%DataDisplayConsole%ROP = v

  249.         data%Equipments%DrillingWatch%ROP = v

  250.     end subroutine

  251.     

  252.     subroutine Set_CasingPressure(v)

  253.         ! use CChokeControlPanelVariables

  254. 	    implicit none

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

  256. 	    data%Equipments%DataDisplayConsole%CasingPressureGauge = v

  257.         data%Equipments%DrillingWatch%CasingPressure = v

  258.         data%Equipments%ChokeControlPanel%CasingPressure = v

  259.         data%Equipments%DataDisplayConsole%CasingPressure = v

  260.     end subroutine

  261.     

  262.     subroutine Set_StandPipePressure(v)

  263. 	    implicit none

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

  265. 	    data%Equipments%DataDisplayConsole%StandPipePressureGauge = v

  266.         data%Equipments%DrillingWatch%PumpPressure = v

  267.         data%Equipments%ChokeControlPanel%StandPipePressure = v

  268.         data%Equipments%DataDisplayConsole%StandPipePressure = v

  269.         

  270.         

  271.         

  272.     end subroutine

  273.     

  274.     

  275.     subroutine Set_RotaryRPMGauge(v)

  276. 	    implicit none

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

  278. 	    data%Equipments%DataDisplayConsole%RotaryRPMGauge = v

  279.         data%Equipments%DrillingWatch%RPM = v

  280.         data%Equipments%DataDisplayConsole%RTRPM = v

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

  282.     end subroutine

  283.     

  284.     

  285.     

  286.     

  287.     subroutine Set_MP1SPMGauge(v)

  288. 	    implicit none

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

  290. 	    data%Equipments%DataDisplayConsole%MP1SPMGauge = v

  291.         data%Equipments%DataDisplayConsole%MP1SPM = v

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

  293. 		#ifdef deb

  294. 				if(print_log) print*, 'MP1SPMGauge=', data%Equipments%DataDisplayConsole%MP1SPMGauge

  295. 		#endif

  296.     end subroutine

  297.     

  298.     subroutine Set_MP2SPMGauge(v)

  299. 	    implicit none

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

  301. 	    data%Equipments%DataDisplayConsole%MP2SPMGauge = v

  302.         data%Equipments%DataDisplayConsole%MP2SPM = v

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

  304. 		#ifdef deb

  305. 				if(print_log) print*, 'MP2SPMGauge=', data%Equipments%DataDisplayConsole%MP2SPMGauge

  306. 		#endif

  307.     end subroutine

  308. end module CDataDisplayConsole