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/WellProfile/CCasingLinerChoke.f90

81 lines
4.1 KiB
Raw Blame History 

  1. module CCasingLinerChoke

  2.     use SimulationVariables

  3.     use json_module

  4.     implicit none    

  5.     public    

  6.     contains   

  7.     

  8.     subroutine CasingLinerChokeToJson(parent)

  9. 

  10.         type(json_value),pointer :: parent

  11.         type(json_core) :: json

  12.         type(json_value),pointer :: p

  13. 

  14.         ! 1. create new node

  15.         call json%create_object(p,'CasingLinerChoke')

  16.         

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

  18.         ! call StringConfigurationToJson(p) 

  19.         ! call FormationToJson(p) 

  20.         call json%add(p,"CasingDepth",data%Configuration%CasingLinerChoke%CasingDepth)

  21.         call json%add(p,"CasingId",data%Configuration%CasingLinerChoke%CasingId)

  22.         call json%add(p,"CasingOd",data%Configuration%CasingLinerChoke%CasingOd)

  23.         call json%add(p,"CasingWeight",data%Configuration%CasingLinerChoke%CasingWeight)

  24.         call json%add(p,"CasingCollapsePressure",data%Configuration%CasingLinerChoke%CasingCollapsePressure)

  25.         call json%add(p,"CasingTensileStrength",data%Configuration%CasingLinerChoke%CasingTensileStrength)

  26.         call json%add(p,"LinerTopDepth",data%Configuration%CasingLinerChoke%LinerTopDepth)

  27.         call json%add(p,"LinerLength",data%Configuration%CasingLinerChoke%LinerLength)

  28.         call json%add(p,"LinerId",data%Configuration%CasingLinerChoke%LinerId)

  29.         call json%add(p,"LinerOd",data%Configuration%CasingLinerChoke%LinerOd)

  30.         call json%add(p,"LinerWeight",data%Configuration%CasingLinerChoke%LinerWeight)

  31.         call json%add(p,"LinerCollapsePressure",data%Configuration%CasingLinerChoke%LinerCollapsePressure)

  32.         call json%add(p,"LinerTensileStrength",data%Configuration%CasingLinerChoke%LinerTensileStrength)

  33.         call json%add(p,"OpenHoleId",data%Configuration%CasingLinerChoke%OpenHoleId)

  34.         call json%add(p,"OpenHoleLength",data%Configuration%CasingLinerChoke%OpenHoleLength)

  35.         ! 3. add new node to parent

  36.         call json%add(parent,p)

  37.     end subroutine

  38. 

  39.     subroutine CasingLinerChokeFromJson(parent)

  40.         use json_module,IK =>json_ik

  41.         type(json_value),pointer :: parent

  42.         type(json_core) :: json

  43.         type(json_value),pointer :: p,pitems,pitem,pval,pbit

  44. 

  45.         call json%get(parent,'CasingLinerChoke',p)

  46. 

  47.         call json%get(p,"CasingDepth",pitem)

  48. 		call json%get(pitem,data%Configuration%CasingLinerChoke%CasingDepth)

  49.         call json%get(p,"CasingId",pitem)

  50. 		call json%get(pitem,data%Configuration%CasingLinerChoke%CasingId)

  51.         call json%get(p,"CasingOd",pitem)

  52. 		call json%get(pitem,data%Configuration%CasingLinerChoke%CasingOd)

  53.         call json%get(p,"CasingWeight",pitem)

  54. 		call json%get(pitem,data%Configuration%CasingLinerChoke%CasingWeight)

  55.         call json%get(p,"CasingCollapsePressure",pitem)

  56. 		call json%get(pitem,data%Configuration%CasingLinerChoke%CasingCollapsePressure)

  57.         call json%get(p,"CasingTensileStrength",pitem)

  58. 		call json%get(pitem,data%Configuration%CasingLinerChoke%CasingTensileStrength)

  59.         call json%get(p,"LinerTopDepth",pitem)

  60. 		call json%get(pitem,data%Configuration%CasingLinerChoke%LinerTopDepth)

  61.         call json%get(p,"LinerLength",pitem)

  62. 		call json%get(pitem,data%Configuration%CasingLinerChoke%LinerLength)

  63.         call json%get(p,"LinerId",pitem)

  64. 		call json%get(pitem,data%Configuration%CasingLinerChoke%LinerId)

  65.         call json%get(p,"LinerOd",pitem)

  66. 		call json%get(pitem,data%Configuration%CasingLinerChoke%LinerOd)

  67.         call json%get(p,"LinerWeight",pitem)

  68. 		call json%get(pitem,data%Configuration%CasingLinerChoke%LinerWeight)

  69.         call json%get(p,"LinerCollapsePressure",pitem)

  70. 		call json%get(pitem,data%Configuration%CasingLinerChoke%LinerCollapsePressure)

  71.         call json%get(p,"LinerTensileStrength",pitem)

  72. 		call json%get(pitem,data%Configuration%CasingLinerChoke%LinerTensileStrength)

  73.         call json%get(p,"OpenHoleId",pitem)

  74. 		call json%get(pitem,data%Configuration%CasingLinerChoke%OpenHoleId)

  75.         call json%get(p,"OpenHoleLength",pitem)

  76. 		call json%get(pitem,data%Configuration%CasingLinerChoke%OpenHoleLength)

  77. 

  78.     end subroutine

  79. 

  80. 

  81. end module CCasingLinerChoke