/[MITgcm]/MITgcm/pkg/land/LAND_PARAMS.h
ViewVC logotype

Diff of /MITgcm/pkg/land/LAND_PARAMS.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.4 by jmc, Fri May 14 16:14:48 2004 UTC revision 1.8 by jmc, Fri Feb 2 14:47:04 2007 UTC
# Line 6  C     *================================= Line 6  C     *=================================
6  C     | LAND_PARAMS.h  C     | LAND_PARAMS.h
7  C     | o Header file for LAND package parameters:  C     | o Header file for LAND package parameters:
8  C     |   - basic parameter ( I/O frequency, etc ...)  C     |   - basic parameter ( I/O frequency, etc ...)
9  C     |   - physical constants  C     |   - physical constants
10  C     |   - vertical discretization  C     |   - vertical discretization
11  C     *==========================================================*  C     *==========================================================*
12    
# Line 18  C     land_calc_snow :: step forward sno Line 18  C     land_calc_snow :: step forward sno
18  C     land_calc_alb  :: compute albedo of snow over land  C     land_calc_alb  :: compute albedo of snow over land
19  C     land_oldPickup :: restart from an old pickup (= before checkpoint 52l_pre)  C     land_oldPickup :: restart from an old pickup (= before checkpoint 52l_pre)
20        COMMON /LAND_PAR_L/        COMMON /LAND_PAR_L/
21       &    land_calc_grT, land_calc_grW,       &    land_calc_grT, land_calc_grW,
22       &    land_impl_grT, land_calc_snow,       &    land_impl_grT, land_calc_snow,
23       &    land_calc_alb, land_oldPickup       &    land_calc_alb, land_oldPickup,
24         &    land_timeave_mnc, land_snapshot_mnc, land_mon_mnc,
25         &    land_pickup_write_mnc, land_pickup_read_mnc,
26         &    land_timeave_mdsio, land_snapshot_mdsio, land_mon_stdio,
27         &    land_pickup_write_mdsio
28        LOGICAL land_calc_grT        LOGICAL land_calc_grT
29        LOGICAL land_calc_grW        LOGICAL land_calc_grW
30        LOGICAL land_impl_grT        LOGICAL land_impl_grT
31        LOGICAL land_calc_snow        LOGICAL land_calc_snow
32        LOGICAL land_calc_alb        LOGICAL land_calc_alb
33        LOGICAL land_oldPickup        LOGICAL land_oldPickup
34          LOGICAL
35         &    land_timeave_mnc, land_snapshot_mnc, land_mon_mnc,
36         &    land_pickup_write_mnc, land_pickup_read_mnc,
37         &    land_timeave_mdsio, land_snapshot_mdsio, land_mon_stdio,
38         &    land_pickup_write_mdsio
39    
40  C--   COMMON /LAND_PAR_C/: Character valued parameters  C--   COMMON /LAND_PAR_C/: Character valued parameters
41  C     land_grT_iniFile  :: File containing initial ground Temp.  C     land_grT_iniFile  :: File containing initial ground Temp.
42  C     land_grW_iniFile  :: File containing initial ground Water.  C     land_grW_iniFile  :: File containing initial ground Water.
43  C     land_snow_iniFile :: File containing initial snow thickness.  C     land_snow_iniFile :: File containing initial snow thickness.
44        COMMON /LAND_PAR_C/        COMMON /LAND_PAR_C/
45       &    land_grT_iniFile, land_grW_iniFile, land_snow_iniFile       &    land_grT_iniFile, land_grW_iniFile, land_snow_iniFile
46        CHARACTER*(MAX_LEN_FNAM) land_grT_iniFile        CHARACTER*(MAX_LEN_FNAM) land_grT_iniFile
47        CHARACTER*(MAX_LEN_FNAM) land_grW_iniFile        CHARACTER*(MAX_LEN_FNAM) land_grW_iniFile
# Line 57  C     land_hMaxSnow   :: Maximum snow-th Line 66  C     land_hMaxSnow   :: Maximum snow-th
66  C     diffKsnow       :: thermal conductivity of snow (W/m/K)  C     diffKsnow       :: thermal conductivity of snow (W/m/K)
67  C     timeSnowAge     :: snow aging time scale   (s)  C     timeSnowAge     :: snow aging time scale   (s)
68  C     hNewSnowAge     :: new snow thickness that refreshes snow-age (by 1/e)  C     hNewSnowAge     :: new snow thickness that refreshes snow-age (by 1/e)
69  C     albColdSnow     :: albedo of cold (=dry) new snow (Tsfc < -10)  C     albColdSnow     :: albedo of cold (=dry) new snow (Tsfc < tempSnowAlbL)
70  C     albWarmSnow     :: albedo of warm (=wet) new snow (Tsfc = 0)  C     albWarmSnow     :: albedo of warm (=wet) new snow (Tsfc = 0)
71    C     tempSnowAlbL    :: temperature transition from ColdSnow to WarmSnow Alb. (oC)
72  C     albOldSnow      :: albedo of old snow (snowAge > 35.d)  C     albOldSnow      :: albedo of old snow (snowAge > 35.d)
73  C     hAlbSnow        :: snow thickness for albedo transition: snow/ground  C     hAlbSnow        :: snow thickness for albedo transition: snow/ground
74    
75        COMMON /LAND_PAR_R/        COMMON /LAND_PAR_R/
76       &    land_deltaT, land_taveFreq, land_diagFreq, land_monFreq,       &    land_deltaT, land_taveFreq, land_diagFreq, land_monFreq,
77       &    land_grdLambda, land_heatCs, land_CpWater,       &    land_grdLambda, land_heatCs, land_CpWater,
78       &    land_wTauDiff, land_waterCap, land_fractRunOff,       &    land_wTauDiff, land_waterCap, land_fractRunOff,
79       &    land_rhoLiqW,       &    land_rhoLiqW,
80       &    land_rhoSnow, land_Lfreez, recip_Lfreez,       &    land_rhoSnow, land_Lfreez, recip_Lfreez,
81       &    land_hMaxSnow, diffKsnow, timeSnowAge, hNewSnowAge,       &    land_hMaxSnow, diffKsnow, timeSnowAge, hNewSnowAge,
82       &    albColdSnow, albWarmSnow, albOldSnow, hAlbSnow       &    albColdSnow, albWarmSnow, tempSnowAlbL,
83         &    albOldSnow, hAlbSnow
84    
85        _RL land_deltaT, land_taveFreq, land_diagFreq, land_monFreq        _RL land_deltaT, land_taveFreq, land_diagFreq, land_monFreq
86        _RL land_grdLambda, land_heatCs, land_CpWater        _RL land_grdLambda, land_heatCs, land_CpWater
# Line 77  C     hAlbSnow        :: snow thickness Line 88  C     hAlbSnow        :: snow thickness
88        _RL land_rhoLiqW        _RL land_rhoLiqW
89        _RL land_rhoSnow, land_Lfreez, recip_Lfreez        _RL land_rhoSnow, land_Lfreez, recip_Lfreez
90        _RL land_hMaxSnow, diffKsnow, timeSnowAge, hNewSnowAge        _RL land_hMaxSnow, diffKsnow, timeSnowAge, hNewSnowAge
91        _RL albColdSnow, albWarmSnow, albOldSnow, hAlbSnow        _RL albColdSnow, albWarmSnow, tempSnowAlbL
92          _RL albOldSnow, hAlbSnow
93    
94  C--   COMMON /LAND_GRID_R/: layer dependent parameters  C--   COMMON /LAND_GRID_R/: layer dependent parameters
95  C     land_dzF        :: layer thickness  C     land_dzF        :: layer thickness
96  C     land_rec_dzC    :: reciprol vertical spacing (from center to center)  C     land_rec_dzC    :: reciprol vertical spacing (from center to center)
97        COMMON /LAND_GRID_R/        COMMON /LAND_GRID_R/
98       &    land_dzF, land_rec_dzC       &    land_dzF, land_rec_dzC
99    
100        _RL land_dzF(land_nLev), land_rec_dzC(land_nLev)        _RL land_dzF(land_nLev), land_rec_dzC(land_nLev)
101    
102  #endif /* ALLOW_LAND */  #endif /* ALLOW_LAND */
103    
104    CEH3 ;;; Local Variables: ***
105    CEH3 ;;; mode:fortran ***
106    CEH3 ;;; End: ***
107    
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22