/[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.14 by jmc, Sun Apr 29 23:48:44 2007 UTC revision 1.15 by dfer, Fri Apr 11 21:31:14 2008 UTC
# Line 186  C     and ice thickness/growth, use thSI Line 186  C     and ice thickness/growth, use thSI
186    
187  C-    Define other constants (from previous ones):  C-    Define other constants (from previous ones):
188        Tmlt1=-mu_Tf*S_winton        Tmlt1=-mu_Tf*S_winton
189        rhoiw = rhosw - rhoi        floodFac = (rhosw - rhoi)/rhos
190    
191  C     Set I/O parameters  C     Set I/O parameters
192        thSIce_tave_mdsio     = .TRUE.        thSIce_tave_mdsio     = .TRUE.
# Line 250  c     OPEN(iUnit,file='thsice_check_para Line 250  c     OPEN(iUnit,file='thsice_check_para
250        WRITE(iUnit,*) 'ThSI: rhoi      =',rhoi        WRITE(iUnit,*) 'ThSI: rhoi      =',rhoi
251        WRITE(iUnit,*) 'ThSI: rhosw     =',rhosw        WRITE(iUnit,*) 'ThSI: rhosw     =',rhosw
252        WRITE(iUnit,*) 'ThSI: rhofw     =',rhofw        WRITE(iUnit,*) 'ThSI: rhofw     =',rhofw
253        WRITE(iUnit,*) 'ThSI: rhoiw     =',rhoiw        WRITE(iUnit,*) 'ThSI: floodFac  =',floodFac
254        WRITE(iUnit,*) 'ThSI: cpIce     =',cpIce        WRITE(iUnit,*) 'ThSI: cpIce     =',cpIce
255        WRITE(iUnit,*) 'ThSI: cpWater   =',cpWater        WRITE(iUnit,*) 'ThSI: cpWater   =',cpWater
256        WRITE(iUnit,*) 'ThSI: kIce      =',kIce        WRITE(iUnit,*) 'ThSI: kIce      =',kIce
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22