1 |
C $Header: $ |
2 |
C $Name: $ |
3 |
|
4 |
#ifdef ALLOW_LAND |
5 |
|
6 |
C *==========================================================* |
7 |
C | LAND_VARS.h |
8 |
C | o Land model variables: |
9 |
C | - prognostic variables |
10 |
C | - forcing fields |
11 |
C | - diagnostic variables |
12 |
C *==========================================================* |
13 |
|
14 |
|
15 |
C--- COMMON /LAND_VARS_R/ |
16 |
C land_groundT :: ground Temperature (oC) of each layer |
17 |
C land_groundW :: soil moisture [0-1] (= water content / field capacity) |
18 |
C land_runOff :: run-Off per surface unit [m/s] |
19 |
COMMON /LAND_VARS_R/ |
20 |
& land_groundT, land_groundW, |
21 |
& land_runOff |
22 |
|
23 |
_RL land_groundT(1-OLx:sNx+OLx,1-OLy:sNy+OLy,land_nLev,nSx,nSy) |
24 |
_RL land_groundW(1-OLx:sNx+OLx,1-OLy:sNy+OLy,land_nLev,nSx,nSy) |
25 |
_RL land_runOff(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
26 |
|
27 |
C--- COMMON /LAND_FORCFIELDS/ |
28 |
C land_HeatFLx :: net surface downward Heat flux [W/m2] |
29 |
C land_Pr_m_Ev :: Precipitation minus Evaporation [m/s] |
30 |
COMMON /LAND_FORCFIELDS/ |
31 |
& land_HeatFLx, land_Pr_m_Ev |
32 |
|
33 |
_RL land_HeatFLx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
34 |
_RL land_Pr_m_Ev(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
35 |
|
36 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
37 |
|
38 |
#endif /* ALLOW_LAND */ |