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.
57 Commits
2 Branches
134 MiB
 
 
 
 
 
 
Tree: 8619d976a7
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '8619d976a7'
${ noResults }
SimulationCore2/CSharp/BasicInputs/Geology/CReservoir.f90

70 lines
3.2 KiB
Raw Blame History 

  1. module CReservoir

  2.     use SimulationVariables

  3.     use json_module

  4.     implicit none

  5. 

  6.     contains    

  7.     

  8. 	subroutine ReservoirFromJson(parent)

  9.         type(json_value),pointer :: parent

  10.         type(json_core) :: json

  11.         type(json_value),pointer :: p,pval

  12. 

  13. 

  14.         call json%get(parent,'Reservoir',p)

  15. 

  16. 		call json%get(p,'FormationNo',pval)

  17. 		call json%get(pval,data%Configuration%Reservoir%FormationNo)

  18. 		call json%get(p,'FormationTop',pval)

  19. 		call json%get(pval,data%Configuration%Reservoir%FormationTop)

  20. 		call json%get(p,'PressureGradient',pval)

  21. 		call json%get(pval,data%Configuration%Reservoir%PressureGradient)

  22. 		call json%get(p,'FormationPermeability',pval)

  23. 		call json%get(pval,data%Configuration%Reservoir%FormationPermeability)

  24. 		call json%get(p,'GeothermalGradient',pval)

  25. 		call json%get(pval,data%Configuration%Reservoir%GeothermalGradient)

  26. 		call json%get(p,'FluidType',pval)

  27. 		call json%get(pval,data%Configuration%Reservoir%FluidType)

  28. 		call json%get(p,'FluidGradient',pval)

  29. 		call json%get(pval,data%Configuration%Reservoir%FluidGradient)

  30. 		call json%get(p,'FluidViscosity',pval)

  31. 		call json%get(pval,data%Configuration%Reservoir%FluidViscosity)

  32. 		call json%get(p,'InactiveInflux',pval)

  33. 		call json%get(pval,data%Configuration%Reservoir%InactiveInflux)

  34. 		call json%get(p,'IsAutoMigrationRateSelected',pval)

  35. 		call json%get(pval,data%Configuration%Reservoir%IsAutoMigrationRateSelected)

  36. 		call json%get(p,'AutoMigrationRate',pval)

  37. 		call json%get(pval,data%Configuration%Reservoir%AutoMigrationRate)

  38. 		call json%get(p,'MakeKickSinglePacket',pval)

  39. 		call json%get(pval,data%Configuration%Reservoir%MakeKickSinglePacket)

  40.     end subroutine

  41. 

  42.     subroutine ReservoirToJson(parent)

  43. 

  44.         type(json_value),pointer :: parent

  45.         type(json_core) :: json

  46.         type(json_value),pointer :: p

  47. 

  48.         ! 1. create new node

  49.         call json%create_object(p,'Reservoir')

  50.         

  51.         ! 2. add member of data type to new node

  52.         ! call StringConfigurationToJson(p)

  53.         ! call FormationToJson(p)

  54.         call json%add(p,"AutoMigrationRate",data%Configuration%Reservoir%AutoMigrationRate)

  55.         call json%add(p,"FluidGradient",data%Configuration%Reservoir%FluidGradient)

  56.         call json%add(p,"FluidType",data%Configuration%Reservoir%FluidType)

  57.         call json%add(p,"FluidViscosity",data%Configuration%Reservoir%FluidViscosity)

  58.         call json%add(p,"FormationNo",data%Configuration%Reservoir%FormationNo)

  59.         call json%add(p,"FormationPermeability",data%Configuration%Reservoir%FormationPermeability)

  60.         call json%add(p,"FormationTop",data%Configuration%Reservoir%FormationTop)

  61.         call json%add(p,"GeothermalGradient",data%Configuration%Reservoir%GeothermalGradient)

  62.         call json%add(p,"InactiveInflux",data%Configuration%Reservoir%InactiveInflux)

  63.         call json%add(p,"IsAutoMigrationRateSelected",data%Configuration%Reservoir%IsAutoMigrationRateSelected)

  64.         call json%add(p,"MakeKickSinglePacket",data%Configuration%Reservoir%MakeKickSinglePacket)

  65.         call json%add(p,"PressureGradient",data%Configuration%Reservoir%PressureGradient)

  66. 

  67.         ! 3. add new node to parent

  68.         call json%add(parent,p)

  69.     end subroutine

  70. end module CReservoir