Skip to content

File canopy_drydep_mod.F90

FileList > src > canopy_drydep_mod.F90

Go to the source code of this file

Gas dry deposition calculations for canopy model. More...

Namespaces

Type Name
namespace canopy_drydep_mod

Public Attributes

Type Name
real(rk), parameter ar_0 = 8.0
Used to scale other species to HNO3 (dimensionless)
real(rk) ar_l
Reactivity denominator relative to HNO3 for each species (dimensionless)
real(rk) cave_l
Maxwell-Boltzmann average speed of gas distribution (m/s)
integer, intent(in) chemmechgas_opt
Select chemical mechanism.
integer, intent(in) chemmechgas_tot
Select chemical mechanism gas species list.
real(rk) cp_air
Specific heat of moist air (J/kg-K)
real(rk) ctemp2
Mean temperature just above surface (C)
real(rk), parameter d3 = 1.38564e-2
Scaling parameter used to estimate the friction velocity in surface waters from the atmospheric friction velocity to a value following Slinn et al.
integer, intent(in) dep_ind
Gas deposition species index (depends on gas mech, set in constants)
real(rk), dimension(:), intent(out) dep_out
Output canopy layer gas dry deposition rate for each DEP_IND (cm/s)
real(rk), intent(in) dsoil
Depth of topsoil (cm)
real(rk) dw
Diffusivity of water.
real(rk) dw25
Diffusivity of water at 298.15 K.
real(rk) f01
Reactivity parameter based on DEP_IND (0-1)
real(rk), intent(in) fch
Canopy height (m)
real(rk), dimension(:), intent(in) fsun
Sunlit/Shaded fraction from photolysis correction factor.
real(rk), intent(in) gamma_build
Reaction probability with building type (dimensionless) Default NL is average of range in gamma from as low as 10−8 for glass and metal to 10−4 for activated carbon and brick.
real(rk) hstarl
Effective Henry's law coefficient based on DEP_IND (M/atm)
integer i
Loop index.
real(rk) kvisw
Kinematic viscosity of water (cm^2/s)
real(rk) lebas_l
Le Bas molar volumes are from the Schroeder additive method (cm3/mol)
real(rk) lv
Latent heat of vaporization (J/kg)
real(rk), dimension(size(zk)) mdiffl
Molecular diffusivity for species l based on DEP_IND (cm2/s)
real(rk) mmg_l
Molar mass for each gas species (kg/mol)
real(rk), dimension(size(zk)) ppfd
PPFD ave sun and shade (umol/m2 s)
real(rk), dimension(:), intent(in) ppfd_shade
PPFD for shaded leaves (umol phot/m2 s)
real(rk), dimension(:), intent(in) ppfd_sun
PPFD for sunlit leaves (umol phot/m2 s)
real(rk), parameter pr = 0.709
Prandtl Number (dimensionless)
real(rk), dimension(:), intent(in) pressa
Ambient Pressure profile in canopy (mb)
real(rk), intent(in) qv2
Mean mixing ratio just above surface (kg/kg)
real(rk), intent(in) ra
Aerodynamic resistance (s/cm)
real(rk), dimension(size(zk)) rb
Boundary layer resistance for species l based on DEP_IND (s/cm)
real(rk) rbg
Ground boundary layer resistance (s/cm)
real(rk) rbw
Water boundary layer resistance (s/cm)
real(rk), dimension(size(zk)) rc
Cuticular resistance for species l based on DEP_IND (s/cm)
real(rk) rden
real(rk), dimension(:), intent(in) relhuma
Ambient Relative Humidity profile in canopy (%)
real(rk) rlx
real(rk), dimension(size(zk)) rm
Mesophyll resistance for species l based on DEP_IND (s/cm)
real(rk) rnum
real(rk), dimension(size(zk)) rs
Stomatal resistance for species l based on DEP_IND (s/cm)
real(rk), parameter rsnow0 = 100.0
Resistance to deposition to snow (s/cm) based on Helmig et al.
real(rk) rsnowl
Resistance to diffusion thru snow space for chemical species (s/cm)
real(rk) rsoill
Resistance to diffusion thru soil pore space for chemical species (s/cm)
real(rk), parameter rt25ink = 1.0\_rk/(stdtemp + 25.0\_rk)
298.15K = 25C
real(rk) rurbanl
Resistance to diffusion thru snow space for chemical species (s/m)
real(rk) rwaterl
Water surface resistance (s/cm)
real(rk) scw_pr_23
(scw/pr)**2/3
integer, intent(in) socat
Input soil category dataset used.
integer, intent(in) sotyp
Input soil type integer associated with soilcat.
real(rk), intent(in) srad
Incoming solar irradiation top of canopy (W/m^2)
real(rk), intent(in) stheta
Volumetric soil water content in topsoil (m^3/m^3)
real(rk), intent(in) temp
Mean temperature just above surface (K)
real(rk), intent(in) temp2
Mean temperature just above surface (K)
real(rk), dimension(:), intent(in) tempa
Ambient Temperature profile in canopy (K)
real(rk), intent(in) tempsoil
Soil temperature in topsoil (K)
real(rk) tw
Wet bulb temperature (K)
real(rk), parameter twothirds = 2.0\_rk / 3.0\_rk
Two thirds constant.
real(rk), dimension(:), intent(in) ubar
Mean above/in-canopy wind speed (m/s)
real(rk), intent(in) ustar
Friction velocity at surface (m/s)
real(rk) vdlx
Working variables for resistance calculations.
real(rk), dimension(:), intent(in) zk
Model heights (m)

