/[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.82 by jmc, Thu Sep 10 18:10:28 2015 UTC revision 1.83 by jmc, Mon Feb 15 17:59:40 2016 UTC
# Line 411  C     Overlaps cannot be larger than int Line 411  C     Overlaps cannot be larger than int
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
# Line 638  c     ENDIF Line 652  c     ENDIF
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
Legend:
Removed from v.1.82  
changed lines
  Added in v.1.83
  ViewVC Help
Powered by ViewVC 1.1.22