1 |
jmc |
1.2 |
C $Header: /u/gcmpack/MITgcm/pkg/land/LAND_TAVE.h,v 1.1 2003/06/12 17:54:22 jmc Exp $ |
2 |
jmc |
1.1 |
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 |
jmc |
1.2 |
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 |
jmc |
1.1 |
COMMON /LAND_TAVE_A/ |
30 |
jmc |
1.2 |
& land_grTtave, land_entave , land_grWtave, |
31 |
|
|
& land_sTtave , land_hStave , land_sAtave , |
32 |
|
|
& land_ROftave, land_eROtave |
33 |
jmc |
1.1 |
|
34 |
|
|
_RL land_grTtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,land_nLev,nSx,nSy) |
35 |
jmc |
1.2 |
_RL land_entave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,land_nLev,nSx,nSy) |
36 |
jmc |
1.1 |
_RL land_grWtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,land_nLev,nSx,nSy) |
37 |
jmc |
1.2 |
_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 |
jmc |
1.1 |
_RL land_ROftave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
41 |
jmc |
1.2 |
_RL land_eROtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
42 |
jmc |
1.1 |
|
43 |
|
|
#endif /* ALLOW_LAND_TAVE */ |
44 |
|
|
|
45 |
|
|
|
46 |
|
|
#endif /* ALLOW_LAND */ |