/[MITgcm]/MITgcm/pkg/thsice/thsice_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/thsice/thsice_readparms.F

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

revision 1.9 by jmc, Sun Jun 25 22:31:02 2006 UTC revision 1.10 by jmc, Mon Jul 24 20:30:54 2006 UTC
# Line 49  C--   Th-Sea-ICE parameter Line 49  C--   Th-Sea-ICE parameter
49       &  cpice, cpwater,       &  cpice, cpwater,
50       &  kice, ksnow,       &  kice, ksnow,
51       &  transcoef, Lfresh, qsnow,       &  transcoef, Lfresh, qsnow,
52       &  albColdSnow, albWarmSnow, albOldSnow,       &  albColdSnow, albWarmSnow, tempSnowAlb,
53       &  hNewSnowAge, snowAgTime,       &  albOldSnow, hNewSnowAge, snowAgTime,
54       &  albIceMax, albIceMin, hAlbIce, hAlbSnow,       &  albIceMax, albIceMin, hAlbIce, hAlbSnow,
55       &  i0, ksolar,       &  i0, ksolar,
56       &  saltice, S_winton, mu_Tf,       &  saltice, S_winton, mu_Tf,
# Line 96  C--   Default values (constants) Line 96  C--   Default values (constants)
96        qsnow    = Lfresh        qsnow    = Lfresh
97        albColdSnow= 0.85 _d 0        albColdSnow= 0.85 _d 0
98        albWarmSnow= 0.70 _d 0        albWarmSnow= 0.70 _d 0
99          tempSnowAlb= -10. _d 0
100        albOldSnow = 0.55 _d 0        albOldSnow = 0.55 _d 0
101        albIceMax  = 0.65 _d 0        albIceMax  = 0.65 _d 0
102        albIceMin  = 0.20 _d 0        albIceMin  = 0.20 _d 0
# Line 227  c     OPEN(iUnit,file='thsice_check_para Line 228  c     OPEN(iUnit,file='thsice_check_para
228        WRITE(iUnit,*) 'ThSI: qsnow   =',qsnow        WRITE(iUnit,*) 'ThSI: qsnow   =',qsnow
229        WRITE(iUnit,*) 'ThSI: albColdSnow=',albColdSnow        WRITE(iUnit,*) 'ThSI: albColdSnow=',albColdSnow
230        WRITE(iUnit,*) 'ThSI: albWarmSnow=',albWarmSnow        WRITE(iUnit,*) 'ThSI: albWarmSnow=',albWarmSnow
231          WRITE(iUnit,*) 'ThSI: tempSnowAlb=',tempSnowAlb
232        WRITE(iUnit,*) 'ThSI: albOldSnow =',albOldSnow        WRITE(iUnit,*) 'ThSI: albOldSnow =',albOldSnow
233          WRITE(iUnit,*) 'ThSI: hNewSnowAge=',hNewSnowAge
234          WRITE(iUnit,*) 'ThSI: snowAgTime =',snowAgTime
235        WRITE(iUnit,*) 'ThSI: albIceMax =',albIceMax        WRITE(iUnit,*) 'ThSI: albIceMax =',albIceMax
236        WRITE(iUnit,*) 'ThSI: albIceMin =',albIceMin        WRITE(iUnit,*) 'ThSI: albIceMin =',albIceMin
237        WRITE(iUnit,*) 'ThSI: hAlbIce   =',hAlbIce        WRITE(iUnit,*) 'ThSI: hAlbIce   =',hAlbIce
238        WRITE(iUnit,*) 'ThSI: hAlbSnow  =',hAlbSnow        WRITE(iUnit,*) 'ThSI: hAlbSnow  =',hAlbSnow
       WRITE(iUnit,*) 'ThSI: hNewSnowAge=',hNewSnowAge  
       WRITE(iUnit,*) 'ThSI: snowAgTime =',snowAgTime  
239        WRITE(iUnit,*) 'ThSI: i0      =',i0        WRITE(iUnit,*) 'ThSI: i0      =',i0
240        WRITE(iUnit,*) 'ThSI: ksolar  =',ksolar        WRITE(iUnit,*) 'ThSI: ksolar  =',ksolar
241        WRITE(iUnit,*) 'ThSI: saltice =',saltice        WRITE(iUnit,*) 'ThSI: saltice =',saltice
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22