hydrotope Module

  1. hydrotope.f95
  2. hydrotope

Uses

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

Used by

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

Contents

Variables

Subroutines


Variables

TypeVisibility AttributesNameInitial
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
integer, 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 AttributesName
integer, intent(in) :: mb

public subroutine hydrotope_initialise(mb, neap, sbar)

Arguments

Type IntentOptional AttributesName
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 AttributesName
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 AttributesName
integer, intent(in) :: mb
integer, intent(inout) :: neap(:)
real(kind=dp), intent(inout) :: sbar(:)