/[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.66 by gforget, Sat Jun 30 01:24:35 2012 UTC revision 1.68 by jmc, Mon Jul 9 19:20:17 2012 UTC
# Line 140  C       code is being compiled Line 140  C       code is being compiled
140  #endif  #endif
141    
142  #ifdef ALLOW_DEPTH_CONTROL  #ifdef ALLOW_DEPTH_CONTROL
 cc      IF ( implicitDiffusion ) THEN  
 cc        WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ',  
 cc     &       'implicitDiffusion not available with DEPTH_CONTROL'  
 cc        CALL PRINT_ERROR( msgBuf, myThid )  
 cc        errCount = errCount + 1  
 cc      ENDIF  
143        IF ( useOBCS ) THEN        IF ( useOBCS ) THEN
144          WRITE(msgBuf,'(A)')          WRITE(msgBuf,'(A)')
145       &   'CONFIG_CHECK: DEPTH_CONTROL code not compatible with OBCS'       &   'CONFIG_CHECK: DEPTH_CONTROL code not compatible with OBCS'
# Line 446  C--   Free-surface related limitations: Line 440  C--   Free-surface related limitations:
440          CALL PRINT_ERROR( msgBuf, myThid )          CALL PRINT_ERROR( msgBuf, myThid )
441          errCount = errCount + 1          errCount = errCount + 1
442        ENDIF        ENDIF
443    
444          IF ( select_rStar.GE.1 .AND. nonlinFreeSurf.LE.0 ) THEN
445            WRITE(msgBuf,'(2A,I3,A)') 'CONFIG_CHECK: r* Coordinate',
446         &   ' (select_rStar=', select_rStar, ' ) cannot be used'
447            CALL PRINT_ERROR( msgBuf, myThid )
448            WRITE(msgBuf,'(2A,I3,A)') 'CONFIG_CHECK: ',
449         &   ' with Linear FreeSurf (nonlinFreeSurf=', nonlinFreeSurf,' )'
450            CALL PRINT_ERROR( msgBuf, myThid )
451            errCount = errCount + 1
452          ENDIF
453    
454        IF ( selectSigmaCoord.NE.0 ) THEN        IF ( selectSigmaCoord.NE.0 ) THEN
455         IF ( fluidIsWater ) THEN         IF ( fluidIsWater ) THEN
Legend:
Removed from v.1.66  
changed lines
  Added in v.1.68
  ViewVC Help
Powered by ViewVC 1.1.22