/[MITgcm]/MITgcm/verification/matrix_example/code/config_check.F
ViewVC logotype

Diff of /MITgcm/verification/matrix_example/code/config_check.F

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

revision 1.1 by spk, Mon Apr 18 20:16:47 2005 UTC revision 1.2 by edhill, Tue Apr 19 18:44:50 2005 UTC
# Line 445  C- jmc: but ultimately, this block can/w Line 445  C- jmc: but ultimately, this block can/w
445    
446        IF ( useOldFreezing .AND. allowFreezing ) THEN        IF ( useOldFreezing .AND. allowFreezing ) THEN
447          WRITE(msgBuf,'(2A)')          WRITE(msgBuf,'(2A)')
448       &   'CONFIG_CHECK: cannot set both: allowFreezing & useOldFreezing'       &       'CONFIG_CHECK: cannot set both: ',
449         &       'allowFreezing & useOldFreezing'
450          CALL PRINT_ERROR( msgBuf , myThid)          CALL PRINT_ERROR( msgBuf , myThid)
451          STOP 'ABNORMAL END: S/R CONFIG_CHECK'          STOP 'ABNORMAL END: S/R CONFIG_CHECK'
452        ENDIF        ENDIF
# Line 459  C- jmc: but ultimately, this block can/w Line 460  C- jmc: but ultimately, this block can/w
460    
461        IF ( useMATRIX .AND. .NOT.usePTRACERS ) THEN        IF ( useMATRIX .AND. .NOT.usePTRACERS ) THEN
462          WRITE(msgBuf,'(2A)')          WRITE(msgBuf,'(2A)')
463       &   'CONFIG_CHECK: cannot set useMATRIX without setting usePTRACERS'       &       'CONFIG_CHECK: cannot set useMATRIX ',
464         &       'without setting usePTRACERS'
465          CALL PRINT_ERROR( msgBuf , myThid)          CALL PRINT_ERROR( msgBuf , myThid)
466          STOP 'ABNORMAL END: S/R CONFIG_CHECK'          STOP 'ABNORMAL END: S/R CONFIG_CHECK'
467        ENDIF              ENDIF      
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22