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

72 lines
3.2 KiB
Raw Blame History 

  1. # 1 "/mnt/c/Projects/VSIM/SimulationCore2/CSharp/BasicInputs/Geology/CReservoir.f90"

  2. module CReservoir

  3.     use SimulationVariables

  4.     use json_module

  5.     implicit none

  6. 

  7.     contains    

  8.     

  9. 	subroutine ReservoirFromJson(parent)

  10.         type(json_value),pointer :: parent

  11.         type(json_core) :: json

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

  13. 

  14. 

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

  16. 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  41.     end subroutine

  42. 

  43.     subroutine ReservoirToJson(parent)

  44. 

  45.         type(json_value),pointer :: parent

  46.         type(json_core) :: json

  47.         type(json_value),pointer :: p

  48. 

  49. ! 1. create new node

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

  51.         

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

  53. ! call StringConfigurationToJson(p)

  54. ! call FormationToJson(p)

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

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

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

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

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

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

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

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

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

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

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

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

  67. 

  68. ! 3. add new node to parent

  69.         call json%add(parent,p)

  70.     end subroutine

  71. end module CReservoir