1 |
C $Header: $ |
2 |
C $Name: $ |
3 |
|
4 |
#ifdef ALLOW_LAND |
5 |
|
6 |
C *==========================================================* |
7 |
C | LAND_TAVE.h |
8 |
C | o Header for LAND time-average diagnostic |
9 |
C *==========================================================* |
10 |
C | Declares global arrays used for holding/accumulating |
11 |
C | diagnostic output from LAND. |
12 |
C *==========================================================* |
13 |
|
14 |
#ifdef ALLOW_LAND_TAVE |
15 |
|
16 |
C-- COMMON /LAND_TAVE/ Timer for Land Time-Average Diagnostics |
17 |
COMMON /LAND_TAVE/ land_timeAve |
18 |
_RL land_timeAve(Nr,nSx,nSy) |
19 |
|
20 |
C-- COMMON /LAND_TAVE_A/ Time average land-variables |
21 |
C land_grTtave :: time average ground Temp. |
22 |
C land_grWtave :: time average soil moisture |
23 |
C land_ROftave :: time average Run-Off |
24 |
COMMON /LAND_TAVE_A/ |
25 |
& land_grTtave, land_grWtave, land_ROftave |
26 |
|
27 |
_RL land_grTtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,land_nLev,nSx,nSy) |
28 |
_RL land_grWtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,land_nLev,nSx,nSy) |
29 |
_RL land_ROftave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
30 |
|
31 |
#endif /* ALLOW_LAND_TAVE */ |
32 |
|
33 |
|
34 |
#endif /* ALLOW_LAND */ |