evapotranspiration Module

Author : aich@pik-potsdam.de Date : 2013-08-04 modified: 2013-08-04

PURPOSE : generating radiation with latitude, tmin and tmax

CALLED : from program readcli


Uses

  • module~~evapotranspiration~~UsesGraph module~evapotranspiration evapotranspiration module~utilities utilities module~evapotranspiration->module~utilities

Used by

  • module~~evapotranspiration~~UsedByGraph module~evapotranspiration evapotranspiration proc~catchment_assign_subcatch catchment_assign_subcatch proc~catchment_assign_subcatch->module~evapotranspiration proc~catchment_initialise_subcatchm catchment_initialise_subcatchm proc~catchment_initialise_subcatchm->module~evapotranspiration proc~catchment_read_subcatch_params catchment_read_subcatch_params proc~catchment_read_subcatch_params->module~evapotranspiration proc~hydrotope_process hydrotope_process proc~hydrotope_process->module~evapotranspiration proc~initialise initialise proc~initialise->module~evapotranspiration proc~print_module_parameters print_module_parameters proc~print_module_parameters->module~evapotranspiration proc~reservoir_subbasin reservoir_subbasin proc~reservoir_subbasin->module~evapotranspiration proc~runsubbasin runsubbasin proc~runsubbasin->module~evapotranspiration proc~terminate terminate proc~terminate->module~evapotranspiration proc~time_process_day time_process_day proc~time_process_day->module~evapotranspiration proc~time_process_month time_process_month proc~time_process_month->module~evapotranspiration

Variables

Type Visibility Attributes Name Initial
real(kind=dp), public, save, dimension(:), allocatable :: bsn_ecal
real(kind=dp), public, save, dimension(:), allocatable :: bsn_thc
real(kind=dp), public, save :: canev
real(kind=dp), public, save, dimension(:, :), allocatable :: canstor
real(kind=dp), public, save :: ec1 = 0.135
real(kind=dp), public, save, dimension(:), allocatable :: ecal
real(kind=dp), public :: ecal0 = 1.
real(kind=dp), public, save :: eo
real(kind=dp), public, save :: eopot
real(kind=dp), public, save :: es
real(kind=dp), public, save :: et
integer, public :: eta_output_id = 0
integer, public :: etp_output_id = 0
real(kind=dp), public, save, dimension(:), allocatable :: humi
integer, public, save :: idvwk
integer, public, save :: iemeth
real(kind=dp), public, save, dimension(:), allocatable :: lat
real(kind=dp), public, save, dimension(12) :: omega = (/.7, .85, .95, 1.05, 1.25, 1.15, 1.05, .95, .9, .8, .75, .7/)
real(kind=dp), public :: pit = 58.13
real(kind=dp), public, save, dimension(:), allocatable :: ra
integer, public, save :: radiation_switch = 0
real(kind=dp), public, save, dimension(:, :), allocatable :: s1
real(kind=dp), public, save, dimension(:, :), allocatable :: s2
real(kind=dp), public, save, dimension(:), allocatable :: salb
real(kind=dp), public, save :: snoev
integer, public :: soil_evaporation_output_id
real(kind=dp), public, save, dimension(:), allocatable :: thc
real(kind=dp), public :: thc0 = 1.
real(kind=dp), public, save, dimension(:), allocatable :: tmn
real(kind=dp), public, save, dimension(12) :: turc_ivanov = (/1.15, 1.15, 1.15, 1.15, 1.15, .85, .85, .85, .85, .85, 1.15, 1.15/)
real(kind=dp), public, save, dimension(:, :), allocatable :: tv
real(kind=dp), public, save, dimension(:), allocatable :: ylc
real(kind=dp), public, save, dimension(:), allocatable :: yls

Subroutines

public subroutine dealloc_evapotranspiration()

Arguments

None

public subroutine evapotranspiration_allocate(mb, meap)

Arguments

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

public subroutine evapotranspiration_allocate_sc(n_subcatch)

Arguments

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

public subroutine evapotranspiration_initialise(mb, meap, subbasin_input_file_id)

Arguments

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

public subroutine evapotranspiration_process(j, je, k, alai, cva, ep, ida, mo, nn, preinf, qd, snoa, ste, tx, z, bSnowModule, rnew, tmit, tx_tmp, rsn, ETcor)

! rmx = 711. * (hys+ycsin(h))

Arguments

Type IntentOptional Attributes Name
integer :: j
integer :: je
integer :: k
real(kind=dp), intent(in), dimension(:, :) :: alai
real(kind=dp), intent(in), dimension(:, :) :: cva
real(kind=dp), intent(inout) :: ep
integer, intent(in) :: ida
integer, intent(in) :: mo
integer, intent(in) :: nn
real(kind=dp), intent(in), dimension(:, :) :: preinf
real(kind=dp), intent(in) :: qd
real(kind=dp), intent(inout), dimension(:, :) :: snoa
real(kind=dp), intent(inout), dimension(:, :, :) :: ste
real(kind=dp), intent(in), dimension(:) :: tx
real(kind=dp), intent(in), dimension(:, :) :: z
logical, intent(in) :: bSnowModule
real(kind=dp), intent(inout) :: rnew
real(kind=dp), intent(inout) :: tmit
real(kind=dp), intent(inout) :: tx_tmp
real(kind=dp), intent(inout) :: rsn(:,:)
real(kind=dp), intent(inout) :: ETcor

public subroutine evapotranspiration_radiation(ida, mb, tmx)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ida
integer, intent(in) :: mb
real(kind=dp), intent(in), dimension(:) :: tmx

public subroutine evapotranspiration_read_input(subbasin_input_file_id)

Arguments

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