Detailed Description

This module implements parameterized canopy gas dry deposition based on Zhang et al. (2003) algorithms for various surface types including vegetation, soil, snow, urban surfaces, and water.

Author:

P.C. Campbell

Date:

February 2025

Version:

1.0

Public Attributes Documentation

variable ar_0

Used to scale other species to HNO3 (dimensionless)

real(rk), parameter ar_0;


variable ar_l

Reactivity denominator relative to HNO3 for each species (dimensionless)

real(rk) ar_l;


variable cave_l

Maxwell-Boltzmann average speed of gas distribution (m/s)

real(rk) cave_l;


variable chemmechgas_opt

Select chemical mechanism.

integer, intent(in) chemmechgas_opt;


variable chemmechgas_tot

Select chemical mechanism gas species list.

integer, intent(in) chemmechgas_tot;


variable cp_air

Specific heat of moist air (J/kg-K)

real(rk) cp_air;


variable ctemp2

Mean temperature just above surface (C)

real(rk) ctemp2;


variable d3

Scaling parameter used to estimate the friction velocity in surface waters from the atmospheric friction velocity to a value following Slinn et al.

real(rk), parameter d3;

(1978) and Fairall et al. (2007)


variable dep_ind

Gas deposition species index (depends on gas mech, set in constants)

integer, intent(in) dep_ind;

Gas deposition species index (depends on gas mech)


variable dep_out

Output canopy layer gas dry deposition rate for each DEP_IND (cm/s)

real(rk), intent(out) dep_out;

Output soil layer gas dry deposition rate for each DEP_IND (cm/s)


variable dsoil

Depth of topsoil (cm)

real(rk), intent(in) dsoil;


variable dw

Diffusivity of water.

real(rk) dw;


variable dw25

Diffusivity of water at 298.15 K.

real(rk) dw25;


variable f01

Reactivity parameter based on DEP_IND (0-1)

real(rk) f01;


variable fch

Canopy height (m)

real(rk), intent(in) fch;


variable fsun

Sunlit/Shaded fraction from photolysis correction factor.

real(rk), dimension(:), intent(in) fsun;


variable gamma_build

Reaction probability with building type (dimensionless) Default NL is average of range in gamma from as low as 10−8 for glass and metal to 10−4 for activated carbon and brick.

real(rk), intent(in) gamma_build;

