pkg/land/LAND_PARAMS.h

e0a2f8aec4 Jean*0001 #ifdef ALLOW_LAND
                0002 C     *==========================================================*
                0003 C     | LAND_PARAMS.h
                0004 C     | o Header file for LAND package parameters:
                0005 C     |   - basic parameter ( I/O frequency, etc ...)
3a10a8cfd8 Jean*0006 C     |   - physical constants
e0a2f8aec4 Jean*0007 C     |   - vertical discretization
                0008 C     *==========================================================*
                0009
                0010 C--   COMMON /LAND_PAR_L/: logical parameters
89992793c5 Jean*0011 C     land_calc_grT  :: step forward ground Temperature
                0012 C     land_calc_grW  :: step forward soil moiture
                0013 C     land_impl_grT  :: solve ground Temperature implicitly
                0014 C     land_calc_snow :: step forward snow thickness
                0015 C     land_calc_alb  :: compute albedo of snow over land
                0016 C     land_oldPickup :: restart from an old pickup (= before checkpoint 52l_pre)
e0a2f8aec4 Jean*0017       COMMON /LAND_PAR_L/
3a10a8cfd8 Jean*0018      &    land_calc_grT, land_calc_grW,
89992793c5 Jean*0019      &    land_impl_grT, land_calc_snow,
cf701ea57b Ed H*0020      &    land_calc_alb, land_oldPickup,
3a10a8cfd8 Jean*0021      &    land_timeave_mnc, land_snapshot_mnc, land_mon_mnc,
                0022      &    land_pickup_write_mnc, land_pickup_read_mnc,
                0023      &    land_timeave_mdsio, land_snapshot_mdsio, land_mon_stdio,
                0024      &    land_pickup_write_mdsio
e0a2f8aec4 Jean*0025       LOGICAL land_calc_grT
                0026       LOGICAL land_calc_grW
89992793c5 Jean*0027       LOGICAL land_impl_grT
                0028       LOGICAL land_calc_snow
                0029       LOGICAL land_calc_alb
                0030       LOGICAL land_oldPickup
cf701ea57b Ed H*0031       LOGICAL
3a10a8cfd8 Jean*0032      &    land_timeave_mnc, land_snapshot_mnc, land_mon_mnc,
                0033      &    land_pickup_write_mnc, land_pickup_read_mnc,
                0034      &    land_timeave_mdsio, land_snapshot_mdsio, land_mon_stdio,
                0035      &    land_pickup_write_mdsio
e0a2f8aec4 Jean*0036
a8844d79c5 Jean*0037 C--   COMMON /LAND_PAR_C/: Character valued parameters
89992793c5 Jean*0038 C     land_grT_iniFile  :: File containing initial ground Temp.
                0039 C     land_grW_iniFile  :: File containing initial ground Water.
                0040 C     land_snow_iniFile :: File containing initial snow thickness.
3a10a8cfd8 Jean*0041       COMMON /LAND_PAR_C/
89992793c5 Jean*0042      &    land_grT_iniFile, land_grW_iniFile, land_snow_iniFile
a8844d79c5 Jean*0043       CHARACTER*(MAX_LEN_FNAM) land_grT_iniFile
                0044       CHARACTER*(MAX_LEN_FNAM) land_grW_iniFile
89992793c5 Jean*0045       CHARACTER*(MAX_LEN_FNAM) land_snow_iniFile
a8844d79c5 Jean*0046
e0a2f8aec4 Jean*0047 C--   COMMON /LAND_PAR_R/: real-type parameters
                0048 C     land_deltaT     :: land model time-step
                0049 C     land_taveFreq   :: Frequency^-1 for time-Aver. output (s)
                0050 C     land_diagFreq   :: Frequency^-1 for diagnostic output (s)
89992793c5 Jean*0051 C     land_monFreq    :: Frequency^-1 for monitor    output (s)
                0052 C     land_grdLambda  :: Thermal conductivity of the ground (W/m/K)
                0053 C     land_heatCs     :: Heat capacity of dry soil (J/m3/K)
                0054 C     land_CpWater    :: Heat capacity of water    (J/kg/K)
