mahmood19227
/
SimulationCore2
1
0
Fork 0
Koodi Ongelmat 0 Pull-pyynnöt 0 Julkaisut 0 Wiki Toiminta
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 Commitit
2 Branchit
134 MiB
 
 
 
 
 
 
Puu: 8619d976a7
Branchit Tagit
${ item.name }
Create branch ${ searchTerm }
from '8619d976a7'
${ noResults }
SimulationCore2/CSharp/BasicInputs/RigSpecifications/CPower.i90

62 rivejä
2.3 KiB
Raaka Blame Historia 

  1. # 1 "/mnt/c/Projects/VSIM/SimulationCore2/CSharp/BasicInputs/RigSpecifications/CPower.f90"

  2. module CPower

  3.     use SimulationVariables

  4.     use json_module

  5.     implicit none    

  6.     public    

  7.     contains   

  8.     

  9.     subroutine PowerToJson(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,'Power')

  17.         

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

  19. ! call StringConfigurationToJson(p)

  20. ! call FormationToJson(p)

  21.         call json%add(p,"CementPump",data%Configuration%Power%CementPump)

  22.         call json%add(p,"Drawworks",data%Configuration%Power%Drawworks)

  23.         call json%add(p,"GeneratorPowerRating",data%Configuration%Power%GeneratorPowerRating)

  24.         call json%add(p,"MudPump1",data%Configuration%Power%MudPump1)

  25.         call json%add(p,"MudPump2",data%Configuration%Power%MudPump2)

  26.         call json%add(p,"NumberOfgenerators",data%Configuration%Power%NumberOfgenerators)

  27.         call json%add(p,"RotaryTable",data%Configuration%Power%RotaryTable)

  28.         call json%add(p,"TopDrive",data%Configuration%Power%TopDrive)        

  29. ! 3. add new node to parent

  30.         call json%add(parent,p)

  31.     end subroutine

  32. 

  33.     subroutine PowerFromJson(parent)

  34.         use json_module,IK =>json_ik

  35.         type(json_value),pointer :: parent

  36.         type(json_core) :: json

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

  38. 

  39.         call json%get(parent,'Power',p)

  40. 

  41.         call json%get(p,"CementPump",pitem)

  42. 		call json%get(pitem,data%Configuration%Power%CementPump)

  43.         call json%get(p,"Drawworks",pitem)

  44. 		call json%get(pitem,data%Configuration%Power%Drawworks)

  45.         call json%get(p,"GeneratorPowerRating",pitem)

  46. 		call json%get(pitem,data%Configuration%Power%GeneratorPowerRating)

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

  48. 		call json%get(pitem,data%Configuration%Power%MudPump1)

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

  50. 		call json%get(pitem,data%Configuration%Power%MudPump2)

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

  52. 		call json%get(pitem,data%Configuration%Power%NumberOfgenerators)

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

  54. 		call json%get(pitem,data%Configuration%Power%RotaryTable)

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

  56. 		call json%get(pitem,data%Configuration%Power%TopDrive)

  57. 

  58.     end subroutine

  59. 

  60.     

  61. end module CPower