/[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.73 by jmc, Tue Jul 30 18:51:01 2013 UTC revision 1.74 by jmc, Fri Aug 16 16:37:38 2013 UTC
# Line 624  c     ENDIF Line 624  c     ENDIF
624       &                      SQUEEZE_RIGHT, myThid )       &                      SQUEEZE_RIGHT, myThid )
625        ENDIF        ENDIF
626    
627    C--   Pressure calculation and pressure gradient:
628    #ifndef INCLUDE_PHIHYD_CALCULATION_CODE
629          IF ( momPressureForcing .OR. useDynP_inEos_Zc ) THEN
630            WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ',
631         &   'missing code to calculate pressure (totPhiHyd)'
632            CALL PRINT_ERROR( msgBuf, myThid )
633            errCount = errCount + 1
634          ENDIF
635    #endif /* INCLUDE_PHIHYD_CALCULATION_CODE */
636          IF ( useDynP_inEos_Zc .AND. .NOT.momStepping ) THEN
637            WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ',
638         &   'useDynP_inEos_Zc = TRUE but pressure is not computed'
639            CALL PRINT_ERROR( msgBuf, myThid )
640            errCount = errCount + 1
641          ENDIF
642    
643  C--   Non-hydrostatic and 3-D solver related limitations:  C--   Non-hydrostatic and 3-D solver related limitations:
644        IF (nonlinFreeSurf.NE.0 .AND. use3Dsolver) THEN        IF (nonlinFreeSurf.NE.0 .AND. use3Dsolver) THEN
645          WRITE(msgBuf,'(A)')          WRITE(msgBuf,'(A)')
Legend:
Removed from v.1.73  
changed lines
  Added in v.1.74
  ViewVC Help
Powered by ViewVC 1.1.22