/[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.27 by jmc, Sat Oct 1 18:35:20 2005 UTC revision 1.28 by jmc, Tue Oct 4 02:47:15 2005 UTC
# Line 250  C---+----1----+----2----+----3----+----4 Line 250  C---+----1----+----2----+----3----+----4
250  C-  check parameter consistency :  C-  check parameter consistency :
251    
252        IF ( ( Olx.LT.3 .OR. Oly.LT.3 ) .AND.        IF ( ( Olx.LT.3 .OR. Oly.LT.3 ) .AND.
253       &     ( viscC4leith.NE.0. .OR. viscA4Grid.NE.0.       &     ( viscC4leithD.NE.0.  .OR. viscC4leith.NE.0.
254       &      .OR. viscA4D.NE.0. .OR. viscA4Z.NE.0. ) ) THEN       &     .OR. viscC4smag.NE.0. .OR. viscA4Grid.NE.0.
255         &     .OR. viscA4D.NE.0.    .OR. viscA4Z.NE.0. ) ) THEN
256          WRITE(msgBuf,'(A,A)')          WRITE(msgBuf,'(A,A)')
257       &  'CONFIG_CHECK: cannot use Biharmonic Visc. (viscA4) with',       &  'CONFIG_CHECK: cannot use Biharmonic Visc. (viscA4) with',
258       &  ' overlap (Olx,Oly) smaller than 3'       &  ' overlap (Olx,Oly) smaller than 3'
259          CALL PRINT_ERROR( msgBuf , myThid)          CALL PRINT_ERROR( msgBuf , myThid)
260          STOP 'ABNORMAL END: S/R CONFIG_CHECK'          STOP 'ABNORMAL END: S/R CONFIG_CHECK'
261          ENDIF                
262          IF ( ( Olx.LT.3 .OR. Oly.LT.3 ) .AND.
263         &     ( viscC2leithD.NE.0. .OR. viscC4leithD.NE.0. )
264         &   ) THEN
265            WRITE(msgBuf,'(A,A)')
266         &  'CONFIG_CHECK: cannot use Leith Visc.(div.part) with',
267         &  ' overlap (Olx,Oly) smaller than 3'
268            CALL PRINT_ERROR( msgBuf , myThid)
269            STOP 'ABNORMAL END: S/R CONFIG_CHECK'
270        ENDIF                        ENDIF                
271    
272        IF ( rigidLid .AND. implicitFreeSurface ) THEN        IF ( rigidLid .AND. implicitFreeSurface ) THEN
Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28
  ViewVC Help
Powered by ViewVC 1.1.22