/[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.46 by mlosch, Fri Feb 8 13:01:25 2008 UTC revision 1.47 by jmc, Tue Apr 1 01:28:39 2008 UTC
# Line 414  c     IF (nonlinFreeSurf.NE.0 .AND. nonH Line 414  c     IF (nonlinFreeSurf.NE.0 .AND. nonH
414        ENDIF        ENDIF
415  #endif /* EXACT_CONSERV */  #endif /* EXACT_CONSERV */
416    
417          IF ( vectorInvariantMomentum.AND.momStepping ) THEN
418           IF ( highOrderVorticity.AND.upwindVorticity ) THEN
419            WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ',
420         &   '"highOrderVorticity" conflicts with "upwindVorticity"'
421            CALL PRINT_ERROR( msgBuf , myThid)
422            STOP 'ABNORMAL END: S/R CONFIG_CHECK'
423           ENDIF
424          ENDIF
425    
426        IF (.NOT.useCDscheme .AND. (tauCD.NE.0. .OR. rCD.NE.-1.) ) THEN        IF (.NOT.useCDscheme .AND. (tauCD.NE.0. .OR. rCD.NE.-1.) ) THEN
427  C- jmc: since useCDscheme is a new [04-13-03] flag (default=F),  C- jmc: since useCDscheme is a new [04-13-03] flag (default=F),
428  C       put this WARNING to stress that even if CD-scheme parameters  C       put this WARNING to stress that even if CD-scheme parameters
Legend:
Removed from v.1.46  
changed lines
  Added in v.1.47
  ViewVC Help
Powered by ViewVC 1.1.22