hydrotope Module


Uses

  • module~~hydrotope~~UsesGraph module~hydrotope hydrotope module~utilities utilities module~hydrotope->module~utilities

Used by

  • module~~hydrotope~~UsedByGraph module~hydrotope hydrotope proc~initialise initialise proc~initialise->module~hydrotope proc~print_module_parameters print_module_parameters proc~print_module_parameters->module~hydrotope proc~reservoir_subbasin reservoir_subbasin proc~reservoir_subbasin->module~hydrotope proc~runsubbasin runsubbasin proc~runsubbasin->module~hydrotope proc~terminate terminate proc~terminate->module~hydrotope proc~time_process_day time_process_day proc~time_process_day->module~hydrotope

Variables

Type Visibility Attributes Name Initial
real(kind=dp), public, save, dimension(:, :), allocatable :: bcv
integer, public, dimension(:), allocatable :: crop_management_id
real(kind=dp), public, save, dimension(:, :, :), allocatable :: dflav
real(kind=dp), public, save, dimension(:, :, :), allocatable :: dfloy
real(kind=dp), public, dimension(:), allocatable :: elevations
real(kind=dp), public, save, dimension(:, :), allocatable :: frar
integer, public, dimension(:), allocatable :: glaciers
real(kind=dp), public, save, dimension(:, :), allocatable :: hsumfc
real(kind=dp), public, save, dimension(:, :), allocatable :: hsumul
real(kind=dp), public, dimension(:), allocatable :: hydrotope_area
integer, public, save :: hydrotope_csv_size
integer, public, dimension(:), allocatable :: hydrotope_ids
character(len=path_max_length), public :: hydrotope_input_file = "hydrotope.csv"
integer, public :: hydrotope_input_file_id
integer, public, dimension(:), allocatable :: hydrotope_subbasin_id
integer, public, dimension(:), allocatable :: irrigations
integer, public, save, dimension(4) :: k2 = (/135, 28, 203, 85/)
integer, public, save, dimension(4) :: k3 = (/43, 54, 619, 33/)
integer, public, save, dimension(4) :: k4 = (/645, 9, 948, 65/)
integer, public, save, dimension(4) :: k5 = (/885, 41, 696, 62/)
integer, public, dimension(:), allocatable :: landuse_ids
integer, public, save :: meap
integer, public, save, dimension(:, :, :), allocatable :: mstruc
integer, public, save, dimension(:, :), allocatable :: nveg
integer, public :: precipitation_output_id = 0
real(kind=dp), public, save, dimension(:, :), allocatable :: preinf
real(kind=dp), public, save :: qi
real(kind=dp), public, save :: rain
real(kind=dp), public, save, dimension(30) :: sm
real(kind=dp), public, save, dimension(30) :: smm
real(kind=dp), public, save, dimension(30) :: smy
integer, public, dimension(:), allocatable :: soil_ids
integer, public :: soil_water_content_output_id = 0
real(kind=dp), public, save, dimension(:), allocatable :: sq
real(kind=dp), public, save, dimension(:), allocatable :: ssq
real(kind=dp), public, save, dimension(:, :), allocatable :: swe
real(kind=dp), public, save :: swind
real(kind=dp), public, save, dimension(:), allocatable :: sy
real(kind=dp), public, save, dimension(:), allocatable :: sym
real(kind=dp), public, save, dimension(:), allocatable :: syq
real(kind=dp), public, save, dimension(:), allocatable :: sysq
real(kind=dp), public, save, dimension(:), allocatable :: syy
integer, public :: tmax_output_id = 0
integer, public :: tmean_output_id = 0
integer, public :: tmin_output_id = 0
real(kind=dp), public, save, dimension(:), allocatable :: tmpNgrw
real(kind=dp), public, save, dimension(:), allocatable :: tmpNsub
real(kind=dp), public, save, dimension(:), allocatable :: tmpNsur
real(kind=dp), public, save, dimension(:), allocatable :: tmpPsur
real(kind=dp), public, save :: v1
real(kind=dp), public, save :: v3
real(kind=dp), public, save :: v5
real(kind=dp), public, save :: v7
real(kind=dp), public, save :: vb
real(kind=dp), public, save :: vl
integer, public :: water_yield_output_id = 0
integer, public, dimension(:), allocatable :: wetland

Subroutines

public subroutine dealloc_hydrotope()

Arguments

None

public subroutine hydrotope_allocate(mb)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: mb

public subroutine hydrotope_initialise(mb, neap, sbar)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: mb
integer, intent(inout) :: neap(:)
real(kind=dp), intent(inout) :: sbar(:)

public subroutine hydrotope_process(j, jea, k, n, wet, bSubcatch, dart, daycounter, flu, frar, ida, iy, iyr, mo, nbyr, precip, sbar, tx)

Arguments

Type IntentOptional Attributes Name
integer :: j
integer :: jea
integer :: k
integer :: n
integer :: wet
logical, intent(in) :: bSubcatch
real(kind=dp), intent(in), dimension(:) :: dart
integer, intent(in) :: daycounter
real(kind=dp), intent(in), dimension(:) :: flu
real(kind=dp), intent(in), dimension(:, :) :: frar
integer, intent(in) :: ida
integer, intent(in) :: iy
integer, intent(in) :: iyr
integer, intent(in) :: mo
integer, intent(in) :: nbyr
real(kind=dp), intent(in) :: precip
real(kind=dp), intent(in), dimension(:) :: sbar
real(kind=dp), intent(in), dimension(:) :: tx

public subroutine hydrotope_read_input()

Arguments

None

public subroutine hydrotope_subbasin_division(mb, neap, sbar)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: mb
integer, intent(inout) :: neap(:)
real(kind=dp), intent(inout) :: sbar(:)