/[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.12 by jmc, Thu Nov 13 21:54:11 2003 UTC revision 1.13 by jmc, Sat Jan 3 00:34:00 2004 UTC
# Line 64  C-  check that CPP option is "defined" w Line 64  C-  check that CPP option is "defined" w
64        ENDIF        ENDIF
65  #endif  #endif
66    
67    #ifndef INCLUDE_IMPLVERTADV_CODE
68          IF ( momImplVertAdv ) THEN
69            WRITE(msgBuf,'(A)')
70         &   'CONFIG_CHECK: #undef INCLUDE_IMPLVERTADV_CODE'
71            CALL PRINT_ERROR( msgBuf , myThid)
72            WRITE(msgBuf,'(A)')
73         &   'CONFIG_CHECK: but momImplVertAdv is TRUE'
74            CALL PRINT_ERROR( msgBuf , myThid)
75            STOP 'ABNORMAL END: S/R CONFIG_CHECK'
76          ENDIF
77          IF ( tempImplVertAdv ) THEN
78            WRITE(msgBuf,'(A)')
79         &   'CONFIG_CHECK: #undef INCLUDE_IMPLVERTADV_CODE'
80            CALL PRINT_ERROR( msgBuf , myThid)
81            WRITE(msgBuf,'(A)')
82         &   'CONFIG_CHECK: but tempImplVertAdv is TRUE'
83            CALL PRINT_ERROR( msgBuf , myThid)
84            STOP 'ABNORMAL END: S/R CONFIG_CHECK'
85          ENDIF
86          IF ( saltImplVertAdv ) THEN
87            WRITE(msgBuf,'(A)')
88         &   'CONFIG_CHECK: #undef INCLUDE_IMPLVERTADV_CODE'
89            CALL PRINT_ERROR( msgBuf , myThid)
90            WRITE(msgBuf,'(A)')
91         &   'CONFIG_CHECK: but saltImplVertAdv is TRUE'
92            CALL PRINT_ERROR( msgBuf , myThid)
93            STOP 'ABNORMAL END: S/R CONFIG_CHECK'
94          ENDIF
95    #endif
96    
97  #ifndef EXACT_CONSERV  #ifndef EXACT_CONSERV
98        IF (exactConserv) THEN        IF (exactConserv) THEN
99          WRITE(msgBuf,'(A)')          WRITE(msgBuf,'(A)')
# Line 131  C       code is being compiled Line 161  C       code is being compiled
161  C     o If taveFreq is finite, then we must make sure the diagnostics  C     o If taveFreq is finite, then we must make sure the diagnostics
162  C       code is being compiled  C       code is being compiled
163  #ifndef ALLOW_TIMEAVE  #ifndef ALLOW_TIMEAVE
 ceh3 needs an IF ( useTIMEAVE ) THEN  
164        IF (taveFreq.NE.0.) THEN        IF (taveFreq.NE.0.) THEN
165          WRITE(msgBuf,'(A)')          WRITE(msgBuf,'(A)')
166       &  'CONFIG_CHECK: taveFreq <> 0  but you have'       &  'CONFIG_CHECK: taveFreq <> 0  but you have'
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22