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.
42 Commits
2 Branches
134 MiB
 
 
 
 
 
 
Branch: najafi
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'najafi'
${ noResults }
SimulationCore2/CSharp/Equipments/ControlPanels/CChokeControlPanel.f90

35 lines
1.9 KiB
Raw Permalink Blame History 

  1. module CChokeControlPanel

  2.     use CChokeControlPanelVariables

  3.     use SimulationVariables

  4.     implicit none    

  5.     public    

  6.     contains    

  7. 

  8.     subroutine ChokeControlPanelToJson(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,'ChokeControl')

  16.         call json%add(p,"ChokePanelPumpSelectorSwitch",data%EquipmentControl%ChokeControlPanel%ChokePanelPumpSelectorSwitch)

  17.         call json%add(p,"ChokePanelStrokeResetSwitch",data%EquipmentControl%ChokeControlPanel%ChokePanelStrokeResetSwitch)

  18.         call json%add(p,"ChokeSelectorSwitch",data%EquipmentControl%ChokeControlPanel%ChokeSelectorSwitch)

  19.         call json%add(p,"ChokeRateControlKnob",data%EquipmentControl%ChokeControlPanel%ChokeRateControlKnob)

  20.         call json%add(p,"ChokeControlLever",data%EquipmentControl%ChokeControlPanel%ChokeControlLever)

  21.         call json%add(p,"ChokePanelRigAirSwitch",data%EquipmentControl%ChokeControlPanel%ChokePanelRigAirSwitch)

  22.         call json%add(p,"EnableAutoChoke",data%EquipmentControl%ChokeControlPanel%EnableAutoChoke)

  23.         call json%add(p,"StandPipePressure",data%EquipmentControl%ChokeControlPanel%StandPipePressure)

  24.         call json%add(p,"CasingPressure",data%EquipmentControl%ChokeControlPanel%CasingPressure)

  25.         call json%add(p,"ChokePosition",data%EquipmentControl%ChokeControlPanel%ChokePosition)

  26.         call json%add(p,"ChokePanelSPMCounter",data%EquipmentControl%ChokeControlPanel%ChokePanelSPMCounter)

  27.         call json%add(p,"ChokePanelTotalStrokeCounter",data%EquipmentControl%ChokeControlPanel%ChokePanelTotalStrokeCounter)

  28.         call json%add(p,"Choke1LED",data%EquipmentControl%ChokeControlPanel%Choke1LED)

  29.         call json%add(p,"Choke2LED",data%EquipmentControl%ChokeControlPanel%Choke2LED)

  30. 

  31. 

  32.         call json%add(parent,p)

  33.     end subroutine

  34.     

  35. end module CChokeControlPanel