/[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.13 by jmc, Sat Jan 3 00:34:00 2004 UTC revision 1.14 by adcroft, Thu Mar 25 15:35:53 2004 UTC
# Line 42  C-  check that CPP option is "defined" w Line 42  C-  check that CPP option is "defined" w
42    
43  #ifndef ALLOW_CD_CODE  #ifndef ALLOW_CD_CODE
44        IF (useCDscheme) THEN        IF (useCDscheme) THEN
45          WRITE(msgBuf,'(A)')          WRITE(msgBuf,'(A)')
46       &   'CONFIG_CHECK: #undef ALLOW_CD_CODE and'       &   'CONFIG_CHECK: useCDscheme is TRUE and #undef ALLOW_CD_CODE'
47          CALL PRINT_ERROR( msgBuf , myThid)          CALL PRINT_ERROR( msgBuf , myThid)
48            STOP 'ABNORMAL END: S/R CONFIG_CHECK'
49          ENDIF
50          IF (tauCD.NE.0.) THEN
51          WRITE(msgBuf,'(A)')          WRITE(msgBuf,'(A)')
52       &   'CONFIG_CHECK: useCDscheme is TRUE'       &   'CONFIG_CHECK: tauCD has been set but the cd_code package is',
53         &   ' enabled'
54          CALL PRINT_ERROR( msgBuf , myThid)          CALL PRINT_ERROR( msgBuf , myThid)
55          STOP 'ABNORMAL END: S/R CONFIG_CHECK'          STOP 'ABNORMAL END: S/R CONFIG_CHECK'
56        ENDIF        ENDIF
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22