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
 
 
 
 
 
 
Tree: a57ac8edd6
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'a57ac8edd6'
${ noResults }
SimulationCore2/CSharp/Equipments/ControlPanels/CChokeControlPanel.i90

56 lines
3.4 KiB
Raw Blame History 

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

  2. module CChokeControlPanel

  3.     use CChokeControlPanelVariables

  4.     use SimulationVariables

  5.     implicit none    

  6.     public    

  7.     contains

  8. 

  9.     subroutine ChokeControlPanelFromJson(jsonfile)

  10. 		type(json_file)::jsonfile

  11. 		logical::found

  12. 

  13.         call jsonfile%get('Equipments.ChokeControl.ChokePanelPumpSelectorSwitch',data%Equipments%ChokeControlPanel%ChokePanelPumpSelectorSwitch,found)

  14.         if ( .not. found ) call logg(4,"Not found: ChokeControlPanel%ChokePanelPumpSelectorSwitch")

  15.         call jsonfile%get('Equipments.ChokeControl.ChokePanelStrokeResetSwitch',data%Equipments%ChokeControlPanel%ChokePanelStrokeResetSwitch,found)

  16.         if ( .not. found ) call logg(4,"Not found: ChokeControlPanel%ChokePanelStrokeResetSwitch")

  17.         call jsonfile%get('Equipments.ChokeControl.ChokeSelectorSwitch',data%Equipments%ChokeControlPanel%ChokeSelectorSwitch,found)

  18.         if ( .not. found ) call logg(4,"Not found: ChokeControlPanel%ChokeSelectorSwitch")

  19.         call jsonfile%get('Equipments.ChokeControl.ChokeRateControlKnob',data%Equipments%ChokeControlPanel%ChokeRateControlKnob,found)

  20.         if ( .not. found ) call logg(4,"Not found: ChokeControlPanel%ChokeRateControlKnob")

  21.         call jsonfile%get('Equipments.ChokeControl.ChokeControlLever',data%Equipments%ChokeControlPanel%ChokeControlLever,found)

  22.         if ( .not. found ) call logg(4,"Not found: ChokeControlPanel%ChokeControlLever")

  23.         call jsonfile%get('Equipments.ChokeControl.ChokePanelRigAirSwitch',data%Equipments%ChokeControlPanel%ChokePanelRigAirSwitch,found)

  24.         if ( .not. found ) call logg(4,"Not found: ChokeControlPanel%ChokePanelRigAirSwitch")

  25. ! print *,data%Equipments%ChokeControlPanel%ChokeSelectorSwitch

  26.         end subroutine

  27. 

  28.     subroutine ChokeControlPanelToJson(parent)

  29. 

  30.         type(json_value),pointer :: parent

  31.         type(json_core) :: json

  32.         type(json_value),pointer :: p

  33. 

  34. ! 1. create new node

  35.         call json%create_object(p,'ChokeControl')

  36.         call json%add(p,"ChokePanelPumpSelectorSwitch",data%Equipments%ChokeControlPanel%ChokePanelPumpSelectorSwitch)

  37.         call json%add(p,"ChokePanelStrokeResetSwitch",data%Equipments%ChokeControlPanel%ChokePanelStrokeResetSwitch)

  38.         call json%add(p,"ChokeSelectorSwitch",data%Equipments%ChokeControlPanel%ChokeSelectorSwitch)

  39.         call json%add(p,"ChokeRateControlKnob",data%Equipments%ChokeControlPanel%ChokeRateControlKnob)

  40.         call json%add(p,"ChokeControlLever",data%Equipments%ChokeControlPanel%ChokeControlLever)

  41.         call json%add(p,"ChokePanelRigAirSwitch",data%Equipments%ChokeControlPanel%ChokePanelRigAirSwitch)

  42. ! call json%add(p,"EnableAutoChoke",data%Equipments%ChokeControlPanel%EnableAutoChoke)

  43.         call json%add(p,"StandPipePressure",data%Equipments%ChokeControlPanel%StandPipePressure)

  44.         call json%add(p,"CasingPressure",data%Equipments%ChokeControlPanel%CasingPressure)

  45.         call json%add(p,"ChokePosition",data%Equipments%ChokeControlPanel%ChokePosition)

  46.         call json%add(p,"ChokePanelSPMCounter",data%Equipments%ChokeControlPanel%ChokePanelSPMCounter)

  47.         call json%add(p,"ChokePanelTotalStrokeCounter",data%Equipments%ChokeControlPanel%ChokePanelTotalStrokeCounter)

  48.         call json%add(p,"Choke1LED",data%Equipments%ChokeControlPanel%Choke1LED)

  49.         call json%add(p,"Choke2LED",data%Equipments%ChokeControlPanel%Choke2LED)

  50. 

  51. 

  52.         call json%add(parent,p)

  53.     end subroutine

  54.     

  55. end module CChokeControlPanel