mahmood19227
/
SimulationCore2
1
0
Разклонения 0
Код Задачи 0 Заявки за сливане 0 Версии 0 Уики 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 Ревизии
2 Клонове
134 MiB
 
 
 
 
 
 
ИН на ревизия: 8619d976a7
Клонове Маркери
${ item.name }
Create branch ${ searchTerm }
от '8619d976a7'
${ noResults }
SimulationCore2/CSharp/BasicInputs/WellProfile/CCasingLinerChoke.i90

83 lines
4.0 KiB
Директен файл Blame История 

  1. # 1 "/mnt/c/Projects/VSIM/SimulationCore2/CSharp/BasicInputs/WellProfile/CCasingLinerChoke.f90"

  2. module CCasingLinerChoke

  3.     use SimulationVariables

  4.     use json_module

  5.     implicit none    

  6.     public    

  7.     contains   

  8.     

  9.     subroutine CasingLinerChokeToJson(parent)

  10. 

  11.         type(json_value),pointer :: parent

  12.         type(json_core) :: json

  13.         type(json_value),pointer :: p

  14. 

  15. ! 1. create new node

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

  17.         

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

  19. ! call StringConfigurationToJson(p)

  20. ! call FormationToJson(p)

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  36. ! 3. add new node to parent

  37.         call json%add(parent,p)

  38.     end subroutine

  39. 

  40.     subroutine CasingLinerChokeFromJson(parent)

  41.         use json_module,IK =>json_ik

  42.         type(json_value),pointer :: parent

  43.         type(json_core) :: json

  44.         type(json_value),pointer :: p,pitem

  45. 

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

  47. 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  78. 

  79.     end subroutine

  80. 

  81. 

  82. end module CCasingLinerChoke