| 1 | MODULE YOEVEG |
|---|
| 2 | |
|---|
| 3 | #include "tsmbkind.h" |
|---|
| 4 | |
|---|
| 5 | USE PARDIM |
|---|
| 6 | |
|---|
| 7 | |
|---|
| 8 | IMPLICIT NONE |
|---|
| 9 | |
|---|
| 10 | SAVE |
|---|
| 11 | |
|---|
| 12 | ! ---------------------------------------------------------------- |
|---|
| 13 | !** ** *YOEVEG* CONTAINS CONSTANTS VEGETATION PARAMETERS |
|---|
| 14 | ! ---------------------------------------------------------------- |
|---|
| 15 | |
|---|
| 16 | REAL_B :: RCVA |
|---|
| 17 | REAL_B :: RCVB |
|---|
| 18 | REAL_B :: RCVC |
|---|
| 19 | REAL_B :: RCVBC |
|---|
| 20 | REAL_B :: RVLT |
|---|
| 21 | REAL_B :: RVXPKLT |
|---|
| 22 | REAL_B :: RVXMKLT |
|---|
| 23 | REAL_B :: RVKC |
|---|
| 24 | REAL_B :: RVABC |
|---|
| 25 | REAL_B :: RVRAD |
|---|
| 26 | REAL_B :: RVINTER |
|---|
| 27 | REAL_B :: RVZ0SN |
|---|
| 28 | REAL_B :: RCEPSW |
|---|
| 29 | REAL_B :: REPSR |
|---|
| 30 | REAL_B :: REPEVAP |
|---|
| 31 | |
|---|
| 32 | REAL_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 | ! ------------------------------------------------------------------ |
|---|
| 60 | END MODULE YOEVEG |
|---|
