Parent Directory | Revision Log | Revision Graph | 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 |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |