source: LMDZ6/trunk/libf/phymar/yoeveg.F90 @ 3121

Last change on this file since 3121 was 2089, checked in by Laurent Fairhead, 10 years ago

Inclusion de la physique de MAR


Integration of MAR physics

File size: 1.8 KB
Line 
1MODULE YOEVEG
2
3#include "tsmbkind.h"
4
5USE PARDIM
6
7
8IMPLICIT NONE
9
10SAVE
11
12!       ----------------------------------------------------------------
13!**    ** *YOEVEG* CONTAINS CONSTANTS VEGETATION PARAMETERS
14!       ----------------------------------------------------------------
15
16REAL_B :: RCVA
17REAL_B :: RCVB
18REAL_B :: RCVC
19REAL_B :: RCVBC
20REAL_B :: RVLT
21REAL_B :: RVXPKLT
22REAL_B :: RVXMKLT
23REAL_B :: RVKC
24REAL_B :: RVABC
25REAL_B :: RVRAD
26REAL_B :: RVINTER
27REAL_B :: RVZ0SN
28REAL_B :: RCEPSW
29REAL_B :: REPSR
30REAL_B :: REPEVAP
31
32REAL_B :: RVROOTSA(JPCSS)
33!*     *YOEVEG* CONTAINS VEGETATION PARAMETERS,
34!     USED IN *VDF...* AND *SRF...*.
35
36!     A.C.M. BELJAARS      E.C.M.W.F.    14/12/89
37
38!     NAME        TYPE     DESCRIPTION
39!     ----        ----     -----------
40
41!     *RCVA*      REAL     *CONSTANT TO DEFINE THE STOMATAL RESISTANCE
42!     *RCVB*      REAL     *CONSTANT TO DEFINE THE STOMATAL RESISTANCE
43!     *RCVC*      REAL     *MINIMUM STOMATAL RESITANCE
44!     *RCVBC*     REAL     * RCVB X RCVC
45!     *RVLT*      REAL     *LEAF AREA INDEX
46!     *RVXPKLT*   REAL     *EXP(RCVKLT)
47!     *RVXMKLT*   REAL     *EXP(-RCVKLT)
48!     *RVKC*      REAL     * CVK X RCVC
49!     *RVABC*     REAL     * (RCVA+RCVBC)/RCVC
50!     *RVROOTSA*  REAL     *PERCENTAGE OF ROOTS IN EACH SOIL LAYER
51!     *RVRAD*     REAL     *FRACTION OF THE NET S.W. RADIATION
52!                           CONTRIBUTING TO P.A.R.
53!     *RVINTER*   REAL     *EFFICIENCY OF INTERCEPTION OF PRECIPITATION
54!     *RVZ0SN*    REAL     *FRACTION OF VEGETATION COVERED BY SNOW
55!     *RCEPSW*     REAL     *MINIMUM RELATIVE HUMIDITY
56!     *REPSR*     REAL     *MINIMUM VALUE FOR SHORT WAVE RADIATION IN
57!                          THE CANOPY RESISTANCE COMPUTATION
58!     *REPEVAP*   REAL     *MINIMUM ATMOSPHERIC DEMAND
59!     ------------------------------------------------------------------
60END MODULE YOEVEG
Note: See TracBrowser for help on using the repository browser.