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.
32 Commits
2 Branches
136 MiB
 
 
 
 
 
 
Tree: 78c2611488
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '78c2611488'
${ noResults }
SimulationCore2/CSharp/BasicInputs/WellProfile/CCasingLinerChoke.f90

40 lines
2.0 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. 

  40. end module CCasingLinerChoke