63 |
WRITE(msgBuf,'(A)') |
WRITE(msgBuf,'(A)') |
64 |
& 'CONFIG_CHECK: diffKrFile is set but never used.' |
& 'CONFIG_CHECK: diffKrFile is set but never used.' |
65 |
CALL PRINT_ERROR( msgBuf, myThid ) |
CALL PRINT_ERROR( msgBuf, myThid ) |
66 |
WRITE(msgBuf,'(A)') |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ', |
67 |
& 'Re-compile with: #define ALLOW_3D_DIFFKR' |
& 'Re-compile with: "#define ALLOW_3D_DIFFKR"' |
68 |
CALL PRINT_ERROR( msgBuf, myThid ) |
CALL PRINT_ERROR( msgBuf, myThid ) |
69 |
errCount = errCount + 1 |
errCount = errCount + 1 |
70 |
ENDIF |
ENDIF |
231 |
#ifndef ALLOW_ADDFLUID |
#ifndef ALLOW_ADDFLUID |
232 |
IF ( selectAddFluid.NE.0 ) THEN |
IF ( selectAddFluid.NE.0 ) THEN |
233 |
WRITE(msgBuf,'(A)') |
WRITE(msgBuf,'(A)') |
234 |
& 'CONFIG_CHECK: #undef ALLOW_ADDFLUID and' |
& 'CONFIG_CHECK: #undef ALLOW_ADDFLUID (CPP_OPTIONS.h) and' |
235 |
CALL PRINT_ERROR( msgBuf, myThid ) |
CALL PRINT_ERROR( msgBuf, myThid ) |
236 |
WRITE(msgBuf,'(A,I4,A)') 'CONFIG_CHECK: selectAddFluid=', |
WRITE(msgBuf,'(A,I4,A)') 'CONFIG_CHECK: selectAddFluid=', |
237 |
& selectAddFluid, ' is not zero' |
& selectAddFluid, ' is not zero' |
248 |
& 'CONFIG_CHECK: pLoadFile is set but you have not' |
& 'CONFIG_CHECK: pLoadFile is set but you have not' |
249 |
CALL PRINT_ERROR( msgBuf, myThid ) |
CALL PRINT_ERROR( msgBuf, myThid ) |
250 |
WRITE(msgBuf,'(A)') |
WRITE(msgBuf,'(A)') |
251 |
& 'compiled the model with the pressure loading code.' |
& ' compiled the model with the pressure loading code.' |
252 |
CALL PRINT_ERROR( msgBuf, myThid ) |
CALL PRINT_ERROR( msgBuf, myThid ) |
253 |
WRITE(msgBuf,'(A)') |
WRITE(msgBuf,'(A)') |
254 |
& 'Re-compile with: #define ATMOSPHERIC_LOADING' |
& ' Re-compile with: "#define ATMOSPHERIC_LOADING"' |
255 |
CALL PRINT_ERROR( msgBuf, myThid ) |
CALL PRINT_ERROR( msgBuf, myThid ) |
256 |
errCount = errCount + 1 |
errCount = errCount + 1 |
257 |
ENDIF |
ENDIF |
260 |
& 'CONFIG_CHECK: sIceLoad is computed but' |
& 'CONFIG_CHECK: sIceLoad is computed but' |
261 |
CALL PRINT_ERROR( msgBuf, myThid ) |
CALL PRINT_ERROR( msgBuf, myThid ) |
262 |
WRITE(msgBuf,'(A)') |
WRITE(msgBuf,'(A)') |
263 |
& 'pressure loading code is not compiled.' |
& ' pressure loading code is not compiled.' |
264 |
CALL PRINT_ERROR( msgBuf, myThid ) |
CALL PRINT_ERROR( msgBuf, myThid ) |
265 |
WRITE(msgBuf,'(A)') |
WRITE(msgBuf,'(A)') |
266 |
& 'Re-compile with: #define ATMOSPHERIC_LOADING' |
& ' Re-compile with: "#define ATMOSPHERIC_LOADING"' |
267 |
|
CALL PRINT_ERROR( msgBuf, myThid ) |
268 |
|
errCount = errCount + 1 |
269 |
|
ENDIF |
270 |
|
#endif |
271 |
|
|
272 |
|
#ifndef ALLOW_FRICTION_HEATING |
273 |
|
IF ( addFrictionHeating ) THEN |
274 |
|
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: addFrictionHeating=T', |
275 |
|
& ' but FRICTIONAL_HEATING code is not compiled.' |
276 |
|
CALL PRINT_ERROR( msgBuf, myThid ) |
277 |
|
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: Re-compile with:', |
278 |
|
& ' "#define ALLOW_FRICTION_HEATING" (CPP_OPTIONS.h)' |
279 |
CALL PRINT_ERROR( msgBuf, myThid ) |
CALL PRINT_ERROR( msgBuf, myThid ) |
280 |
errCount = errCount + 1 |
errCount = errCount + 1 |
281 |
ENDIF |
ENDIF |
287 |
& 'CONFIG_CHECK: balanceEmPmR/Qnet is set but balance code ', |
& 'CONFIG_CHECK: balanceEmPmR/Qnet is set but balance code ', |
288 |
& 'is not compiled.' |
& 'is not compiled.' |
289 |
CALL PRINT_ERROR( msgBuf, myThid ) |
CALL PRINT_ERROR( msgBuf, myThid ) |
290 |
WRITE(msgBuf,'(A)') |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ', |
291 |
& 'Re-compile with ALLOW_BALANCE_FLUXES defined' |
& 'Re-compile with: ALLOW_BALANCE_FLUXES defined' |
292 |
CALL PRINT_ERROR( msgBuf, myThid ) |
CALL PRINT_ERROR( msgBuf, myThid ) |
293 |
errCount = errCount + 1 |
errCount = errCount + 1 |
294 |
ENDIF |
ENDIF |
300 |
& 'CONFIG_CHECK: balanceTheta/SaltClimRelax is set ', |
& 'CONFIG_CHECK: balanceTheta/SaltClimRelax is set ', |
301 |
& 'but balance code is not compiled.' |
& 'but balance code is not compiled.' |
302 |
CALL PRINT_ERROR( msgBuf, myThid ) |
CALL PRINT_ERROR( msgBuf, myThid ) |
303 |
WRITE(msgBuf,'(A)') |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ', |
304 |
& 'Re-compile with ALLOW_BALANCE_RELAX defined' |
& 'Re-compile with ALLOW_BALANCE_RELAX defined' |
305 |
CALL PRINT_ERROR( msgBuf, myThid ) |
CALL PRINT_ERROR( msgBuf, myThid ) |
306 |
errCount = errCount + 1 |
errCount = errCount + 1 |
504 |
c ENDIF |
c ENDIF |
505 |
|
|
506 |
IF ( nonlinFreeSurf.NE.0 .AND. |
IF ( nonlinFreeSurf.NE.0 .AND. |
507 |
& deltaTfreesurf.NE.dTtracerLev(1) ) THEN |
& deltaTFreeSurf.NE.dTtracerLev(1) ) THEN |
508 |
WRITE(msgBuf,'(2A)') '** WARNING ** CONFIG_CHECK: ', |
WRITE(msgBuf,'(2A)') '** WARNING ** CONFIG_CHECK: ', |
509 |
& 'nonlinFreeSurf might cause problems' |
& 'nonlinFreeSurf might cause problems' |
510 |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
593 |
& SQUEEZE_RIGHT, myThid ) |
& SQUEEZE_RIGHT, myThid ) |
594 |
ENDIF |
ENDIF |
595 |
|
|
596 |
|
IF ( addFrictionHeating .AND. .NOT.staggerTimeStep ) THEN |
597 |
|
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: addFrictionHeating', |
598 |
|
& ' not yet coded for synchronous time-stepping.' |
599 |
|
CALL PRINT_ERROR( msgBuf, myThid ) |
600 |
|
errCount = errCount + 1 |
601 |
|
ENDIF |
602 |
|
|
603 |
C-- Non-hydrostatic and 3-D solver related limitations: |
C-- Non-hydrostatic and 3-D solver related limitations: |
604 |
IF (nonlinFreeSurf.NE.0 .AND. use3Dsolver) THEN |
IF (nonlinFreeSurf.NE.0 .AND. use3Dsolver) THEN |
605 |
WRITE(msgBuf,'(A)') |
WRITE(msgBuf,'(A)') |