/[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.1 by jmc, Sun Nov 23 01:20:13 2003 UTC revision 1.2 by jmc, Wed Dec 31 17:44:32 2003 UTC
# Line 37  C--   Th-Sea-ICE parameter Line 37  C--   Th-Sea-ICE parameter
37       &  cpice, cpwater,       &  cpice, cpwater,
38       &  kice, ksnow,       &  kice, ksnow,
39       &  transcoef, Lfresh, qsnow,       &  transcoef, Lfresh, qsnow,
40       &  albsnodry, albsnowet, albicemax, albicemin, halb,       &  albColdSnow, albWarmSnow, albOldSnow, hNewSnowAge,
41         &  albIceMax, albIceMin, hAlbIce, hAlbSnow,
42       &  i0, ksolar,       &  i0, ksolar,
43       &  saltice, S_winton, mu_Tf,       &  saltice, S_winton, mu_Tf,
44       &  Tf0kel,       &  Tf0kel,
# Line 74  C--   Default values (constants) Line 75  C--   Default values (constants)
75        transcoef=0.006 _d 0        transcoef=0.006 _d 0
76        Lfresh   = 3.34 _d 5        Lfresh   = 3.34 _d 5
77        qsnow    = Lfresh        qsnow    = Lfresh
78        albsnodry= 0.85 _d 0        albColdSnow= 0.85 _d 0
79        albsnowet= 0.75 _d 0        albWarmSnow= 0.70 _d 0
80        albicemax= 0.65 _d 0        albOldSnow = 0.55 _d 0
81        albicemin= 0.20 _d 0        albIceMax  = 0.65 _d 0
82        halb     = 0.5 _d 0        albIceMin  = 0.20 _d 0
83          hAlbIce    = 0.50 _d 0
84          hAlbSnow   = 0.30 _d 0
85          hNewSnowAge= 2. _d -3
86        i0       = 0.3 _d 0        i0       = 0.3 _d 0
87        ksolar   = 1.5 _d 0        ksolar   = 1.5 _d 0
88        saltice  = 4. _d 0        saltice  = 4. _d 0
# Line 138  c     OPEN(iUnit,file='thsice_check_para Line 142  c     OPEN(iUnit,file='thsice_check_para
142        WRITE(iUnit,*) 'ThSI: transcoef=',transcoef        WRITE(iUnit,*) 'ThSI: transcoef=',transcoef
143        WRITE(iUnit,*) 'ThSI: Lfresh  =',Lfresh        WRITE(iUnit,*) 'ThSI: Lfresh  =',Lfresh
144        WRITE(iUnit,*) 'ThSI: qsnow   =',qsnow        WRITE(iUnit,*) 'ThSI: qsnow   =',qsnow
145        WRITE(iUnit,*) 'ThSI: albsnodry=',albsnodry        WRITE(iUnit,*) 'ThSI: albColdSnow=',albColdSnow
146        WRITE(iUnit,*) 'ThSI: albsnowet=',albsnowet        WRITE(iUnit,*) 'ThSI: albWarmSnow=',albWarmSnow
147        WRITE(iUnit,*) 'ThSI: albicemax=',albicemax        WRITE(iUnit,*) 'ThSI: albOldSnow =',albOldSnow
148        WRITE(iUnit,*) 'ThSI: albicemin=',albicemin        WRITE(iUnit,*) 'ThSI: hNewSnowAge=',hNewSnowAge
149        WRITE(iUnit,*) 'ThSI: halb    =',halb        WRITE(iUnit,*) 'ThSI: albIceMax =',albIceMax
150          WRITE(iUnit,*) 'ThSI: albIceMin =',albIceMin
151          WRITE(iUnit,*) 'ThSI: hAlbIce   =',hAlbIce
152          WRITE(iUnit,*) 'ThSI: hAlbSnow  =',hAlbSnow
153        WRITE(iUnit,*) 'ThSI: i0      =',i0        WRITE(iUnit,*) 'ThSI: i0      =',i0
154        WRITE(iUnit,*) 'ThSI: ksolar  =',ksolar        WRITE(iUnit,*) 'ThSI: ksolar  =',ksolar
155        WRITE(iUnit,*) 'ThSI: saltice =',saltice        WRITE(iUnit,*) 'ThSI: saltice =',saltice
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22