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

250 lines
14 KiB
Raw Blame History 

  1. module CDataDisplayConsole

  2. 	! use CDataDisplayConsole

  3.     use SimulationVariables

  4. 	implicit none    

  5. 	public    

  6.     contains  

  7. 

  8.     subroutine CDataDisplayToJson(parent)

  9. 

  10.         type(json_value),pointer :: parent

  11.         type(json_core) :: json

  12.         type(json_value),pointer :: p

  13. 

  14.         ! 1. create new node

  15.         call json%create_object(p,'CDataDisplay')

  16.         call json%add(p,"TripAlarmLow",data%Equipments%ControlPanel%CDataDisplay%TripAlarmLow)

  17.         call json%add(p,"TripAlarmHigh",data%Equipments%ControlPanel%CDataDisplay%TripAlarmHigh)

  18.         call json%add(p,"RetFlowAlarmLow",data%Equipments%ControlPanel%CDataDisplay%RetFlowAlarmLow)

  19.         call json%add(p,"RetFlowAlarmHigh",data%Equipments%ControlPanel%CDataDisplay%RetFlowAlarmHigh)

  20.         call json%add(p,"PitAlarmLow",data%Equipments%ControlPanel%CDataDisplay%PitAlarmLow)

  21.         call json%add(p,"PitAlarmHigh",data%Equipments%ControlPanel%CDataDisplay%PitAlarmHigh)

  22.         call json%add(p,"PortWeightOnBit",data%Equipments%ControlPanel%CDataDisplay%PortWeightOnBit)

  23.         call json%add(p,"PortHookLoad",data%Equipments%ControlPanel%CDataDisplay%PortHookLoad)

  24.         call json%add(p,"PortCasingPressure",data%Equipments%ControlPanel%CDataDisplay%PortCasingPressure)

  25.         call json%add(p,"PortPumpPressure",data%Equipments%ControlPanel%CDataDisplay%PortPumpPressure)

  26.         call json%add(p,"TripTankSetAlarmLow",data%Equipments%ControlPanel%CDataDisplay%TripTankSetAlarmLow)

  27.         call json%add(p,"TripTankSetAlarmHigh",data%Equipments%ControlPanel%CDataDisplay%TripTankSetAlarmHigh)

  28.         call json%add(p,"TripTankSetAlarmSwitch",data%Equipments%ControlPanel%CDataDisplay%TripTankSetAlarmSwitch)

  29.         call json%add(p,"TripTankPowerSwitch",data%Equipments%ControlPanel%CDataDisplay%TripTankPowerSwitch)

  30.         call json%add(p,"TripTankPumpSwitch",data%Equipments%ControlPanel%CDataDisplay%TripTankPumpSwitch)

  31.         call json%add(p,"TripTankHornSwitch",data%Equipments%ControlPanel%CDataDisplay%TripTankHornSwitch)

  32.         call json%add(p,"AcidGasDetectionHornSwitch",data%Equipments%ControlPanel%CDataDisplay%AcidGasDetectionHornSwitch)

  33.         call json%add(p,"TotalStrokeCounterResetSwitch",data%Equipments%ControlPanel%CDataDisplay%TotalStrokeCounterResetSwitch)

  34.         call json%add(p,"DrillingTrippingSelectorSwitch",data%Equipments%ControlPanel%CDataDisplay%DrillingTrippingSelectorSwitch)

  35.         call json%add(p,"MVTSetAlarmLowKnob",data%Equipments%ControlPanel%CDataDisplay%MVTSetAlarmLowKnob)

  36.         call json%add(p,"MVTSetAlarmHighKnob",data%Equipments%ControlPanel%CDataDisplay%MVTSetAlarmHighKnob)

  37.         call json%add(p,"MVTSetAlarmSwitch",data%Equipments%ControlPanel%CDataDisplay%MVTSetAlarmSwitch)

  38.         call json%add(p,"MudTank1Switch",data%Equipments%ControlPanel%CDataDisplay%MudTank1Switch)

  39.         call json%add(p,"MudTank2Switch",data%Equipments%ControlPanel%CDataDisplay%MudTank2Switch)

  40.         call json%add(p,"MudTank3Switch",data%Equipments%ControlPanel%CDataDisplay%MudTank3Switch)

  41.         call json%add(p,"MudTank4Switch",data%Equipments%ControlPanel%CDataDisplay%MudTank4Switch)

  42.         call json%add(p,"MVTFineKnob",data%Equipments%ControlPanel%CDataDisplay%MVTFineKnob)

  43.         call json%add(p,"MVTCoarseKnob",data%Equipments%ControlPanel%CDataDisplay%MVTCoarseKnob)

  44.         call json%add(p,"MVTHornSwitch",data%Equipments%ControlPanel%CDataDisplay%MVTHornSwitch)

  45.         call json%add(p,"MVTDeviationTripSelectionSwitch",data%Equipments%ControlPanel%CDataDisplay%MVTDeviationTripSelectionSwitch)

  46.         call json%add(p,"MVTPowerSwitch",data%Equipments%ControlPanel%CDataDisplay%MVTPowerSwitch)

  47.         call json%add(p,"MFFIResetTotalStrokes",data%Equipments%ControlPanel%CDataDisplay%MFFIResetTotalStrokes)

  48.         call json%add(p,"MFFIResetFillCounter",data%Equipments%ControlPanel%CDataDisplay%MFFIResetFillCounter)

  49.         call json%add(p,"MFFIPumpSelectorSwitch",data%Equipments%ControlPanel%CDataDisplay%MFFIPumpSelectorSwitch)

  50.         call json%add(p,"MFFIFillSPMSelectorSwitch",data%Equipments%ControlPanel%CDataDisplay%MFFIFillSPMSelectorSwitch)

  51.         call json%add(p,"MFFISetAlarmLowKnob",data%Equipments%ControlPanel%CDataDisplay%MFFISetAlarmLowKnob)

  52.         call json%add(p,"MFFISetAlarmHighKnob",data%Equipments%ControlPanel%CDataDisplay%MFFISetAlarmHighKnob)

  53.         call json%add(p,"MFFISetAlarmSwitch",data%Equipments%ControlPanel%CDataDisplay%MFFISetAlarmSwitch)

  54.         call json%add(p,"MFFIPowerSwitch",data%Equipments%ControlPanel%CDataDisplay%MFFIPowerSwitch)

  55.         call json%add(p,"MFFIHornSwitch",data%Equipments%ControlPanel%CDataDisplay%MFFIHornSwitch)

  56.         call json%add(p,"ResetWob",data%Equipments%ControlPanel%CDataDisplay%ResetWob)

  57.         call json%add(p,"Clutch",data%Equipments%ControlPanel%CDataDisplay%Clutch)

  58.         call json%add(p,"WOBPointer",data%Equipments%ControlPanel%CDataDisplay%WOBPointer)

  59.         call json%add(p,"HookLoadPointer",data%Equipments%ControlPanel%CDataDisplay%HookLoadPointer)

  60.         call json%add(p,"TripTankGauge",data%Equipments%ControlPanel%CDataDisplay%TripTankGauge)

  61.         call json%add(p,"TripTankAlarmLED",data%Equipments%ControlPanel%CDataDisplay%TripTankAlarmLED)

  62.         call json%add(p,"TripTankPumpLED",data%Equipments%ControlPanel%CDataDisplay%TripTankPumpLED)

  63.         call json%add(p,"StandPipePressureGauge",data%Equipments%ControlPanel%CDataDisplay%StandPipePressureGauge)

  64.         call json%add(p,"CasingPressureGauge",data%Equipments%ControlPanel%CDataDisplay%CasingPressureGauge)

  65.         call json%add(p,"MP1SPMGauge",data%Equipments%ControlPanel%CDataDisplay%MP1SPMGauge)

  66.         call json%add(p,"MP2SPMGauge",data%Equipments%ControlPanel%CDataDisplay%MP2SPMGauge)

  67.         call json%add(p,"ReturnLineTempGauge",data%Equipments%ControlPanel%CDataDisplay%ReturnLineTempGauge)

  68.         call json%add(p,"RotaryTorqueGauge",data%Equipments%ControlPanel%CDataDisplay%RotaryTorqueGauge)

  69.         call json%add(p,"RotaryRPMGauge",data%Equipments%ControlPanel%CDataDisplay%RotaryRPMGauge)

  70.         call json%add(p,"AcidGasDetectionLED",data%Equipments%ControlPanel%CDataDisplay%AcidGasDetectionLED)

  71.         call json%add(p,"TotalStrokeCounter",data%Equipments%ControlPanel%CDataDisplay%TotalStrokeCounter)

  72.         call json%add(p,"TotalStrokeCounter_temp",data%Equipments%ControlPanel%CDataDisplay%TotalStrokeCounter_temp)

  73.         call json%add(p,"PitGainLossGauge",data%Equipments%ControlPanel%CDataDisplay%PitGainLossGauge)

  74.         call json%add(p,"MudTanksVolumeGauge",data%Equipments%ControlPanel%CDataDisplay%MudTanksVolumeGauge)

  75.         call json%add(p,"MVTAlarmLED",data%Equipments%ControlPanel%CDataDisplay%MVTAlarmLED)

  76.         call json%add(p,"ReturnMudFlowGauge",data%Equipments%ControlPanel%CDataDisplay%ReturnMudFlowGauge)

  77.         call json%add(p,"FillStrokeCounter",data%Equipments%ControlPanel%CDataDisplay%FillStrokeCounter)

  78.         call json%add(p,"MFFITotalStrokeCounter",data%Equipments%ControlPanel%CDataDisplay%MFFITotalStrokeCounter)

  79.         call json%add(p,"MFFIAlarmLED",data%Equipments%ControlPanel%CDataDisplay%MFFIAlarmLED)

  80.         call json%add(p,"MFFIPumpLED",data%Equipments%ControlPanel%CDataDisplay%MFFIPumpLED)

  81.         call json%add(p,"TotalWellDepth",data%Equipments%ControlPanel%CDataDisplay%TotalWellDepth)

  82.         call json%add(p,"BitDepth",data%Equipments%ControlPanel%CDataDisplay%BitDepth)

  83.         call json%add(p,"HookLoad",data%Equipments%ControlPanel%CDataDisplay%HookLoad)

  84.         call json%add(p,"StandPipePressure",data%Equipments%ControlPanel%CDataDisplay%StandPipePressure)

  85.         call json%add(p,"CasingPressure",data%Equipments%ControlPanel%CDataDisplay%CasingPressure)

  86.         call json%add(p,"MP1SPM",data%Equipments%ControlPanel%CDataDisplay%MP1SPM)

  87.         call json%add(p,"MP2SPM",data%Equipments%ControlPanel%CDataDisplay%MP2SPM)

  88.         call json%add(p,"RTTorque",data%Equipments%ControlPanel%CDataDisplay%RTTorque)

  89.         call json%add(p,"RTRPM",data%Equipments%ControlPanel%CDataDisplay%RTRPM)

  90.         call json%add(p,"WOP",data%Equipments%ControlPanel%CDataDisplay%WOP)

  91.         call json%add(p,"ROP",data%Equipments%ControlPanel%CDataDisplay%ROP)

  92.         call json%add(p,"MudWeightIn",data%Equipments%ControlPanel%CDataDisplay%MudWeightIn)

  93.         call json%add(p,"MudWeightOut",data%Equipments%ControlPanel%CDataDisplay%MudWeightOut)

  94.         call json%add(p,"Buzzer1",data%Equipments%ControlPanel%CDataDisplay%Buzzer1)

  95.         call json%add(p,"Buzzer2",data%Equipments%ControlPanel%CDataDisplay%Buzzer2)

  96.         call json%add(p,"Buzzer3",data%Equipments%ControlPanel%CDataDisplay%Buzzer3)

  97.         call json%add(p,"Buzzer4",data%Equipments%ControlPanel%CDataDisplay%Buzzer4)

  98.     

  99. 

  100.         call json%add(parent,p)

  101.     end subroutine

  102. 

  103. 

  104.     subroutine Set_TotalDepth(v)

  105.         use SimulationVariables !@!!, only: data%EquipmentControl%DrillingWatch%Depth

  106.         ! use CSimulationVariables, only: SetDistanceDrilled

  107. 	    implicit none

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

  109. 	    data%EquipmentControl%DataDisplayConsole%TotalWellDepth = v

  110.         data%EquipmentControl%DrillingWatch%Depth = v

  111.         ! call SetDistanceDrilled(v)

  112.     end subroutine

  113.     

  114.     subroutine Set_BitPosition(v)

  115.         use SimulationVariables !@!!, only: data%EquipmentControl%DrillingWatch%BitPosition

  116. 	    implicit none

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

  118. 	    data%EquipmentControl%DataDisplayConsole%BitDepth = v

  119.         data%EquipmentControl%DrillingWatch%BitPosition = v

  120.     end subroutine

  121.     

  122.     subroutine Set_RotaryTorque(v)

  123.         use SimulationVariables !@!!, only: data%EquipmentControl%DrillingWatch%Torque

  124. 	    implicit none

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

  126. 	    data%EquipmentControl%DataDisplayConsole%RotaryTorqueGauge = v

  127. 	    data%EquipmentControl%DrillingWatch%Torque = v

  128.         data%EquipmentControl%DataDisplayConsole%RTTorque = v

  129.     end subroutine

  130.     

  131.     

  132.     subroutine Set_MudWeightIn(v)

  133.         use SimulationVariables !@!, only: MudWeightInDw => data%EquipmentControl%DataDisplayConsole%MudWeightIn

  134. 	    implicit none

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

  136. 	    data%EquipmentControl%DataDisplayConsole%MudWeightIn = v

  137. 	    data%EquipmentControl%DrillingWatch%MudWeightIn = v

  138.     end subroutine

  139.     

  140.     subroutine Set_MudWeightOut(v)

  141.         use SimulationVariables !@!, only: MudWeightOutDw => data%EquipmentControl%DataDisplayConsole%MudWeightOut

  142. 	    implicit none

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

  144. 	    data%EquipmentControl%DataDisplayConsole%MudWeightOut = v

  145. 	    data%EquipmentControl%DrillingWatch%MudWeightOut = v

  146.     end subroutine

  147.     

  148.     subroutine Set_TripTankVolume(v)

  149.         use SimulationVariables !@!, only: data%EquipmentControl%DrillingWatch%TripTankVolume

  150. 	    implicit none

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

  152. 	    data%EquipmentControl%DrillingWatch%TripTankVolume = v

  153.     end subroutine

  154.     

  155.     subroutine Set_FillVolume(v)

  156.         use SimulationVariables !@!, only: data%EquipmentControl%DrillingWatch%FillVolume

  157. 	    implicit none

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

  159. 	    data%EquipmentControl%DrillingWatch%FillVolume = v

  160.     end subroutine

  161.     

  162.     subroutine Set_HookLoad(v)

  163.         use SimulationVariables !@!, only: HookLoadDw => data%EquipmentControl%DataDisplayConsole%HookLoad

  164. 	    implicit none

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

  166. 	    data%EquipmentControl%DataDisplayConsole%HookLoadPointer = v

  167.         data%EquipmentControl%DrillingWatch%HookLoad = v * 1000

  168.         data%EquipmentControl%DataDisplayConsole%HookLoad = v

  169.     end subroutine

  170.     

  171.     subroutine Set_WeightOnBit(v)

  172.         use SimulationVariables !@!, only: data%EquipmentControl%DrillingWatch%WeightOnBit

  173. 	    implicit none

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

  175. 	    data%EquipmentControl%DataDisplayConsole%WOBPointer = v

  176.         data%EquipmentControl%DrillingWatch%WeightOnBit = v

  177.         data%EquipmentControl%DataDisplayConsole%WOP = v

  178.     end subroutine

  179.     

  180.     subroutine Set_ROP(v)

  181.         use SimulationVariables !@!, only: ROPDw => data%EquipmentControl%DataDisplayConsole%ROP

  182. 	    implicit none

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

  184. 	    data%EquipmentControl%DataDisplayConsole%ROP = v

  185.         data%EquipmentControl%DrillingWatch%ROP = v

  186.     end subroutine

  187.     

  188.     subroutine Set_CasingPressure(v)

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

  190.         use CChokeControlPanelVariables

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

  192. 	    implicit none

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

  194. 	    data%EquipmentControl%DataDisplayConsole%CasingPressureGauge = v

  195.         data%EquipmentControl%DrillingWatch%CasingPressure = v

  196.         data%EquipmentControl%ChokeControlPanel%CasingPressure = v

  197.         data%EquipmentControl%DataDisplayConsole%CasingPressure = v

  198.     end subroutine

  199.     

  200.     subroutine Set_StandPipePressure(v)

  201.         use SimulationVariables !@!, only: data%EquipmentControl%DrillingWatch%PumpPressure

  202.         use CChokeControlPanelVariables

  203.     use SimulationVariables!, only: StandPipePressureChoke => data%EquipmentControl%DataDisplayConsole%StandPipePressure

  204. 	    implicit none

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

  206. 	    data%EquipmentControl%DataDisplayConsole%StandPipePressureGauge = v

  207.         data%EquipmentControl%DrillingWatch%PumpPressure = v

  208.         data%EquipmentControl%ChokeControlPanel%StandPipePressure = v

  209.         data%EquipmentControl%DataDisplayConsole%StandPipePressure = v

  210.         

  211.         

  212.         

  213.     end subroutine

  214.     

  215.     

  216.     subroutine Set_RotaryRPMGauge(v)

  217.         use SimulationVariables !@!, only: data%EquipmentControl%DrillingWatch%RPM

  218. 	    implicit none

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

  220. 	    data%EquipmentControl%DataDisplayConsole%RotaryRPMGauge = v

  221.         data%EquipmentControl%DrillingWatch%RPM = v

  222.         data%EquipmentControl%DataDisplayConsole%RTRPM = v

  223.         ! call data%EquipmentControl%DataDisplayConsole%OnRotaryRpmChange%RunAll(v)

  224.     end subroutine

  225.     

  226.     

  227.     

  228.     

  229.     subroutine Set_MP1SPMGauge(v)

  230. 	    implicit none

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

  232. 	    data%EquipmentControl%DataDisplayConsole%MP1SPMGauge = v

  233.         data%EquipmentControl%DataDisplayConsole%MP1SPM = v

  234.         !@data%State%unitySignals%(PumpsSpmChanges)) call PumpsSpmChanges(data%EquipmentControl%DataDisplayConsole%MP1SPMGauge, data%EquipmentControl%DataDisplayConsole%MP2SPMGauge)

  235. #ifdef deb

  236. 	    print*, 'MP1SPMGauge=', data%EquipmentControl%DataDisplayConsole%MP1SPMGauge

  237. #endif

  238.     end subroutine

  239.     

  240.     subroutine Set_MP2SPMGauge(v)

  241. 	    implicit none

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

  243. 	    data%EquipmentControl%DataDisplayConsole%MP2SPMGauge = v

  244.         data%EquipmentControl%DataDisplayConsole%MP2SPM = v

  245.         !@data%State%unitySignals%(PumpsSpmChanges)) call PumpsSpmChanges(data%EquipmentControl%DataDisplayConsole%MP1SPMGauge, data%EquipmentControl%DataDisplayConsole%MP2SPMGauge)

  246. #ifdef deb

  247. 	    print*, 'MP2SPMGauge=', data%EquipmentControl%DataDisplayConsole%MP2SPMGauge

  248. #endif

  249.     end subroutine

  250. end module CDataDisplayConsole