text: 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: ***
  
  