SimulationCore2/CSharp/Equipments/Tanks/CTanksVariables.f90

module CTanksVariables
    implicit none    
    public   
    
    ! Input vars
    real(8) :: WaterRate
    real(8) :: CementTankVolume
    real(8) :: CementTankDensity
    real(8) :: TripTankVolume
    real(8) :: TripTankDensity
    logical :: ManualPumpPower
    logical :: Valve1
    logical :: Valve2
    logical :: Valve3
    logical :: Valve4
    logical :: Valve5
    
    logical :: Valve6
    logical :: Valve7
    logical :: Valve8
    logical :: Valve9
    logical :: Valve10
    logical :: Valve11

    ! Output vars


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