e0a2f8aec4 Jean*0055 C     land_wTauDiff   :: soil moisture diffusion time scale (s)
                0056 C     land_waterCap   :: field capacity per meter of soil (1)
                0057 C     land_fractRunOff:: fraction of water in excess which run-off (1)
89992793c5 Jean*0058 C     land_rhoSnow    :: density of snow (kg/m3)
                0059 C     land_rhoLiqW    :: density of liquid water (kg/m3)
                0060 C     land_Lfreez     :: Latent heat of freezing (J/kg)
                0061 C     recip_Lfreez    :: reciprol of Latent heat (kg/J)
b30f09edfc Jean*0062 C     land_hMaxSnow   :: Maximum snow-thickness  (m)
89992793c5 Jean*0063 C     diffKsnow       :: thermal conductivity of snow (W/m/K)
                0064 C     timeSnowAge     :: snow aging time scale   (s)
                0065 C     hNewSnowAge     :: new snow thickness that refreshes snow-age (by 1/e)
1f792166dd Davi*0066 C     albColdSnow     :: albedo of cold (=dry) new snow (Tsfc < tempSnowAlbL)
89992793c5 Jean*0067 C     albWarmSnow     :: albedo of warm (=wet) new snow (Tsfc = 0)
1f792166dd Davi*0068 C     tempSnowAlbL    :: temperature transition from ColdSnow to WarmSnow Alb. (oC)
89992793c5 Jean*0069 C     albOldSnow      :: albedo of old snow (snowAge > 35.d)
                0070 C     hAlbSnow        :: snow thickness for albedo transition: snow/ground
                0071
3a10a8cfd8 Jean*0072       COMMON /LAND_PAR_R/
89992793c5 Jean*0073      &    land_deltaT, land_taveFreq, land_diagFreq, land_monFreq,
                0074      &    land_grdLambda, land_heatCs, land_CpWater,
                0075      &    land_wTauDiff, land_waterCap, land_fractRunOff,
3a10a8cfd8 Jean*0076      &    land_rhoLiqW,
                0077      &    land_rhoSnow, land_Lfreez, recip_Lfreez,
b30f09edfc Jean*0078      &    land_hMaxSnow, diffKsnow, timeSnowAge, hNewSnowAge,
d62d44c4c9 Jean*0079      &    albColdSnow, albWarmSnow, tempSnowAlbL,
                0080      &    albOldSnow, hAlbSnow
e0a2f8aec4 Jean*0081
89992793c5 Jean*0082       _RL land_deltaT, land_taveFreq, land_diagFreq, land_monFreq
                0083       _RL land_grdLambda, land_heatCs, land_CpWater
e0a2f8aec4 Jean*0084       _RL land_wTauDiff, land_waterCap, land_fractRunOff
89992793c5 Jean*0085       _RL land_rhoLiqW
                0086       _RL land_rhoSnow, land_Lfreez, recip_Lfreez
b30f09edfc Jean*0087       _RL land_hMaxSnow, diffKsnow, timeSnowAge, hNewSnowAge
d62d44c4c9 Jean*0088       _RL albColdSnow, albWarmSnow, tempSnowAlbL
                0089       _RL albOldSnow, hAlbSnow
e0a2f8aec4 Jean*0090
                0091 C--   COMMON /LAND_GRID_R/: layer dependent parameters
                0092 C     land_dzF        :: layer thickness
                0093 C     land_rec_dzC    :: reciprol vertical spacing (from center to center)
3a10a8cfd8 Jean*0094       COMMON /LAND_GRID_R/
e0a2f8aec4 Jean*0095      &    land_dzF, land_rec_dzC
                0096
                0097       _RL land_dzF(land_nLev), land_rec_dzC(land_nLev)
                0098
3a10a8cfd8 Jean*0099 #endif /* ALLOW_LAND */
cf701ea57b Ed H*0100
                0101 CEH3 ;;; Local Variables: ***
                0102 CEH3 ;;; mode:fortran ***
                0103 CEH3 ;;; End: ***
                0104