/[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.20 by heimbach, Sat Mar 30 01:23:58 2013 UTC revision 1.21 by jmc, Sat Mar 30 15:39:30 2013 UTC
# Line 193  C--   Read parameters from open data fil Line 193  C--   Read parameters from open data fil
193    
194  #ifdef ALLOW_COST  #ifdef ALLOW_COST
195        READ(UNIT=iUnit,NML=THSICE_COST)        READ(UNIT=iUnit,NML=THSICE_COST)
196        WRITE(msgBuf,'(A)') ' THSICE_READPARMS: read THSICE_PARM02'        WRITE(msgBuf,'(A)') ' THSICE_READPARMS: read THSICE_COST'
197        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
198       &                    SQUEEZE_RIGHT , 1)       &                    SQUEEZE_RIGHT , 1)
199  #endif  #endif

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

  ViewVC Help
Powered by ViewVC 1.1.22