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

74 lines
3.3 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. 		use json_module,IK =>json_ik

  10.         type(json_value),pointer :: parent

  11.         type(json_core) :: json

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

  13. 		logical::is_found

  14. 		integer::i,n_children

  15. 		CHARACTER(KIND=JSON_CK, LEN=:), ALLOCATABLE :: val

  16. 

  17. 

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

  19. 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  44.     end subroutine

  45. 

  46.     subroutine ReservoirToJson(parent)

  47. 

  48.         type(json_value),pointer :: parent

  49.         type(json_core) :: json

  50.         type(json_value),pointer :: p

  51. 

  52.         ! 1. create new node

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

  54.         

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

  56.         ! call StringConfigurationToJson(p)

  57.         ! call FormationToJson(p)

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

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

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

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

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

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

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

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

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

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

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

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

  70. 

  71.         ! 3. add new node to parent

  72.         call json%add(parent,p)

  73.     end subroutine

  74. end module CReservoir