1 |
C $Header: /u/gcmpack/MITgcm/pkg/land/LAND_TAVE.h,v 1.3 2007/10/01 15:20:53 jmc Exp $ |
2 |
C $Name: $ |
3 |
|
4 |
|
5 |
CBOP |
6 |
C !ROUTINE: LAND_TAVE.h |
7 |
C !INTERFACE: |
8 |
C include "LAND_TAVE.h" |
9 |
C !DESCRIPTION: |
10 |
C \bv |
11 |
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 |
C \ev |
19 |
CEOP |
20 |
|
21 |
#ifdef ALLOW_LAND |
22 |
#ifdef ALLOW_LAND_TAVE |
23 |
|
24 |
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 |
C land_grWtave :: time average soil moisture [0-1] |
29 |
C land_sTtave :: time average surface Temperature [oC] |
30 |
C land_hStave :: time average thickness of snow [m] |
31 |
C land_sAtave :: time average snow age (s) |
32 |
C land_ROftave :: time average Run-Off per surf unit [kg/m2/s] |
33 |
C land_eROtave :: time average energy flux related to run-Off [W/m2] |
34 |
COMMON /LAND_TAVE_VARS/ |
35 |
& land_timeAve, |
36 |
& land_grTtave, land_entave , land_grWtave, |
37 |
& land_sTtave , land_hStave , land_sAtave , |
38 |
& land_ROftave, land_eROtave |
39 |
|
40 |
_RL land_timeAve(nSx,nSy) |
41 |
_RL land_grTtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,land_nLev,nSx,nSy) |
42 |
_RL land_entave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,land_nLev,nSx,nSy) |
43 |
_RL land_grWtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,land_nLev,nSx,nSy) |
44 |
_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 |
_RL land_ROftave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
48 |
_RL land_eROtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
49 |
|
50 |
#endif /* ALLOW_LAND_TAVE */ |
51 |
#endif /* ALLOW_LAND */ |