C $Header: /u/gcmpack/MITgcm/pkg/land/LAND_PARAMS.h,v 1.8 2007/02/02 14:47:04 jmc Exp $
C $Name:  $

#ifdef ALLOW_LAND
C     *==========================================================*
C     | LAND_PARAMS.h
C     | o Header file for LAND package parameters:
C     |   - basic parameter ( I/O frequency, etc ...)
C     |   - physical constants
C     |   - vertical discretization
C     *==========================================================*

C--   COMMON /LAND_PAR_L/: logical parameters
C     land_calc_grT  :: step forward ground Temperature
C     land_calc_grW  :: step forward soil moiture
C     land_impl_grT  :: solve ground Temperature implicitly
C     land_calc_snow :: step forward snow thickness
C     land_calc_alb  :: compute albedo of snow over land
C     land_oldPickup :: restart from an old pickup (= before checkpoint 52l_pre)
      COMMON /LAND_PAR_L/
     &    land_calc_grT, land_calc_grW,
     &    land_impl_grT, land_calc_snow,
     &    land_calc_alb, land_oldPickup,
     &    land_timeave_mnc, land_snapshot_mnc, land_mon_mnc,
     &    land_pickup_write_mnc, land_pickup_read_mnc,
     &    land_timeave_mdsio, land_snapshot_mdsio, land_mon_stdio,
     &    land_pickup_write_mdsio
      LOGICAL land_calc_grT
      LOGICAL land_calc_grW
      LOGICAL land_impl_grT
      LOGICAL land_calc_snow
      LOGICAL land_calc_alb
      LOGICAL land_oldPickup
      LOGICAL
     &    land_timeave_mnc, land_snapshot_mnc, land_mon_mnc,
     &    land_pickup_write_mnc, land_pickup_read_mnc,
     &    land_timeave_mdsio, land_snapshot_mdsio, land_mon_stdio,
     &    land_pickup_write_mdsio

C--   COMMON /LAND_PAR_C/: Character valued parameters
C     land_grT_iniFile  :: File containing initial ground Temp.
C     land_grW_iniFile  :: File containing initial ground Water.
C     land_snow_iniFile :: File containing initial snow thickness.
      COMMON /LAND_PAR_C/
     &    land_grT_iniFile, land_grW_iniFile, land_snow_iniFile
      CHARACTER*(MAX_LEN_FNAM) land_grT_iniFile
      CHARACTER*(MAX_LEN_FNAM) land_grW_iniFile
      CHARACTER*(MAX_LEN_FNAM) land_snow_iniFile

C--   COMMON /LAND_PAR_R/: real-type parameters
C     land_deltaT     :: land model time-step
C     land_taveFreq   :: Frequency^-1 for time-Aver. output (s)
C     land_diagFreq   :: Frequency^-1 for diagnostic output (s)
C     land_monFreq    :: Frequency^-1 for monitor    output (s)
C     land_grdLambda  :: Thermal conductivity of the ground (W/m/K)
C     land_heatCs     :: Heat capacity of dry soil (J/m3/K)
C     land_CpWater    :: Heat capacity of water    (J/kg/K)
C     land_wTauDiff   :: soil moisture diffusion time scale (s)
C     land_waterCap   :: field capacity per meter of soil (1)
C     land_fractRunOff:: fraction of water in excess which run-off (1)
C     land_rhoSnow    :: density of snow (kg/m3)
C     land_rhoLiqW    :: density of liquid water (kg/m3)
C     land_Lfreez     :: Latent heat of freezing (J/kg)
C     recip_Lfreez    :: reciprol of Latent heat (kg/J)
C     land_hMaxSnow   :: Maximum snow-thickness  (m)
C     diffKsnow       :: thermal conductivity of snow (W/m/K)
C     timeSnowAge     :: snow aging time scale   (s)
C     hNewSnowAge     :: new snow thickness that refreshes snow-age (by 1/e)
C     albColdSnow     :: albedo of cold (=dry) new snow (Tsfc < tempSnowAlbL)
C     albWarmSnow     :: albedo of warm (=wet) new snow (Tsfc = 0)
C     tempSnowAlbL    :: temperature transition from ColdSnow to WarmSnow Alb. (oC)
C     albOldSnow      :: albedo of old snow (snowAge > 35.d)
C     hAlbSnow        :: snow thickness for albedo transition: snow/ground

      COMMON /LAND_PAR_R/
     &    land_deltaT, land_taveFreq, land_diagFreq, land_monFreq,
     &    land_grdLambda, land_heatCs, land_CpWater,
     &    land_wTauDiff, land_waterCap, land_fractRunOff,
     &    land_rhoLiqW,
     &    land_rhoSnow, land_Lfreez, recip_Lfreez,
     &    land_hMaxSnow, diffKsnow, timeSnowAge, hNewSnowAge,
     &    albColdSnow, albWarmSnow, tempSnowAlbL,
     &    albOldSnow, hAlbSnow

      _RL land_deltaT, land_taveFreq, land_diagFreq, land_monFreq
      _RL land_grdLambda, land_heatCs, land_CpWater
      _RL land_wTauDiff, land_waterCap, land_fractRunOff
      _RL land_rhoLiqW
      _RL land_rhoSnow, land_Lfreez, recip_Lfreez
      _RL land_hMaxSnow, diffKsnow, timeSnowAge, hNewSnowAge
      _RL albColdSnow, albWarmSnow, tempSnowAlbL
      _RL albOldSnow, hAlbSnow

C--   COMMON /LAND_GRID_R/: layer dependent parameters
C     land_dzF        :: layer thickness
C     land_rec_dzC    :: reciprol vertical spacing (from center to center)
      COMMON /LAND_GRID_R/
     &    land_dzF, land_rec_dzC

      _RL land_dzF(land_nLev), land_rec_dzC(land_nLev)

#endif /* ALLOW_LAND */

CEH3 ;;; Local Variables: ***
CEH3 ;;; mode:fortran ***
CEH3 ;;; End: ***