182 |
ENDIF |
ENDIF |
183 |
#endif |
#endif |
184 |
|
|
185 |
|
#ifndef ALLOW_GENERIC_ADVDIFF |
186 |
|
IF ( tempStepping .OR. saltStepping .OR. usePTRACERS ) THEN |
187 |
|
WRITE(msgBuf,'(2A)') |
188 |
|
& 'CONFIG_CHECK: cannot step forward Temp,Salt or pTracers', |
189 |
|
& ' without pkg/generic_advdiff' |
190 |
|
CALL PRINT_ERROR( msgBuf , 1) |
191 |
|
WRITE(msgBuf,'(A)') |
192 |
|
& 'Re-compile with pkg "generic_advdiff" in packages.conf' |
193 |
|
CALL PRINT_ERROR( msgBuf , 1) |
194 |
|
STOP 'ABNORMAL END: S/R CONFIG_CHECK' |
195 |
|
ENDIF |
196 |
|
#endif |
197 |
|
|
198 |
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 |
199 |
C code is being compiled |
C code is being compiled |
200 |
#ifndef ALLOW_TIMEAVE |
#ifndef ALLOW_TIMEAVE |
303 |
STOP 'ABNORMAL END: S/R CONFIG_CHECK' |
STOP 'ABNORMAL END: S/R CONFIG_CHECK' |
304 |
ENDIF |
ENDIF |
305 |
|
|
306 |
IF (nonlinFreeSurf.NE.0.AND.deltaTfreesurf.NE.deltaTtracer) THEN |
IF ( nonlinFreeSurf.NE.0 .AND. |
307 |
|
& deltaTfreesurf.NE.dTtracerLev(1) ) THEN |
308 |
WRITE(msgBuf,'(A)') |
WRITE(msgBuf,'(A)') |
309 |
& 'CONFIG_CHECK: WARNING: nonlinFreeSurf might cause problems' |
& 'CONFIG_CHECK: WARNING: nonlinFreeSurf might cause problems' |
310 |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |