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.
44 Commits
2 Branches
134 MiB
 
 
 
 
 
 
Tree: 5908248fa4
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '5908248fa4'
${ noResults }
SimulationCore2/CSharp/BasicInputs/RigSpecifications/CAccumulator.f90

31 lines
1.5 KiB
Raw Blame History 

  1. module CAccumulator

  2.     use SimulationVariables

  3.     ! use CAccumulatorVariables

  4.     use json_module

  5.     implicit none    

  6.     public    

  7.     contains

  8.     

  9.     subroutine AccumulatorToJson(parent)

  10.         type(json_value),pointer :: parent

  11.         type(json_core) :: json

  12.         type(json_value),pointer :: p

  13. 

  14.         call json%create_object(p,'Accumulator')

  15.         

  16.         call json%add(p,'AccumulatorMinimumOperatingPressure',data%Configuration%Accumulator%AccumulatorMinimumOperatingPressure)

  17.         call json%add(p,'AccumulatorSystemSize',data%Configuration%Accumulator%AccumulatorSystemSize)

  18.         call json%add(p,'AirPlungerPumpOutput',data%Configuration%Accumulator%AirPlungerPumpOutput)

  19.         call json%add(p,'ElectricPumpOutput',data%Configuration%Accumulator%ElectricPumpOutput)

  20.         call json%add(p,'NumberOfBottels',data%Configuration%Accumulator%NumberOfBottels)

  21.         call json%add(p,'OilTankVolume',data%Configuration%Accumulator%OilTankVolume)

  22.         call json%add(p,'PrechargePressure',data%Configuration%Accumulator%PrechargePressure)

  23.         call json%add(p,'StartPressure',data%Configuration%Accumulator%StartPressure)

  24.         call json%add(p,'StartPressure2',data%Configuration%Accumulator%StartPressure2)

  25.         call json%add(p,'StopPressure',data%Configuration%Accumulator%StopPressure)

  26.         call json%add(p,'StopPressure2',data%Configuration%Accumulator%StopPressure2)

  27. 

  28.         call json%add(parent,p)

  29.     end subroutine

  30.     

  31. end module CAccumulator