1 |
C $Header: /u/gcmpack/MITgcm/pkg/land/LAND_TAVE.h,v 1.1 2003/06/12 17:54:22 jmc Exp $ |
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. (oC) |
22 |
C land_entave :: time average enthalpy of each layer (J/m3) |
23 |
C land_grWtave :: time average soil moisture [0-1] |
24 |
C land_sTtave :: time average surface Temperature (oC) |
25 |
C land_hStave :: time average thickness of snow (m) |
26 |
C land_sAtave :: time average snow age (s) |
27 |
C land_ROftave :: time average Run-Off per surf unit [m/s] |
28 |
C land_eROtave :: time average energy flux related to run-Off [W/m2] |
29 |
COMMON /LAND_TAVE_A/ |
30 |
& land_grTtave, land_entave , land_grWtave, |
31 |
& land_sTtave , land_hStave , land_sAtave , |
32 |
& land_ROftave, land_eROtave |
33 |
|
34 |
_RL land_grTtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,land_nLev,nSx,nSy) |
35 |
_RL land_entave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,land_nLev,nSx,nSy) |
36 |
_RL land_grWtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,land_nLev,nSx,nSy) |
37 |
_RL land_sTtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
38 |
_RL land_hStave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
39 |
_RL land_sAtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
40 |
_RL land_ROftave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
41 |
_RL land_eROtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
42 |
|
43 |
#endif /* ALLOW_LAND_TAVE */ |
44 |
|
45 |
|
46 |
#endif /* ALLOW_LAND */ |