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.
44 Commitit
2 Branchit
134 MiB
 
 
 
 
 
 
Puu: 5908248fa4
Branchit Tagit
${ item.name }
Create branch ${ searchTerm }
from '5908248fa4'
${ noResults }
SimulationCore2/CSharp/BasicInputs/RigSpecifications/CPower.f90

60 rivejä
2.3 KiB
Raaka Blame Historia 

  1. module CPower

  2.     use SimulationVariables

  3.     use json_module

  4.     implicit none    

  5.     public    

  6.     contains   

  7.     

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

  16.         

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

  18.         ! call StringConfigurationToJson(p) 

  19.         ! call FormationToJson(p) 

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

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

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

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

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

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

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

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

  28.         ! 3. add new node to parent

  29.         call json%add(parent,p)

  30.     end subroutine

  31. 

  32.     subroutine PowerFromJson(parent)

  33.         use json_module,IK =>json_ik

  34.         type(json_value),pointer :: parent

  35.         type(json_core) :: json

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

  37. 

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

  39. 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  56. 

  57.     end subroutine

  58. 

  59.     

  60. end module CPower