/[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.7 by jmc, Thu Jan 30 00:08:29 2003 UTC revision 1.8 by jmc, Tue Feb 11 04:05:32 2003 UTC
# Line 125  C---+----1----+----2----+----3----+----4 Line 125  C---+----1----+----2----+----3----+----4
125    
126  C-  check parameter consistency :  C-  check parameter consistency :
127    
128          IF ( viscA4.NE.0. .AND. (Olx.LT.3 .OR. Oly.LT.3)) THEN
129            WRITE(msgBuf,'(A,A)')
130         &  'CONFIG_CHECK: cannot use Biharmonic Visc. (viscA4) with',
131         &  ' overlap (Olx,Oly) smaller than 3'
132            CALL PRINT_ERROR( msgBuf , myThid)
133            STOP 'ABNORMAL END: S/R CONFIG_CHECK'
134          ENDIF                
135    
136        IF ( rigidLid .AND. implicitFreeSurface ) THEN        IF ( rigidLid .AND. implicitFreeSurface ) THEN
137          WRITE(msgBuf,'(A,A)')          WRITE(msgBuf,'(A,A)')
138       &  'CONFIG_CHECK: Cannot select both implicitFreeSurface',       &  'CONFIG_CHECK: Cannot select both implicitFreeSurface',
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22