Evapotranspiration (ET) split up into imposed ET and equilibrium ET.
equilibrium.imposed.ET(data, Tair = "Tair", pressure = "pressure",
VPD = "VPD", Gs = "Gs_ms", Rn = "Rn", G = NULL, S = NULL,
missing.G.as.NA = FALSE, missing.S.as.NA = FALSE,
Esat.formula = c("Sonntag_1990", "Alduchov_1996", "Allen_1998"),
constants = bigleaf.constants())
Data.frame or matrix containing all required input variables
Air temperature (deg C)
Atmospheric pressure (kPa)
Air vapor pressure deficit (kPa)
surface conductance to water vapor (m s-1)
Net radiation (W m-2)
Ground heat flux (W m-2); optional
Sum of all storage fluxes (W m-2); optional
if TRUE
, missing G are treated as NA
s, otherwise set to 0.
if TRUE
, missing S are treated as NA
s, otherwise set to 0.
Optional: formula to be used for the calculation of esat and the slope of esat.
One of "Sonntag_1990"
(Default), "Alduchov_1996"
, or "Allen_1998"
.
See Esat.slope
.
cp - specific heat of air for constant pressure (J K-1 kg-1) eps - ratio of the molecular weight of water vapor to dry air (-) Pa2kPa - conversion pascal (Pa) to kilopascal (kPa)
A data.frame with the following columns:
Equilibrium ET (kg m-2 s-1)
Imposed ET (kg m-2 s-1)
Equilibrium LE (W m-2)
Imposed LE (W m-2)
Total evapotranspiration can be written in the form (Jarvis & McNaughton 1986):
$$ET = \Omega ET_eq + (1 - \Omega)ET_imp$$
where \(\Omega\) is the decoupling coefficient as calculated from
decoupling
. ET_eq
is the equilibrium evapotranspiration rate,
the ET rate that would occur under uncoupled conditions, where the heat budget
is dominated by radiation (when Ga -> 0):
$$ET_eq = (\Delta * (Rn - G - S) * \lambda) / (\Delta + \gamma)$$
where \(\Delta\) is the slope of the saturation vapor pressure curve (kPa K-1),
\(\lambda\) is the latent heat of vaporization (J kg-1), and \(\gamma\)
is the psychrometric constant (kPa K-1).
ET_imp
is the imposed evapotranspiration rate, the ET rate
that would occur under fully coupled conditions (when Ga -> inf):
$$ET_imp = (\rho * cp * VPD * Gs * \lambda) / \gamma$$
where \(\rho\) is the air density (kg m-3).
Jarvis, P.G., McNaughton, K.G., 1986: Stomatal control of transpiration: scaling up from leaf to region. Advances in Ecological Research 15, 1-49.
Monteith, J.L., Unsworth, M.H., 2008: Principles of Environmental Physics. 3rd edition. Academic Press, London.
# NOT RUN {
df <- data.frame(Tair=20,pressure=100,VPD=seq(0.5,4,0.5),
Gs_ms=seq(0.01,0.002,length.out=8),Rn=seq(50,400,50))
equilibrium.imposed.ET(df)
# }
Run the code above in your browser using DataLab