evapotranspiration Module

  1. evapotranspiration.f95
  2. evapotranspiration

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~reservoir_subbasin reservoir_subbasin proc~reservoir_subbasin->module~evapotranspiration proc~terminate terminate proc~terminate->module~evapotranspiration proc~time_process_month time_process_month proc~time_process_month->module~evapotranspiration proc~initialise initialise proc~initialise->module~evapotranspiration proc~runsubbasin runsubbasin proc~runsubbasin->module~evapotranspiration proc~catchment_read_subcatch_params catchment_read_subcatch_params proc~catchment_read_subcatch_params->module~evapotranspiration proc~catchment_assign_subcatch catchment_assign_subcatch proc~catchment_assign_subcatch->module~evapotranspiration proc~print_module_parameters print_module_parameters proc~print_module_parameters->module~evapotranspiration proc~time_process_day time_process_day proc~time_process_day->module~evapotranspiration proc~hydrotope_process hydrotope_process proc~hydrotope_process->module~evapotranspiration proc~catchment_initialise_subcatchm catchment_initialise_subcatchm proc~catchment_initialise_subcatchm->module~evapotranspiration

Contents

Variables

Subroutines


Variables

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

public subroutine evapotranspiration_allocate_sc(n_subcatch)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: n_subcatch

public subroutine evapotranspiration_initialise(mb, meap, subbasin_input_file_id)

Arguments

Type IntentOptional AttributesName
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 AttributesName
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 AttributesName
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 AttributesName
integer, intent(in) :: subbasin_input_file_id