yoeveg.F90

Go to the documentation of this file.

MODULE yoeveg

#include "tsmbkind.h"

USE pardim


IMPLICIT NONE

SAVE

!       ----------------------------------------------------------------
!**    ** *YOEVEG* CONTAINS CONSTANTS VEGETATION PARAMETERS
!       ----------------------------------------------------------------

real_b :: rcva
real_b :: rcvb
real_b :: rcvc
real_b :: rcvbc
real_b :: rvlt
real_b :: rvxpklt
real_b :: rvxmklt
real_b :: rvkc
real_b :: rvabc
real_b :: rvrad
real_b :: rvinter
real_b :: rvz0sn
real_b :: rcepsw
real_b :: repsr
real_b :: repevap

real_b :: rvrootsa(jpcss)
!*     *YOEVEG* CONTAINS VEGETATION PARAMETERS,
!     USED IN *VDF...* AND *SRF...*.

!     A.C.M. BELJAARS      E.C.M.W.F.    14/12/89

!     NAME        TYPE     DESCRIPTION
!     ----        ----     -----------

!     *RCVA*      REAL     *CONSTANT TO DEFINE THE STOMATAL RESISTANCE
!     *RCVB*      REAL     *CONSTANT TO DEFINE THE STOMATAL RESISTANCE
!     *RCVC*      REAL     *MINIMUM STOMATAL RESITANCE
!     *RCVBC*     REAL     * RCVB X RCVC
!     *RVLT*      REAL     *LEAF AREA INDEX
!     *RVXPKLT*   REAL     *EXP(RCVKLT)
!     *RVXMKLT*   REAL     *EXP(-RCVKLT)
!     *RVKC*      REAL     * CVK X RCVC
!     *RVABC*     REAL     * (RCVA+RCVBC)/RCVC
!     *RVROOTSA*  REAL     *PERCENTAGE OF ROOTS IN EACH SOIL LAYER
!     *RVRAD*     REAL     *FRACTION OF THE NET S.W. RADIATION
!                           CONTRIBUTING TO P.A.R.
!     *RVINTER*   REAL     *EFFICIENCY OF INTERCEPTION OF PRECIPITATION
!     *RVZ0SN*    REAL     *FRACTION OF VEGETATION COVERED BY SNOW
!     *RCEPSW*     REAL     *MINIMUM RELATIVE HUMIDITY
!     *REPSR*     REAL     *MINIMUM VALUE FOR SHORT WAVE RADIATION IN
!                          THE CANOPY RESISTANCE COMPUTATION
!     *REPEVAP*   REAL     *MINIMUM ATMOSPHERIC DEMAND
!     ------------------------------------------------------------------
END MODULE yoeveg