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.
46 Commits
2 Branches
134 MiB
 
 
 
 
 
 
Tree: eabb6a146d
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'eabb6a146d'
${ noResults }
SimulationCore2/CSharp/BasicInputs/RigSpecifications/CHoisting.f90

54 lines
2.2 KiB
Raw Blame History 

  1. module CHoisting

  2.     use SimulationVariables

  3.     use json_module

  4.     implicit none 

  5.     public    

  6.     contains

  7. 

  8. 	subroutine HoistingFromJson(parent)

  9. 	

  10.         use json_module,IK =>json_ik

  11.         type(json_value),pointer :: parent

  12.         type(json_core) :: json

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

  14. 		logical::is_found

  15. 		integer::i,n_children

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

  17. 

  18.         call json%get(parent,'Hoisting',p)

  19. 		call json%get(p,'DriveType',pval)

  20. 		call json%get(pval,data%Configuration%Hoisting%DriveType)

  21. 		call json%get(p,'TravelingBlockWeight',pval)

  22. 		call json%get(pval,data%Configuration%Hoisting%TravelingBlockWeight)

  23. 		call json%get(p,'TopDriveWeight',pval)

  24. 		call json%get(pval,data%Configuration%Hoisting%TopDriveWeight)

  25. 		call json%get(p,'KellyWeight',pval)

  26. 		call json%get(pval,data%Configuration%Hoisting%KellyWeight)

  27. 		call json%get(p,'NumberOfLine',pval)

  28. 		call json%get(pval,data%Configuration%Hoisting%NumberOfLine)

  29. 		call json%get(p,'DrillingLineBreakingLoad',pval)

  30. 		call json%get(pval,data%Configuration%Hoisting%DrillingLineBreakingLoad)

  31.     end subroutine

  32. 

  33.     subroutine HoistingToJson(parent)

  34.         type(json_value),pointer :: parent

  35.         type(json_core) :: json

  36.         type(json_value),pointer :: p

  37. 

  38.         ! 1. create new node

  39.         call json%create_object(p,'Hoisting')

  40.         

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

  42.         ! call StringConfigurationToJson(p) 

  43.         ! call FormationToJson(p) 

  44.         call json%add(p,"DrillingLineBreakingLoadAbrasiveness",data%Configuration%Hoisting%DrillingLineBreakingLoad)

  45.         call json%add(p,"DriveTypeAbrasiveness",data%Configuration%Hoisting%DriveType)

  46.         call json%add(p,"KellyWeightAbrasiveness",data%Configuration%Hoisting%KellyWeight)

  47.         call json%add(p,"NumberOfLineAbrasiveness",data%Configuration%Hoisting%NumberOfLine)

  48.         call json%add(p,"TopDriveWeightAbrasiveness",data%Configuration%Hoisting%TopDriveWeight)

  49.         call json%add(p,"TravelingBlockWeightAbrasiveness",data%Configuration%Hoisting%TravelingBlockWeight)

  50.         ! 3. add new node to parent

  51.         call json%add(parent,p)

  52.     end subroutine

  53. 

  54. end module CHoisting