411 |
ENDIF |
ENDIF |
412 |
#endif /* ndef DISCONNECTED_TILES */ |
#endif /* ndef DISCONNECTED_TILES */ |
413 |
|
|
414 |
|
C-- Gravity vertical profile limitations: |
415 |
|
IF ( usingPCoords .AND. gravityFile .NE. ' ' ) THEN |
416 |
|
WRITE(msgBuf,'(A,A)') 'CONFIG_CHECK: Variable gravity', |
417 |
|
& ' not yet implemented for P-coordinate' |
418 |
|
CALL PRINT_ERROR( msgBuf, myThid ) |
419 |
|
errCount = errCount + 1 |
420 |
|
ENDIF |
421 |
|
IF ( select_rStar.NE.0 .AND. gravityFile .NE. ' ' ) THEN |
422 |
|
WRITE(msgBuf,'(A,A)') 'CONFIG_CHECK: Variable gravity', |
423 |
|
& ' not yet implemented with rStar' |
424 |
|
CALL PRINT_ERROR( msgBuf, myThid ) |
425 |
|
errCount = errCount + 1 |
426 |
|
ENDIF |
427 |
|
|
428 |
C-- Deep-Atmosphere & Anelastic limitations: |
C-- Deep-Atmosphere & Anelastic limitations: |
429 |
IF ( deepAtmosphere .AND. |
IF ( deepAtmosphere .AND. |
430 |
& useRealFreshWaterFlux .AND. usingPCoords ) THEN |
& useRealFreshWaterFlux .AND. usingPCoords ) THEN |
652 |
|
|
653 |
C-- Pressure calculation and pressure gradient: |
C-- Pressure calculation and pressure gradient: |
654 |
#ifndef INCLUDE_PHIHYD_CALCULATION_CODE |
#ifndef INCLUDE_PHIHYD_CALCULATION_CODE |
655 |
IF ( momPressureForcing .OR. useDynP_inEos_Zc ) THEN |
IF ( momPressureForcing .OR. storePhiHyd4Phys ) THEN |
656 |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ', |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ', |
657 |
& 'missing code to calculate pressure (totPhiHyd)' |
& 'missing code to calculate pressure (totPhiHyd)' |
658 |
CALL PRINT_ERROR( msgBuf, myThid ) |
CALL PRINT_ERROR( msgBuf, myThid ) |
659 |
errCount = errCount + 1 |
errCount = errCount + 1 |
660 |
ENDIF |
ENDIF |
661 |
#endif /* INCLUDE_PHIHYD_CALCULATION_CODE */ |
#endif /* INCLUDE_PHIHYD_CALCULATION_CODE */ |
662 |
IF ( useDynP_inEos_Zc .AND. .NOT.momStepping ) THEN |
IF ( storePhiHyd4Phys .AND. .NOT.momStepping ) THEN |
663 |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ', |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ', |
664 |
& 'useDynP_inEos_Zc = TRUE but pressure is not computed' |
& 'storePhiHyd4Phys = TRUE but pressure is not computed' |
665 |
CALL PRINT_ERROR( msgBuf, myThid ) |
CALL PRINT_ERROR( msgBuf, myThid ) |
666 |
errCount = errCount + 1 |
errCount = errCount + 1 |
667 |
ENDIF |
ENDIF |