C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/land/LAND_VARS.h,v 1.4 2007/10/01 15:20:53 jmc Exp $
C $Name:  $

#ifdef ALLOW_LAND

C     *==========================================================*
C     | LAND_VARS.h
C     | o Land model variables:
C     |   - prognostic variables
C     |   - forcing fields
C     |   - diagnostic variables
C     *==========================================================*


C---  COMMON /LAND_VARS_R/
C     land_groundT :: ground Temperature (oC) of each layer
C     land_enthalp :: enthalpy of each layer (J/m3) = Cp.T
C     land_groundW :: soil moisture [0-1] (= water content / field capacity)
C     land_skinT   :: surface skin Temperature (oC)
C     land_hSnow   :: thickness of snow over land (m)
C     land_snowAge :: snow age (s)
C     land_runOff  :: run-Off per surface unit [kg/m2/s]
C     land_enRnOf  :: energy flux associated with run-Off [W/m2]
C
      COMMON /LAND_VARS_R/
     &   land_groundT, land_enthalp, land_groundW,
     &   land_skinT, land_hSnow, land_snowAge,
     &   land_runOff, land_enRnOf

      _RL land_groundT(1-OLx:sNx+OLx,1-OLy:sNy+OLy,land_nLev,nSx,nSy)
      _RL land_enthalp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,land_nLev,nSx,nSy)
      _RL land_groundW(1-OLx:sNx+OLx,1-OLy:sNy+OLy,land_nLev,nSx,nSy)
      _RL land_skinT  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL land_hSnow  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL land_snowAge(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL land_runOff (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL land_enRnOf (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)

C---  COMMON /LAND_FORCFIELDS/
C     land_HeatFlx :: net surface downward Heat flux  [W/m2]
C     land_Pr_m_Ev :: Precipitation minus Evaporation [kg/m2/s]
C     land_EnWFlux :: Energy flux associated with Precip [W/m2] (snow, T_rain)
      COMMON /LAND_FORCFIELDS/
     &  land_HeatFlx, land_Pr_m_Ev, land_EnWFlux

      _RL land_HeatFlx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL land_Pr_m_Ev(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL land_EnWFlux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)

C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|

#endif /* ALLOW_LAND */