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.
42 Commits
2 Branches
134 MiB
 
 
 
 
 
 
Tree: d59a3f06a3
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'd59a3f06a3'
${ noResults }
SimulationCore2/CSharp/Equipments/Tanks/CTanks.f90

54 lines
2.1 KiB
Raw Blame History 

  1. 

  2.     module CTanks

  3.     use SimulationVariables

  4.     use CManifolds

  5. 	implicit none    

  6. 	public 

  7. 	contains

  8. 

  9. 

  10.     subroutine TankToJson(parent)

  11. 

  12.         type(json_value),pointer :: parent

  13.         type(json_core) :: json

  14.         type(json_value),pointer :: p,pform

  15.         integer :: i

  16. 

  17.         call json%create_array(p,'Tank')

  18. 

  19.         call json%create_object(pform,'')

  20.         call json%add(pform,"WaterRate",data%EquipmentControl%Tank%WaterRate)

  21.         call json%add(pform,"CementTankVolume",data%EquipmentControl%Tank%CementTankVolume)

  22.         call json%add(pform,"CementTankDensity",data%EquipmentControl%Tank%CementTankDensity)

  23.         call json%add(pform,"TripTankVolume",data%EquipmentControl%Tank%TripTankVolume)

  24.         call json%add(pform,"TripTankDensity",data%EquipmentControl%Tank%TripTankDensity)

  25.         call json%add(pform,"ManualPumpPower",data%EquipmentControl%Tank%ManualPumpPower)

  26.         call json%add(pform,"Valve1",data%EquipmentControl%Tank%Valve1)

  27.         call json%add(pform,"Valve2",data%EquipmentControl%Tank%Valve2)

  28.         call json%add(pform,"Valve3",data%EquipmentControl%Tank%Valve3)

  29.         call json%add(pform,"Valve4",data%EquipmentControl%Tank%Valve4)

  30.         call json%add(pform,"Valve5",data%EquipmentControl%Tank%Valve5)

  31.         call json%add(pform,"Valve6",data%EquipmentControl%Tank%Valve6)

  32.         call json%add(pform,"Valve7",data%EquipmentControl%Tank%Valve7)

  33.         call json%add(pform,"Valve8",data%EquipmentControl%Tank%Valve8)

  34.         call json%add(pform,"Valve9",data%EquipmentControl%Tank%Valve9)

  35.         call json%add(pform,"Valve10",data%EquipmentControl%Tank%Valve10)

  36.         call json%add(pform,"Valve11",data%EquipmentControl%Tank%Valve11)

  37. 

  38.         call json%add(parent,p)

  39.     end subroutine

  40. 

  41. 

  42. 	subroutine Set_ManualPumpPower(v)

  43.         use CManifolds, only:ChangeValve

  44.         implicit none

  45.         logical, intent(in) :: v

  46.         data%EquipmentControl%Tank%ManualPumpPower = v

  47.         call ChangeValve(43, v)

  48. 		#ifdef deb

  49. 				print*, 'ManualPumpPower=', data%EquipmentControl%Tank%ManualPumpPower

  50. 		#endif

  51.     end subroutine

  52. 

  53. 	

  54. end module CTanks