1 |
C $Header: /u/gcmpack/MITgcm/pkg/land/LAND_VARS.h,v 1.3 2004/06/21 16:50:21 jmc Exp $ |
2 |
C $Name: $ |
3 |
|
4 |
#ifdef ALLOW_LAND |
5 |
|
6 |
C *==========================================================* |
7 |
C | LAND_VARS.h |
8 |
C | o Land model variables: |
9 |
C | - prognostic variables |
10 |
C | - forcing fields |
11 |
C | - diagnostic variables |
12 |
C *==========================================================* |
13 |
|
14 |
|
15 |
C--- COMMON /LAND_VARS_R/ |
16 |
C land_groundT :: ground Temperature (oC) of each layer |
17 |
C land_enthalp :: enthalpy of each layer (J/m3) = Cp.T |
18 |
C land_groundW :: soil moisture [0-1] (= water content / field capacity) |
19 |
C land_skinT :: surface skin Temperature (oC) |
20 |
C land_hSnow :: thickness of snow over land (m) |
21 |
C land_snowAge :: snow age (s) |
22 |
C land_runOff :: run-Off per surface unit [kg/m2/s] |
23 |
C land_enRnOf :: energy flux associated with run-Off [W/m2] |
24 |
C |
25 |
COMMON /LAND_VARS_R/ |
26 |
& land_groundT, land_enthalp, land_groundW, |
27 |
& land_skinT, land_hSnow, land_snowAge, |
28 |
& land_runOff, land_enRnOf |
29 |
|
30 |
_RL land_groundT(1-OLx:sNx+OLx,1-OLy:sNy+OLy,land_nLev,nSx,nSy) |
31 |
_RL land_enthalp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,land_nLev,nSx,nSy) |
32 |
_RL land_groundW(1-OLx:sNx+OLx,1-OLy:sNy+OLy,land_nLev,nSx,nSy) |
33 |
_RL land_skinT (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
34 |
_RL land_hSnow (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
35 |
_RL land_snowAge(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
36 |
_RL land_runOff (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
37 |
_RL land_enRnOf (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
38 |
|
39 |
C--- COMMON /LAND_FORCFIELDS/ |
40 |
C land_HeatFlx :: net surface downward Heat flux [W/m2] |
41 |
C land_Pr_m_Ev :: Precipitation minus Evaporation [kg/m2/s] |
42 |
C land_EnWFlux :: Energy flux associated with Precip [W/m2] (snow, T_rain) |
43 |
COMMON /LAND_FORCFIELDS/ |
44 |
& land_HeatFlx, land_Pr_m_Ev, land_EnWFlux |
45 |
|
46 |
_RL land_HeatFlx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
47 |
_RL land_Pr_m_Ev(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
48 |
_RL land_EnWFlux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
49 |
|
50 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
51 |
|
52 |
#endif /* ALLOW_LAND */ |