/[MITgcm]/MITgcm/pkg/thsice/THSICE_PARAMS.h
ViewVC logotype

Diff of /MITgcm/pkg/thsice/THSICE_PARAMS.h

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

revision 1.5 by edhill, Fri Jun 24 04:36:54 2005 UTC revision 1.6 by jmc, Thu May 25 18:03:24 2006 UTC
# Line 41  C     albIceMin   :: minimum ice albedo Line 41  C     albIceMin   :: minimum ice albedo
41  C     hAlbIce     :: ice thickness for albedo transition: thin/thick ice albedo  C     hAlbIce     :: ice thickness for albedo transition: thin/thick ice albedo
42  C     hAlbSnow    :: snow thickness for albedo transition: snow/ice albedo  C     hAlbSnow    :: snow thickness for albedo transition: snow/ice albedo
43  C     hNewSnowAge :: new snow thickness that refresh the snow-age (by 1/e)  C     hNewSnowAge :: new snow thickness that refresh the snow-age (by 1/e)
44    C     snowAgTime  :: snow aging time scale (s)
45  C .. Solar parameters  C .. Solar parameters
46  C     i0        ::   fraction of penetrating solar rad  C     i0        ::   fraction of penetrating solar rad
47  C     ksolar    ::   bulk solar abs coeff of sea ice (m-1)  C     ksolar    ::   bulk solar abs coeff of sea ice (m-1)
# Line 65  C     hihig      :: ice height above whi Line 66  C     hihig      :: ice height above whi
66  C                                        (=large for no fractional ice)  C                                        (=large for no fractional ice)
67  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
68    
69        COMMON / THSICE_PHYSPAR_R /        COMMON / THSICE_PHYSPAR_R /
70       &  rhos, rhoi, rhosw, rhofw, rhoiw,       &  rhos, rhoi, rhosw, rhofw, rhoiw,
71       &  cpice, cpwater,       &  cpice, cpwater,
72       &  kice, ksnow,       &  kice, ksnow,
73       &  transcoef, Lfresh, qsnow,       &  transcoef, Lfresh, qsnow,
74       &  albColdSnow, albWarmSnow, albOldSnow, hNewSnowAge,       &  albColdSnow, albWarmSnow, albOldSnow,
75       &  albIceMax, albIceMin, hAlbIce, hAlbSnow,       &  albIceMax, albIceMin, hAlbIce, hAlbSnow,
76         &  hNewSnowAge, snowAgTime,
77       &  i0, ksolar,       &  i0, ksolar,
78       &  saltice, S_winton, mu_Tf,       &  saltice, S_winton, mu_Tf,
79       &  Tf0kel, Tmlt1,       &  Tf0kel, Tmlt1,
# Line 94  C---+----1----+----2----+----3----+----4 Line 96  C---+----1----+----2----+----3----+----4
96        _RL  albColdSnow        _RL  albColdSnow
97        _RL  albWarmSnow        _RL  albWarmSnow
98        _RL  albOldSnow        _RL  albOldSnow
       _RL  hNewSnowAge  
