1 |
jmc |
1.4 |
C $Header: /u/gcmpack/MITgcm/pkg/land/LAND_TAVE.h,v 1.3 2007/10/01 15:20:53 jmc Exp $ |
2 |
jmc |
1.1 |
C $Name: $ |
3 |
|
|
|
4 |
|
|
|
5 |
jmc |
1.4 |
CBOP |
6 |
|
|
C !ROUTINE: LAND_TAVE.h |
7 |
|
|
C !INTERFACE: |
8 |
|
|
C include "LAND_TAVE.h" |
9 |
|
|
C !DESCRIPTION: |
10 |
|
|
C \bv |
11 |
jmc |
1.1 |
C *==========================================================* |
12 |
|
|
C | LAND_TAVE.h |
13 |
|
|
C | o Header for LAND time-average diagnostic |
14 |
|
|
C *==========================================================* |
15 |
|
|
C | Declares global arrays used for holding/accumulating |
16 |
|
|
C | diagnostic output from LAND. |
17 |
|
|
C *==========================================================* |
18 |
jmc |
1.4 |
C \ev |
19 |
|
|
CEOP |
20 |
jmc |
1.1 |
|
21 |
jmc |
1.4 |
#ifdef ALLOW_LAND |
22 |
jmc |
1.1 |
#ifdef ALLOW_LAND_TAVE |
23 |
|
|
|
24 |
jmc |
1.4 |
C-- COMMON /LAND_TAVE_VARS/ Time average land-variables |
25 |
|
|
C land_timeAve :: cumulated time [s] |
26 |
|
|
C land_grTtave :: time average ground Temp. [oC] |
27 |
|
|
C land_entave :: time average enthalpy of each layer [J/m3] |
28 |
jmc |
1.2 |
C land_grWtave :: time average soil moisture [0-1] |
29 |
jmc |
1.4 |
C land_sTtave :: time average surface Temperature [oC] |
30 |
|
|
C land_hStave :: time average thickness of snow [m] |
31 |
jmc |
1.2 |
C land_sAtave :: time average snow age (s) |
32 |
jmc |
1.3 |
C land_ROftave :: time average Run-Off per surf unit [kg/m2/s] |
33 |
jmc |
1.2 |
C land_eROtave :: time average energy flux related to run-Off [W/m2] |
34 |
jmc |
1.4 |
COMMON /LAND_TAVE_VARS/ |
35 |
|
|
& land_timeAve, |
36 |
jmc |
1.2 |
& land_grTtave, land_entave , land_grWtave, |
37 |
|
|
& land_sTtave , land_hStave , land_sAtave , |
38 |
jmc |
1.3 |
& land_ROftave, land_eROtave |
39 |
jmc |
1.1 |
|
40 |
jmc |
1.4 |
_RL land_timeAve(nSx,nSy) |
41 |
jmc |
1.1 |
_RL land_grTtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,land_nLev,nSx,nSy) |
42 |
jmc |
1.2 |
_RL land_entave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,land_nLev,nSx,nSy) |
43 |
jmc |
1.1 |
_RL land_grWtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,land_nLev,nSx,nSy) |
44 |
jmc |
1.2 |
_RL land_sTtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
45 |
|
|
_RL land_hStave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
46 |
|
|
_RL land_sAtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
47 |
jmc |
1.1 |
_RL land_ROftave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
48 |
jmc |
1.2 |
_RL land_eROtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
49 |
jmc |
1.1 |
|
50 |
|
|
#endif /* ALLOW_LAND_TAVE */ |
51 |
|
|
#endif /* ALLOW_LAND */ |