mahmood19227
/
SimulationCore2
1
0
Fork 0
Código Incidencias 0 Pull Requests 0 Lanzamientos 0 Wiki Actividad
Simulation Core
No puede seleccionar más de 25 temas Los temas deben comenzar con una letra o número, pueden incluir guiones ('-') y pueden tener hasta 35 caracteres de largo.
32 Commits
2 Ramas
136 MiB
 
 
 
 
 
 
Árbol: 78c2611488
Ramas Etiquetas
${ item.name }
Crear rama ${ searchTerm }
desde '78c2611488'
${ noResults }
SimulationCore2/CSharp/BasicInputs/RigSpecifications/CBopStack.f90

45 líneas
2.4 KiB
Original Blame Histórico 

  1. module CBopStack

  2.     use SimulationVariables

  3.     use json_module

  4.     implicit none    

  5.     public

  6.     contains

  7. 

  8.     subroutine BopStackToJson(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,'BopStack')

  16.         

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  41.         ! 3. add new node to parent

  42.         call json%add(parent,p)

  43.     end subroutine

  44. 

  45. end module CBopStack