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/CChokeControlPanel.f90

54 lines
3.4 KiB
Raw Permalink Blame History 

  1. module CChokeControlPanel

  2.     use CChokeControlPanelVariables

  3.     use SimulationVariables

  4.     implicit none    

  5.     public    

  6.     contains

  7. 

  8.     subroutine ChokeControlPanelFromJson(jsonfile)

  9. 		type(json_file)::jsonfile

  10. 		logical::found

  11. 

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

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

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

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

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

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

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

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

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

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

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

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

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

  25.         end subroutine

  26. 

  27.     subroutine ChokeControlPanelToJson(parent)

  28. 

  29.         type(json_value),pointer :: parent

  30.         type(json_core) :: json

  31.         type(json_value),pointer :: p

  32. 

  33.         ! 1. create new node

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  49. 

  50. 

  51.         call json%add(parent,p)

  52.     end subroutine

  53.     

  54. end module CChokeControlPanel