/[MITgcm]/MITgcm/pkg/ocn_compon_interf/cpl_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/ocn_compon_interf/cpl_readparms.F

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

revision 1.9 by jscott, Thu May 10 21:15:52 2007 UTC revision 1.10 by jmc, Mon Jun 18 21:06:04 2007 UTC
# Line 170  C        CALL PRINT_MESSAGE(msgBuf,iUnit Line 170  C        CALL PRINT_MESSAGE(msgBuf,iUnit
170    
171        IF ( ( useImportFice.OR.useImportCO2.OR.useImportWSpd ) .AND.        IF ( ( useImportFice.OR.useImportCO2.OR.useImportWSpd ) .AND.
172       &    (.NOT.ocnCpl_exchange_DIC) ) THEN       &    (.NOT.ocnCpl_exchange_DIC) ) THEN
173          WRITE(msgBuf,'(2A)') 'CPL_READPARMS: useImport',          WRITE(msgBuf,'(2A)') 'CPL_READPARMS: useImport',
174       &    ' with DIC variables requires ocnCpl_exchange_DIC TRUE'       &    ' with DIC variables requires ocnCpl_exchange_DIC TRUE'
175          CALL PRINT_ERROR( msgBuf, myThid)          CALL PRINT_ERROR( msgBuf, myThid)
176          STOP 'ABNORMAL END: S/R CPL_READPARMS'          STOP 'ABNORMAL END: S/R CPL_READPARMS'
# Line 222  C- namelist CPL_OCN_PARAM: Line 222  C- namelist CPL_OCN_PARAM:
222         CALL WRITE_0D_L( useImportSIce , INDEX_NONE,         CALL WRITE_0D_L( useImportSIce , INDEX_NONE,
223       &                 'useImportSIce=',       &                 'useImportSIce=',
224       &   ' /* use Imported Sea-Ice loading on/off flag */')       &   ' /* use Imported Sea-Ice loading on/off flag */')
225         IF ( ocnCpl_exchange_DIC ) THEN         CALL WRITE_0D_L( useImportFIce , INDEX_NONE,
          CALL WRITE_0D_L( useImportFIce , INDEX_NONE,  
226       &                 'useImportFIce=',       &                 'useImportFIce=',
227       &   ' /* use Imported Sea-Ice Fract fr Cpl. on/off flag */')       &   ' /* use Imported Sea-Ice Fract fr Cpl. on/off flag */')
228           CALL WRITE_0D_L( useImportCO2  , INDEX_NONE,         CALL WRITE_0D_L( useImportCO2  , INDEX_NONE,
229       &                 'useImportCO2 =',       &                 'useImportCO2 =',
230       &   ' /* use Imported Atmos. CO2 fr Cpl. on/off flag */')       &   ' /* use Imported Atmos. CO2 fr Cpl. on/off flag */')
231           CALL WRITE_0D_L( useImportWSpd , INDEX_NONE,         CALL WRITE_0D_L( useImportWSpd , INDEX_NONE,
232       &                 'useImportWSpd =',       &                 'useImportWSpd =',
233       &   ' /* use Imported Windspeed fr Cpl. on/off flag */')       &   ' /* use Imported Windspeed fr Cpl. on/off flag */')
        ENDIF  
234         CALL WRITE_0D_R8( cpl_taveFreq, INDEX_NONE, 'cpl_taveFreq =',         CALL WRITE_0D_R8( cpl_taveFreq, INDEX_NONE, 'cpl_taveFreq =',
235       &   ' /* Frequency^-1 for time-Aver. output (s) */')       &   ' /* Frequency^-1 for time-Aver. output (s) */')
236         CALL WRITE_0D_L( cpl_timeave_mnc , INDEX_NONE,         CALL WRITE_0D_L( cpl_timeave_mnc , INDEX_NONE,
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22