=5.0D-5. Reference (Shen and Gao, 2018; https://doi.org/10.1016/j.buildenv.2018.02.046)


variable hstarl

Effective Henry's law coefficient based on DEP_IND (M/atm)

real(rk) hstarl;


variable i

Loop index.

integer i;


variable kvisw

Kinematic viscosity of water (cm^2/s)

real(rk) kvisw;


variable lebas_l

Le Bas molar volumes are from the Schroeder additive method (cm3/mol)

real(rk) lebas_l;


variable lv

Latent heat of vaporization (J/kg)

real(rk) lv;


variable mdiffl

Molecular diffusivity for species l based on DEP_IND (cm2/s)

real(rk) mdiffl;

Molecular diffusivity (cm^2/s)


variable mmg_l

Molar mass for each gas species (kg/mol)

real(rk) mmg_l;


variable ppfd

PPFD ave sun and shade (umol/m2 s)

real(rk), dimension(size(zk)) ppfd;


variable ppfd_shade

PPFD for shaded leaves (umol phot/m2 s)

real(rk), dimension(:), intent(in) ppfd_shade;


variable ppfd_sun

PPFD for sunlit leaves (umol phot/m2 s)

real(rk), dimension(:), intent(in) ppfd_sun;


variable pr

Prandtl Number (dimensionless)

real(rk), parameter pr;


variable pressa

Ambient Pressure profile in canopy (mb)

real(rk), intent(in) pressa;

Ambient Pressure just above surface (mb)


variable qv2

Mean mixing ratio just above surface (kg/kg)

real(rk), intent(in) qv2;


variable ra

Aerodynamic resistance (s/cm)

real(rk), intent(in) ra;


variable rb

Boundary layer resistance for species l based on DEP_IND (s/cm)

real(rk), dimension(size(zk)) rb;


variable rbg

Ground boundary layer resistance (s/cm)

real(rk) rbg;


variable rbw

Water boundary layer resistance (s/cm)

real(rk) rbw;


variable rc

Cuticular resistance for species l based on DEP_IND (s/cm)

real(rk), dimension(size(zk)) rc;


variable rden

real(rk) rden;

variable relhuma

Ambient Relative Humidity profile in canopy (%)

real(rk), dimension(:), intent(in) relhuma;


variable rlx

real(rk) rlx;

variable rm

Mesophyll resistance for species l based on DEP_IND (s/cm)

real(rk), dimension(size(zk)) rm;


variable rnum

real(rk) rnum;

variable rs

Stomatal resistance for species l based on DEP_IND (s/cm)

real(rk), dimension(size(zk)) rs;


variable rsnow0

Resistance to deposition to snow (s/cm) based on Helmig et al.

real(rk), parameter rsnow0;


variable rsnowl

Resistance to diffusion thru snow space for chemical species (s/cm)

real(rk) rsnowl;


variable rsoill

Resistance to diffusion thru soil pore space for chemical species (s/cm)

real(rk) rsoill;


variable rt25ink

298.15K = 25C

real(rk), parameter rt25ink;


variable rurbanl

Resistance to diffusion thru snow space for chemical species (s/m)

real(rk) rurbanl;


variable rwaterl

Water surface resistance (s/cm)

real(rk) rwaterl;


variable scw_pr_23

(scw/pr)**2/3

real(rk) scw_pr_23;


variable socat

Input soil category dataset used.

integer, intent(in) socat;


variable sotyp

Input soil type integer associated with soilcat.

integer, intent(in) sotyp;


variable srad

Incoming solar irradiation top of canopy (W/m^2)

real(rk), intent(in) srad;


variable stheta

Volumetric soil water content in topsoil (m^3/m^3)

real(rk), intent(in) stheta;


variable temp

Mean temperature just above surface (K)

real(rk), intent(in) temp;


variable temp2

Mean temperature just above surface (K)

real(rk), intent(in) temp2;


variable tempa

Ambient Temperature profile in canopy (K)

real(rk), dimension(:), intent(in) tempa;


variable tempsoil

Soil temperature in topsoil (K)

real(rk), intent(in) tempsoil;


variable tw

Wet bulb temperature (K)

real(rk) tw;


variable twothirds

Two thirds constant.

real(rk), parameter twothirds;


variable ubar

Mean above/in-canopy wind speed (m/s)

real(rk), intent(in) ubar;

Mean wind speed just above surface (m/s)


variable ustar

Friction velocity at surface (m/s)

real(rk), intent(in) ustar;


variable vdlx

Working variables for resistance calculations.

real(rk) vdlx;


variable zk

Model heights (m)

real(rk), dimension(:), intent(in) zk;



The documentation for this class was generated from the following file src/canopy_drydep_mod.F90