SimulationCore2/CSharp/Equipments/Tanks/CTanks.i90

# 1 "/mnt/c/Projects/VSIM/SimulationCore2/CSharp/Equipments/Tanks/CTanks.f90"

    module CTanks
    use SimulationVariables
    use CManifolds
	implicit none    
	public 
	contains


    subroutine TankFromJson(parent)
        type(json_value),pointer :: parent
        type(json_core) :: json
        type(json_value),pointer :: p,pval
        logical::is_found

! 1. get related root
        call json%get(parent,'Tank',p)
        
! 2. get member of data type from node
		call json%get(p,'WaterRate',pval)
		call json%get(pval,data%Equipments%Tank%WaterRate)
		call json%get(p,'CementTankVolume',pval)
		call json%get(pval,data%Equipments%Tank%CementTankVolume)
		call json%get(p,'CementTankDensity',pval)
		call json%get(pval,data%Equipments%Tank%CementTankDensity)
		call json%get(p,'TripTankVolume',pval)
		call json%get(pval,data%Equipments%Tank%TripTankVolume)
		call json%get(p,'TripTankDensity',pval)
		call json%get(pval,data%Equipments%Tank%TripTankDensity)
		call json%get(p,'ManualPumpPower',pval)
		call json%get(pval,data%Equipments%Tank%ManualPumpPower)
		call json%get(p,'Valve1',pval)
		call json%get(pval,data%Equipments%Tank%Valve1)
		call json%get(p,'Valve2',pval)
		call json%get(pval,data%Equipments%Tank%Valve2)
		call json%get(p,'Valve3',pval)
		call json%get(pval,data%Equipments%Tank%Valve3)
		call json%get(p,'Valve4',pval)
		call json%get(pval,data%Equipments%Tank%Valve4)
		call json%get(p,'Valve5',pval)
		call json%get(pval,data%Equipments%Tank%Valve5)
		call json%get(p,'Valve6',pval)
		call json%get(pval,data%Equipments%Tank%Valve6)
		call json%get(p,'Valve7',pval)
		call json%get(pval,data%Equipments%Tank%Valve7)
		call json%get(p,'Valve8',pval)
		call json%get(pval,data%Equipments%Tank%Valve8)
		call json%get(p,'Valve9',pval)
		call json%get(pval,data%Equipments%Tank%Valve9)
		call json%get(p,'Valve10',pval)
		call json%get(pval,data%Equipments%Tank%Valve10)
		call json%get(p,'Valve11',pval)
		call json%get(pval,data%Equipments%Tank%Valve11)
    end subroutine

! 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%Equipments%Tank%WaterRate)
!     call json%add(pform,"CementTankVolume",data%Equipments%Tank%CementTankVolume)
!     call json%add(pform,"CementTankDensity",data%Equipments%Tank%CementTankDensity)
!     call json%add(pform,"TripTankVolume",data%Equipments%Tank%TripTankVolume)
!     call json%add(pform,"TripTankDensity",data%Equipments%Tank%TripTankDensity)
!     call json%add(pform,"ManualPumpPower",data%Equipments%Tank%ManualPumpPower)
!     call json%add(pform,"Valve1",data%Equipments%Tank%Valve1)
!     call json%add(pform,"Valve2",data%Equipments%Tank%Valve2)
!     call json%add(pform,"Valve3",data%Equipments%Tank%Valve3)
!     call json%add(pform,"Valve4",data%Equipments%Tank%Valve4)
!     call json%add(pform,"Valve5",data%Equipments%Tank%Valve5)
!     call json%add(pform,"Valve6",data%Equipments%Tank%Valve6)
!     call json%add(pform,"Valve7",data%Equipments%Tank%Valve7)
!     call json%add(pform,"Valve8",data%Equipments%Tank%Valve8)
!     call json%add(pform,"Valve9",data%Equipments%Tank%Valve9)
!     call json%add(pform,"Valve10",data%Equipments%Tank%Valve10)
!     call json%add(pform,"Valve11",data%Equipments%Tank%Valve11)

!     call json%add(parent,p)
! end subroutine


	subroutine Set_ManualPumpPower(v)
        use CManifolds, only:ChangeValve
        implicit none
        logical, intent(in) :: v
        data%Equipments%Tank%ManualPumpPower = v
        call ChangeValve(43, v)
		#ifdef deb
				print*, 'ManualPumpPower=', data%Equipments%Tank%ManualPumpPower
		#endif
    end subroutine

	
end module CTanks