mahmood19227
/
SimulationCore2
1
0
Креирај огранак 0
Код Дискусије 0 Захтеви за спајање 0 Издања 0 Вики 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.
66 Комити
2 Гране
134 MiB
 
 
 
 
 
 
Дрво: 9f0233da87
Гране Ознаке
${ item.name }
Create branch ${ searchTerm }
from '9f0233da87'
${ noResults }
SimulationCore2/CSharp/BasicInputs/MudProperties.i90

157 lines
7.9 KiB
Датотека Blame Историја 

  1. # 1 "/home/admin/SimulationCore2/CSharp/BasicInputs/MudProperties.f90"

  2. module MudPropertiesModule

  3.     use SimulationVariables

  4.     use json_module

  5.     implicit none

  6.     

  7.     contains

  8. 

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

  17.         

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  46.         

  47. ! 3. add new node to parent

  48.         call json%add(parent,p)

  49.     end subroutine

  50. 

  51.     subroutine MudPropertiesFromJson(parent)

  52.         use json_module,IK =>json_ik

  53.         type(json_value),pointer :: parent

  54.         type(json_core) :: json

  55.         type(json_value),pointer :: p,pitem

  56. 

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

  58. 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  113. 			

  114.     end subroutine

  115.     

  116.     subroutine Set_ActiveMudVolume_StudentStation(v)

  117.         implicit none

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

  119.         #ifdef ExcludeExtraChanges

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

  121.         #endif

  122.         data%Configuration%Mud%ActiveMudVolume = v   

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

  124.     end subroutine

  125.         

  126.     subroutine Set_ActiveDensity_StudentStation(v)

  127.         implicit none

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

  129.         #ifdef ExcludeExtraChanges

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

  131.         #endif

  132.         data%Configuration%Mud%ActiveDensity = v    

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

  134.     end subroutine

  135.     

  136.     subroutine Set_ReserveMudVolume_StudentStation(v)

  137.         implicit none

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

  139.         #ifdef ExcludeExtraChanges

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

  141.         #endif

  142.         data%Configuration%Mud%ReserveMudVolume = v  

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

  144.     end subroutine

  145.         

  146.     subroutine Set_ReserveDensity_StudentStation(v)

  147.         implicit none

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

  149.         #ifdef ExcludeExtraChanges

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

  151.         #endif

  152.         data%Configuration%Mud%ReserveDensity = v   

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

  154.     end subroutine

  155. 

  156. end module MudPropertiesModule