TSubbasin Derived Type

type, public :: TSubbasin


Inherited by

type~~tsubbasin~~InheritedByGraph type~tsubbasin TSubbasin type~twamsub TwamSub type~twamsub->type~tsubbasin pSub

Contents

Source Code


Components

TypeVisibility AttributesNameInitial
real(kind=dp), public, dimension(:), pointer:: Q_act
real(kind=dp), public, dimension(:), pointer:: Q_min
real(kind=dp), public, dimension(:), pointer:: inflow
real(kind=dp), public, dimension(:), pointer:: irrDemand
integer, public :: nWU
integer, public :: nWUin
integer, public :: nWUout
integer, public, dimension(:), pointer:: pos
integer, public :: pos_irr
integer, public :: subnr
real(kind=dp), public, dimension(:), pointer:: totDemand
real(kind=dp), public, dimension(:), pointer:: tr_losses_in
real(kind=dp), public, dimension(:), pointer:: tr_losses_out
real(kind=dp), public, dimension(:), pointer:: withdrawal

Source Code

  TYPE :: TSubbasin
    ! subbasin number
    integer :: subnr
    ! number of water transfer users
    integer :: nWU
    ! number of output and input water users
    integer :: nWUout, nWUin
    ! array position(s) of water user(s) in TWU array
    integer, dimension(:), pointer :: pos
    ! array position (only one allowed) of water user type: irrigation in TWU array
    integer :: pos_irr
    ! daily time series of minimal flows to be guaranteed in source subbasin [m3 / s], dimension(nDaysSim + 1)
    real(dp), dimension(:), pointer :: Q_min
    ! daily discharge time series of subbasin after including inflows and subtracting withdrawals [m3 / s], dimension(nDaysSim + 1)
    real(dp), dimension(:), pointer :: Q_act
    ! daily demand from irrigation, [m3 / s], dimension(nDaysSim + 1)
    real(dp), dimension(:), pointer :: irrDemand
    ! daily demand time series of all water users [m3 / s], dimension(nDaysSim + 1)
    real(dp), dimension(:), pointer :: totDemand
    ! daily inflow time series of all water users [m3 / s], dimension(nDaysSim + 1)
    real(dp), dimension(:), pointer :: inflow
    ! daily time series of total water withdrawals [m3 / s], including losses, dimension(nDaysSim + 1)
    real(dp), dimension(:), pointer :: withdrawal
    ! daily time series of total water losses from inflows [m3 / s] (using tr_eff), dimension(nDaysSim + 1)
    real(dp), dimension(:), pointer :: tr_losses_in
    ! daily time series of total water losses from withdrawals [m3 / s] (using tr_eff), dimension(nDaysSim + 1)
    real(dp), dimension(:), pointer :: tr_losses_out
  END TYPE TSubbasin