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

155 lines
8.1 KiB
Raw Blame History 

  1. module MudPropertiesModule

  2.     use SimulationVariables

  3.     use json_module

  4.     implicit none

  5.     

  6.     contains

  7. 

  8.     subroutine MudPropertiesToJson(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,'Mud')

  16.         

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

  18.         call json%add(p,"ActiveMudType",data%Configuration%Mud%ActiveMudType)

  19.         call json%add(p,"ActiveRheologyModel",data%Configuration%Mud%ActiveRheologyModel)

  20.         call json%add(p,"ActiveMudVolume",data%Configuration%Mud%ActiveMudVolume)

  21.         call json%add(p,"ActiveMudVolumeGal",data%Configuration%Mud%ActiveMudVolumeGal)

  22.         call json%add(p,"ActiveDensity",data%Configuration%Mud%ActiveDensity)

  23.         call json%add(p,"ActivePlasticViscosity",data%Configuration%Mud%ActivePlasticViscosity)

  24.         call json%add(p,"ActiveYieldPoint",data%Configuration%Mud%ActiveYieldPoint)

  25.         call json%add(p,"ActiveThetaThreeHundred",data%Configuration%Mud%ActiveThetaThreeHundred)

  26.         call json%add(p,"ActiveThetaSixHundred",data%Configuration%Mud%ActiveThetaSixHundred)

  27.         call json%add(p,"ReserveMudType",data%Configuration%Mud%ReserveMudType)

  28.         call json%add(p,"ReserveMudVolume",data%Configuration%Mud%ReserveMudVolume)

  29.         call json%add(p,"ReserveMudVolumeGal",data%Configuration%Mud%ReserveMudVolumeGal)

  30.         call json%add(p,"ReserveDensity",data%Configuration%Mud%ReserveDensity)

  31.         call json%add(p,"ReservePlasticViscosity",data%Configuration%Mud%ReservePlasticViscosity)

  32.         call json%add(p,"ReserveYieldPoint",data%Configuration%Mud%ReserveYieldPoint)

  33.         call json%add(p,"ReserveThetaThreeHundred",data%Configuration%Mud%ReserveThetaThreeHundred)

  34.         call json%add(p,"ReserveThetaSixHundred",data%Configuration%Mud%ReserveThetaSixHundred)

  35.         call json%add(p,"ActiveTotalTankCapacity",data%Configuration%Mud%ActiveTotalTankCapacity)

  36.         call json%add(p,"ActiveTotalTankCapacityGal",data%Configuration%Mud%ActiveTotalTankCapacityGal)

  37.         call json%add(p,"ActiveSettledContents",data%Configuration%Mud%ActiveSettledContents)

  38.         call json%add(p,"ActiveSettledContentsGal",data%Configuration%Mud%ActiveSettledContentsGal)

  39.         call json%add(p,"ActiveTotalContents",data%Configuration%Mud%ActiveTotalContents)

  40.         call json%add(p,"ActiveTotalContentsGal",data%Configuration%Mud%ActiveTotalContentsGal)

  41.         call json%add(p,"ActiveAutoDensity",data%Configuration%Mud%ActiveAutoDensity)

  42.         call json%add(p,"InitialTripTankMudVolume",data%Configuration%Mud%InitialTripTankMudVolume)

  43.         call json%add(p,"InitialTripTankMudVolumeGal",data%Configuration%Mud%InitialTripTankMudVolumeGal)

  44.         call json%add(p,"PedalFlowMeter",data%Configuration%Mud%PedalFlowMeter)

  45.         

  46.         ! 3. add new node to parent

  47.         call json%add(parent,p)

  48.     end subroutine

  49. 

  50.     subroutine MudPropertiesFromJson(parent)

  51.         use json_module,IK =>json_ik

  52.         type(json_value),pointer :: parent

  53.         type(json_core) :: json

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

  55. 

  56.         call json%get(parent,'Mud',p)

  57. 

  58.         call json%get(p,"ActiveMudType",pitem)

  59. 		call json%get(pitem,data%Configuration%Mud%ActiveMudType)

  60.         call json%get(p,"ActiveRheologyModel",pitem)

  61. 		call json%get(pitem,data%Configuration%Mud%ActiveRheologyModel)

  62.         call json%get(p,"ActiveMudVolume",pitem)

  63. 		call json%get(pitem,data%Configuration%Mud%ActiveMudVolume)

  64.         call json%get(p,"ActiveMudVolumeGal",pitem)

  65. 		call json%get(pitem,data%Configuration%Mud%ActiveMudVolumeGal)

  66.         call json%get(p,"ActiveDensity",pitem)

  67. 		call json%get(pitem,data%Configuration%Mud%ActiveDensity)

  68.         call json%get(p,"ActivePlasticViscosity",pitem)

  69. 		call json%get(pitem,data%Configuration%Mud%ActivePlasticViscosity)

  70.         call json%get(p,"ActiveYieldPoint",pitem)

  71. 		call json%get(pitem,data%Configuration%Mud%ActiveYieldPoint)

  72.         call json%get(p,"ActiveThetaThreeHundred",pitem)

  73. 		call json%get(pitem,data%Configuration%Mud%ActiveThetaThreeHundred)

  74.         call json%get(p,"ActiveThetaSixHundred",pitem)

  75. 		call json%get(pitem,data%Configuration%Mud%ActiveThetaSixHundred)

  76.         call json%get(p,"ReserveMudType",pitem)

  77. 		call json%get(pitem,data%Configuration%Mud%ReserveMudType)

  78.         call json%get(p,"ReserveMudVolume",pitem)

  79. 		call json%get(pitem,data%Configuration%Mud%ReserveMudVolume)

  80.         call json%get(p,"ReserveMudVolumeGal",pitem)

  81. 		call json%get(pitem,data%Configuration%Mud%ReserveMudVolumeGal)

  82.         call json%get(p,"ReserveDensity",pitem)

  83. 		call json%get(pitem,data%Configuration%Mud%ReserveDensity)

  84.         call json%get(p,"ReservePlasticViscosity",pitem)

  85. 		call json%get(pitem,data%Configuration%Mud%ReservePlasticViscosity)

  86.         call json%get(p,"ReserveYieldPoint",pitem)

  87. 		call json%get(pitem,data%Configuration%Mud%ReserveYieldPoint)

  88.         call json%get(p,"ReserveThetaThreeHundred",pitem)

  89. 		call json%get(pitem,data%Configuration%Mud%ReserveThetaThreeHundred)

  90.         call json%get(p,"ReserveThetaSixHundred",pitem)

  91. 		call json%get(pitem,data%Configuration%Mud%ReserveThetaSixHundred)

  92.         call json%get(p,"ActiveTotalTankCapacity",pitem)

  93. 		call json%get(pitem,data%Configuration%Mud%ActiveTotalTankCapacity)

  94.         call json%get(p,"ActiveTotalTankCapacityGal",pitem)

  95. 		call json%get(pitem,data%Configuration%Mud%ActiveTotalTankCapacityGal)

  96.         call json%get(p,"ActiveSettledContents",pitem)

  97. 		call json%get(pitem,data%Configuration%Mud%ActiveSettledContents)

  98.         call json%get(p,"ActiveSettledContentsGal",pitem)

  99. 		call json%get(pitem,data%Configuration%Mud%ActiveSettledContentsGal)

  100.         call json%get(p,"ActiveTotalContents",pitem)

  101. 		call json%get(pitem,data%Configuration%Mud%ActiveTotalContents)

  102.         call json%get(p,"ActiveTotalContentsGal",pitem)

  103. 		call json%get(pitem,data%Configuration%Mud%ActiveTotalContentsGal)

  104.         call json%get(p,"ActiveAutoDensity",pitem)

  105. 		call json%get(pitem,data%Configuration%Mud%ActiveAutoDensity)

  106.         call json%get(p,"InitialTripTankMudVolume",pitem)

  107. 		call json%get(pitem,data%Configuration%Mud%InitialTripTankMudVolume)

  108.         call json%get(p,"InitialTripTankMudVolumeGal",pitem)

  109. 		call json%get(pitem,data%Configuration%Mud%InitialTripTankMudVolumeGal)

  110.         call json%get(p,"PedalFlowMeter",pitem)

  111. 		call json%get(pitem,data%Configuration%Mud%PedalFlowMeter)

  112. 			

  113.     end subroutine

  114.     

  115.     subroutine Set_ActiveMudVolume_StudentStation(v)

  116.         implicit none

  117.         real*8, intent(in) :: v

  118.         #ifdef ExcludeExtraChanges

  119.                 if(data%Configuration%Mud%ActiveMudVolume == v) return

  120.         #endif

  121.         data%Configuration%Mud%ActiveMudVolume = v   

  122.         ! if(associated(ActiveMudVolumePtr)) call ActiveMudVolumePtr(data%Configuration%Mud%ActiveMudVolume)

  123.     end subroutine

  124.         

  125.     subroutine Set_ActiveDensity_StudentStation(v)

  126.         implicit none

  127.         real*8, intent(in) :: v

  128.         #ifdef ExcludeExtraChanges

  129.                 if(data%Configuration%Mud%ActiveDensity == v) return

  130.         #endif

  131.         data%Configuration%Mud%ActiveDensity = v    

  132.         ! if(associated(ActiveDensityPtr)) call ActiveDensityPtr(data%Configuration%Mud%ActiveDensity)

  133.     end subroutine

  134.     

  135.     subroutine Set_ReserveMudVolume_StudentStation(v)

  136.         implicit none

  137.         real*8, intent(in) :: v

  138.         #ifdef ExcludeExtraChanges

  139.                 if(data%Configuration%Mud%ReserveMudVolume == v) return

  140.         #endif

  141.         data%Configuration%Mud%ReserveMudVolume = v  

  142.         ! if(associated(ReserveMudVolumePtr)) call ReserveMudVolumePtr(data%Configuration%Mud%ReserveMudVolume)

  143.     end subroutine

  144.         

  145.     subroutine Set_ReserveDensity_StudentStation(v)

  146.         implicit none

  147.         real*8, intent(in) :: v

  148.         #ifdef ExcludeExtraChanges

  149.                 if(data%Configuration%Mud%ReserveDensity == v) return

  150.         #endif

  151.         data%Configuration%Mud%ReserveDensity = v   

  152.         ! if(associated(ReserveDensityPtr)) call ReserveDensityPtr(data%Configuration%Mud%ReserveDensity)

  153.     end subroutine

  154. 

  155. end module MudPropertiesModule