/[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.67 by jmc, Sat Jul 7 16:31:46 2012 UTC
# Line 447  C--   Free-surface related limitations: Line 447  C--   Free-surface related limitations:
447          errCount = errCount + 1          errCount = errCount + 1
448        ENDIF        ENDIF
449    
450          IF ( select_rStar.GE.1 .AND. nonlinFreeSurf.LE.0 ) THEN
451            WRITE(msgBuf,'(2A,I3,A)') 'CONFIG_CHECK: r* Coordinate',
452         &   ' (select_rStar=', select_rStar, ' ) cannot be used'
453            CALL PRINT_ERROR( msgBuf, myThid )
454            WRITE(msgBuf,'(2A,I3,A)') 'CONFIG_CHECK: ',
455         &   ' with Linear FreeSurf (nonlinFreeSurf=', nonlinFreeSurf,' )'
456            CALL PRINT_ERROR( msgBuf, myThid )
457            errCount = errCount + 1
458          ENDIF
459    
460        IF ( selectSigmaCoord.NE.0 ) THEN        IF ( selectSigmaCoord.NE.0 ) THEN
461         IF ( fluidIsWater ) THEN         IF ( fluidIsWater ) THEN
462          WRITE(msgBuf,'(A)')          WRITE(msgBuf,'(A)')
Legend:
Removed from v.1.66  
changed lines
  Added in v.1.67
  ViewVC Help
Powered by ViewVC 1.1.22