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.
66 Commits
2 Branches
134 MiB
 
 
 
 
 
 
Tree: 9f0233da87
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '9f0233da87'
${ noResults }
SimulationCore2/CSharp/BasicInputs/RigSpecifications/CBopStack.i90

108 lines
5.2 KiB
Raw Blame History 

  1. # 1 "/home/admin/SimulationCore2/CSharp/BasicInputs/RigSpecifications/CBopStack.f90"

  2. module CBopStack

  3.     use SimulationVariables

  4.     use json_module

  5.     implicit none    

  6.     public

  7.     contains

  8. 

  9. 

  10. 	subroutine BopStackFromJson(parent)

  11.         

  12. 		use json_module,IK =>json_ik

  13.         type(json_value),pointer :: parent

  14.         type(json_core) :: json

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

  16. 		logical::is_found

  17. 		integer::i,n_children

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

  19. 

  20. 

  21.         call json%get(parent,'BopStack',p)   

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

  23. 		call json%get(pval,data%Configuration%BopStack%AboveAnnularHeight)

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

  25. 		call json%get(pval,data%Configuration%BopStack%AnnularPreventerHeight)

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

  27. 		call json%get(pval,data%Configuration%BopStack%UpperRamHeight)

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

  29. 		call json%get(pval,data%Configuration%BopStack%LowerRamHeight)

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

  31. 		call json%get(pval,data%Configuration%BopStack%BlindRamHeight)

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

  33. 		call json%get(pval,data%Configuration%BopStack%KillHeight)

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

  35. 		call json%get(pval,data%Configuration%BopStack%KillOpen)

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

  37. 		call json%get(pval,data%Configuration%BopStack%KillClose)

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

  39. 		call json%get(pval,data%Configuration%BopStack%GroundLevel)

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

  41. 		call json%get(pval,data%Configuration%BopStack%LowerRamOpen)

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

  43. 		call json%get(pval,data%Configuration%BopStack%LowerRamClose)

  44. 		call json%get(p,'ChokeOpen',pval)

  45. 		call json%get(pval,data%Configuration%BopStack%ChokeOpen)

  46. 		call json%get(p,'ChokeClose',pval)

  47. 		call json%get(pval,data%Configuration%BopStack%ChokeClose)

  48. 		call json%get(p,'BlindRamOpen',pval)

  49. 		call json%get(pval,data%Configuration%BopStack%BlindRamOpen)

  50. 		call json%get(p,'BlindRamClose',pval)

  51. 		call json%get(pval,data%Configuration%BopStack%BlindRamClose)

  52. 		call json%get(p,'UpperRamOpen',pval)

  53. 		call json%get(pval,data%Configuration%BopStack%UpperRamOpen)

  54. 		call json%get(p,'UpperRamClose',pval)

  55. 		call json%get(pval,data%Configuration%BopStack%UpperRamClose)

  56. 		call json%get(p,'AnnularPreventerOpen',pval)

  57. 		call json%get(pval,data%Configuration%BopStack%AnnularPreventerOpen)

  58. 		call json%get(p,'AnnularPreventerClose',pval)

  59. 		call json%get(pval,data%Configuration%BopStack%AnnularPreventerClose)

  60. 		call json%get(p,'RamStringDrag',pval)

  61. 		call json%get(pval,data%Configuration%BopStack%RamStringDrag)

  62. 		call json%get(p,'AnnularStringDrag',pval)

  63. 		call json%get(pval,data%Configuration%BopStack%AnnularStringDrag)

  64. 		call json%get(p,'ChokeLineLength',pval)

  65. 		call json%get(pval,data%Configuration%BopStack%ChokeLineLength)

  66. 		call json%get(p,'ChokeLineId',pval)

  67. 		call json%get(pval,data%Configuration%BopStack%ChokeLineId)

  68. 

  69. end subroutine

  70.     subroutine BopStackToJson(parent)

  71. 

  72.         type(json_value),pointer :: parent

  73.         type(json_core) :: json

  74.         type(json_value),pointer :: p

  75. 

  76. ! 1. create new node

  77.         call json%create_object(p,'BopStack')

  78.         

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

  80.         call json%add(p,"AboveAnnularHeight",data%Configuration%BopStack%AboveAnnularHeight)

  81.         call json%add(p,"AnnularPreventerClose",data%Configuration%BopStack%AnnularPreventerClose)

  82.         call json%add(p,"AnnularPreventerHeight",data%Configuration%BopStack%AnnularPreventerHeight)

  83.         call json%add(p,"AnnularPreventerOpen",data%Configuration%BopStack%AnnularPreventerOpen)

  84.         call json%add(p,"AnnularStringDrag",data%Configuration%BopStack%AnnularStringDrag)

  85.         call json%add(p,"BlindRamClose",data%Configuration%BopStack%BlindRamClose)

  86.         call json%add(p,"BlindRamHeight",data%Configuration%BopStack%BlindRamHeight)

  87.         call json%add(p,"BlindRamOpen",data%Configuration%BopStack%BlindRamOpen)

  88.         call json%add(p,"ChokeClose",data%Configuration%BopStack%ChokeClose)

  89.         call json%add(p,"ChokeLineId",data%Configuration%BopStack%ChokeLineId)

  90.         call json%add(p,"ChokeLineLength",data%Configuration%BopStack%ChokeLineLength)

  91.         call json%add(p,"ChokeOpen",data%Configuration%BopStack%ChokeOpen)

  92.         call json%add(p,"GroundLevel",data%Configuration%BopStack%GroundLevel)

  93.         call json%add(p,"KillClose",data%Configuration%BopStack%KillClose)

  94.         call json%add(p,"KillHeight",data%Configuration%BopStack%KillHeight)

  95.         call json%add(p,"KillOpen",data%Configuration%BopStack%KillOpen)

  96.         call json%add(p,"LowerRamClose",data%Configuration%BopStack%LowerRamClose)

  97.         call json%add(p,"LowerRamHeight",data%Configuration%BopStack%LowerRamHeight)

  98.         call json%add(p,"LowerRamOpen",data%Configuration%BopStack%LowerRamOpen)

  99.         call json%add(p,"RamStringDrag",data%Configuration%BopStack%RamStringDrag)

  100.         call json%add(p,"UpperRamClose",data%Configuration%BopStack%UpperRamClose)

  101.         call json%add(p,"UpperRamHeight",data%Configuration%BopStack%UpperRamHeight)

  102.         call json%add(p,"UpperRamOpen",data%Configuration%BopStack%UpperRamOpen)

  103. ! 3. add new node to parent

  104.         call json%add(parent,p)

  105.     end subroutine

  106. 

  107. end module CBopStack