99        _RL  albIceMax        _RL  albIceMax
100        _RL  albIceMin        _RL  albIceMin
101        _RL  hAlbIce        _RL  hAlbIce
102        _RL  hAlbSnow        _RL  hAlbSnow
103          _RL  hNewSnowAge
104          _RL  snowAgTime
105        _RL  i0        _RL  i0
106        _RL  ksolar        _RL  ksolar
107        _RL  saltice        _RL  saltice
# Line 129  C     thSIce_mon_mnc        :: write mon Line 132  C     thSIce_mon_mnc        :: write mon
132  C     thSIce_pickup_read_mnc    :: pickup read w/ MNC  C     thSIce_pickup_read_mnc    :: pickup read w/ MNC
133  C     thSIce_pickup_write_mnc   :: pickup write w/ MNC  C     thSIce_pickup_write_mnc   :: pickup write w/ MNC
134  C     thSIce_pickup_write_mdsio :: pickup write w/ MDSIO  C     thSIce_pickup_write_mdsio :: pickup write w/ MDSIO
135        COMMON / THSICE_PAR_L /        COMMON / THSICE_PAR_L /
136       &     stepFwd_oceMxL,       &     stepFwd_oceMxL,
137       &     thSIce_tave_mdsio, thSIce_snapshot_mdsio, thSIce_mon_stdio,       &     thSIce_tave_mdsio, thSIce_snapshot_mdsio, thSIce_mon_stdio,
138       &     thSIce_tave_mnc,   thSIce_snapshot_mnc,   thSIce_mon_mnc,       &     thSIce_tave_mnc,   thSIce_snapshot_mnc,   thSIce_mon_mnc,
139       &     thSIce_pickup_read_mnc,       &     thSIce_pickup_read_mnc,
140       &     thSIce_pickup_write_mdsio,       &     thSIce_pickup_write_mdsio,
141       &     thSIce_pickup_write_mnc       &     thSIce_pickup_write_mnc
142    
# Line 145  C     thSIce_pickup_write_mdsio :: picku Line 148  C     thSIce_pickup_write_mdsio :: picku
148        LOGICAL thSIce_pickup_write_mnc        LOGICAL thSIce_pickup_write_mnc
149    
150  C--   COMMON / THSICE_PAR_I / ice model (integer) parameters  C--   COMMON / THSICE_PAR_I / ice model (integer) parameters
151  c     startIceModel :: =1 : start ice model at nIter0 ; =0 : use pickup files  C     startIceModel :: =1 : start ice model at nIter0 ; =0 : use pickup files
152  c                   :: -1 : start from a small pickup (without Mix.Layer)  C                   :: -1 : start from a small pickup (without Mix.Layer)
153  c     nitMaxTsf     :: maximum Nb of iter to find Surface Temp (Trsf)  C     nitMaxTsf     :: maximum Nb of iter to find Surface Temp (Trsf)
154        COMMON / THSICE_PAR_I /        COMMON / THSICE_PAR_I /
155       &  startIceModel, nitMaxTsf       &  startIceModel, nitMaxTsf
156    
157        INTEGER startIceModel        INTEGER startIceModel
# Line 171  C     thSIce_monFreq  :: Frequency^-1 fo Line 174  C     thSIce_monFreq  :: Frequency^-1 fo
174       &  stressReduction,       &  stressReduction,
175       &  thSIce_taveFreq, thSIce_diagFreq, thSIce_monFreq       &  thSIce_taveFreq, thSIce_diagFreq, thSIce_monFreq
176    
177        _RL  thSIce_deltaT, ocean_deltaT, tauRelax_MxL        _RL  thSIce_deltaT, ocean_deltaT, tauRelax_MxL
178        _RL  hMxL_default, sMxL_default, vMxL_default        _RL  hMxL_default, sMxL_default, vMxL_default
179        _RL  stressReduction        _RL  stressReduction
180        _RL  thSIce_taveFreq, thSIce_diagFreq, thSIce_monFreq        _RL  thSIce_taveFreq, thSIce_diagFreq, thSIce_monFreq
181    
182  C--   COMMON / THSICE_PAR_C / ice model (character) parameters  C--   COMMON / THSICE_PAR_C / ice model (character) parameters
# Line 189  C     thSIceTsurf_InitFile :: File name Line 192  C     thSIceTsurf_InitFile :: File name
192       &  thSIceSnowH_InitFile,       &  thSIceSnowH_InitFile,
193       &  thSIceSnowA_InitFile,       &  thSIceSnowA_InitFile,
194       &  thSIceEnthp_InitFile,       &  thSIceEnthp_InitFile,
195       &  thSIceTsurf_InitFile       &  thSIceTsurf_InitFile
196        CHARACTER*(MAX_LEN_FNAM) thSIceFract_InitFile        CHARACTER*(MAX_LEN_FNAM) thSIceFract_InitFile
197        CHARACTER*(MAX_LEN_FNAM) thSIceThick_InitFile        CHARACTER*(MAX_LEN_FNAM) thSIceThick_InitFile
198        CHARACTER*(MAX_LEN_FNAM) thSIceSnowH_InitFile        CHARACTER*(MAX_LEN_FNAM) thSIceSnowH_InitFile
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22