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

59 lines
2.3 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 CTankToJson(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,'CTank')

  18. 

  19.         do i=1,data%Equipments%Tanks%CTank%Count

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

  21.             call json%add(pform,"WaterRate",data%Equipments%Tanks%CTanks%WaterRate)

  22.             call json%add(pform,"CementTankVolume",data%Equipments%Tanks%CTanks%CementTankVolume)

  23.             call json%add(pform,"CementTankDensity",data%Equipments%Tanks%CTanks%CementTankDensity)

  24.             call json%add(pform,"TripTankVolume",data%Equipments%Tanks%CTanks%TripTankVolume)

  25.             call json%add(pform,"TripTankDensity",data%Equipments%Tanks%CTanks%TripTankDensity)

  26.             call json%add(pform,"ManualPumpPower",data%Equipments%Tanks%CTanks%ManualPumpPower)

  27.             call json%add(pform,"Valve1",data%Equipments%Tanks%CTanks%Valve1)

  28.             call json%add(pform,"Valve2",data%Equipments%Tanks%CTanks%Valve2)

  29.             call json%add(pform,"Valve3",data%Equipments%Tanks%CTanks%Valve3)

  30.             call json%add(pform,"Valve4",data%Equipments%Tanks%CTanks%Valve4)

  31.             call json%add(pform,"Valve5",data%Equipments%Tanks%CTanks%Valve5)

  32.             call json%add(pform,"Valve6",data%Equipments%Tanks%CTanks%Valve6)

  33.             call json%add(pform,"Valve7",data%Equipments%Tanks%CTanks%Valve7)

  34.             call json%add(pform,"Valve8",data%Equipments%Tanks%CTanks%Valve8)

  35.             call json%add(pform,"Valve9",data%Equipments%Tanks%CTanks%Valve9)

  36.             call json%add(pform,"Valve10",data%Equipments%Tanks%CTanks%Valve10)

  37.             call json%add(pform,"Valve11",data%Equipments%Tanks%CTanks%Valve11)

  38. 

  39.             call json%add(p,pform)

  40.         end do

  41. 

  42. 

  43.         call json%add(parent,p)

  44.     end subroutine

  45. 

  46. 

  47. 	subroutine Set_ManualPumpPower(v)

  48.         use CManifolds, only:ChangeValve

  49.         implicit none

  50.         logical, intent(in) :: v

  51.         data%EquipmentControl%Tank%ManualPumpPower = v

  52.         call ChangeValve(43, v)

  53. 		#ifdef deb

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

  55. 		#endif

  56.     end subroutine

  57. 

  58. 	

  59. end module CTanks