/[MITgcm]/MITgcm/model/src/config_check.F
ViewVC logotype

Diff of /MITgcm/model/src/config_check.F

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

revision 1.22 by jmc, Fri Apr 15 14:02:08 2005 UTC revision 1.23 by spk, Wed Apr 20 15:46:07 2005 UTC
# Line 245  C     o If calendarDumps is set, pkg/cal Line 245  C     o If calendarDumps is set, pkg/cal
245        ENDIF        ENDIF
246  #endif  #endif
247    
248    #ifndef ALLOW_MATRIX
249          IF (useMATRIX) THEN
250            WRITE(msgBuf,'(A)')
251         &   'CONFIG_CHECK: useMATRIX is TRUE and #undef ALLOW_MATRIX'
252            CALL PRINT_ERROR( msgBuf , myThid)
253            STOP 'ABNORMAL END: S/R CONFIG_CHECK'
254          ENDIF
255    #endif
256    
257  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
258    
259  C-  check parameter consistency :  C-  check parameter consistency :
# Line 441  C- jmc: but ultimately, this block can/w Line 450  C- jmc: but ultimately, this block can/w
450          STOP 'ABNORMAL END: S/R CONFIG_CHECK'          STOP 'ABNORMAL END: S/R CONFIG_CHECK'
451        ENDIF        ENDIF
452    
453          IF ( useMATRIX .AND. useGCHEM ) THEN
454            WRITE(msgBuf,'(2A)')
455         &   'CONFIG_CHECK: cannot set both: useMATRIX & useGCHEM'
456            CALL PRINT_ERROR( msgBuf , myThid)
457            STOP 'ABNORMAL END: S/R CONFIG_CHECK'
458          ENDIF
459    
460          IF ( useMATRIX .AND. .NOT.usePTRACERS ) THEN
461            WRITE(msgBuf,'(2A)')
462         &   'CONFIG_CHECK: cannot set useMATRIX without setting usePTRACERS'
463            CALL PRINT_ERROR( msgBuf , myThid)
464            STOP 'ABNORMAL END: S/R CONFIG_CHECK'
465          ENDIF      
466          
467        WRITE(msgBuf,'(A)') 'CONFIG_CHECK: OK'        WRITE(msgBuf,'(A)') 'CONFIG_CHECK: OK'
468        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,
469       &                   SQUEEZE_RIGHT,myThid)       &                   SQUEEZE_RIGHT,myThid)
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23
  ViewVC Help
Powered by ViewVC 1.1.22