342 |
STOP 'ABNORMAL END: S/R CONFIG_CHECK' |
STOP 'ABNORMAL END: S/R CONFIG_CHECK' |
343 |
ENDIF |
ENDIF |
344 |
|
|
345 |
|
IF ( linFSConserveTr .AND. nonlinFreeSurf.NE.0 ) THEN |
346 |
|
WRITE(msgBuf,'(A)') |
347 |
|
& 'CONFIG_CHECK: Cannot select both a Nonlinear Free Surf.' |
348 |
|
CALL PRINT_ERROR( msgBuf , myThid) |
349 |
|
WRITE(msgBuf,'(A)') |
350 |
|
& 'CONFIG_CHECK: and Tracer Correction of Lin. Free Surf.' |
351 |
|
CALL PRINT_ERROR( msgBuf , myThid) |
352 |
|
STOP 'ABNORMAL END: S/R CONFIG_CHECK' |
353 |
|
ENDIF |
354 |
|
|
355 |
IF (rigidLid .AND. useRealFreshWaterFlux) THEN |
IF (rigidLid .AND. useRealFreshWaterFlux) THEN |
356 |
WRITE(msgBuf,'(A)') |
WRITE(msgBuf,'(A)') |
357 |
& 'CONFIG_CHECK: useRealFreshWaterFlux not compatible with' |
& 'CONFIG_CHECK: useRealFreshWaterFlux not compatible with' |