|
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354 |
-
- module CTanks
- use SimulationVariables
- use CManifolds
- implicit none
- public
- contains
-
-
- subroutine TankToJson(parent)
-
- type(json_value),pointer :: parent
- type(json_core) :: json
- type(json_value),pointer :: p,pform
- integer :: i
-
- call json%create_array(p,'Tank')
-
- call json%create_object(pform,'')
- call json%add(pform,"WaterRate",data%EquipmentControl%Tank%WaterRate)
- call json%add(pform,"CementTankVolume",data%EquipmentControl%Tank%CementTankVolume)
- call json%add(pform,"CementTankDensity",data%EquipmentControl%Tank%CementTankDensity)
- call json%add(pform,"TripTankVolume",data%EquipmentControl%Tank%TripTankVolume)
- call json%add(pform,"TripTankDensity",data%EquipmentControl%Tank%TripTankDensity)
- call json%add(pform,"ManualPumpPower",data%EquipmentControl%Tank%ManualPumpPower)
- call json%add(pform,"Valve1",data%EquipmentControl%Tank%Valve1)
- call json%add(pform,"Valve2",data%EquipmentControl%Tank%Valve2)
- call json%add(pform,"Valve3",data%EquipmentControl%Tank%Valve3)
- call json%add(pform,"Valve4",data%EquipmentControl%Tank%Valve4)
- call json%add(pform,"Valve5",data%EquipmentControl%Tank%Valve5)
- call json%add(pform,"Valve6",data%EquipmentControl%Tank%Valve6)
- call json%add(pform,"Valve7",data%EquipmentControl%Tank%Valve7)
- call json%add(pform,"Valve8",data%EquipmentControl%Tank%Valve8)
- call json%add(pform,"Valve9",data%EquipmentControl%Tank%Valve9)
- call json%add(pform,"Valve10",data%EquipmentControl%Tank%Valve10)
- call json%add(pform,"Valve11",data%EquipmentControl%Tank%Valve11)
-
- call json%add(parent,p)
- end subroutine
-
-
- subroutine Set_ManualPumpPower(v)
- use CManifolds, only:ChangeValve
- implicit none
- logical, intent(in) :: v
- data%EquipmentControl%Tank%ManualPumpPower = v
- call ChangeValve(43, v)
- #ifdef deb
- print*, 'ManualPumpPower=', data%EquipmentControl%Tank%ManualPumpPower
- #endif
- end subroutine
-
-
- end module CTanks
|
