/[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.59 by jmc, Thu Dec 1 14:30:27 2011 UTC revision 1.60 by mlosch, Sat Mar 24 20:53:36 2012 UTC
# Line 309  C--   Check parameter consistency : Line 309  C--   Check parameter consistency :
309          STOP 'ABNORMAL END: S/R CONFIG_CHECK'          STOP 'ABNORMAL END: S/R CONFIG_CHECK'
310        ENDIF        ENDIF
311    
312    C     Overlaps cannot be larger than interior tile except for special
313    C     cases
314          IF ( sNx.LT.OLx ) THEN
315    #ifdef ALLOW_EXCH2
316           WRITE(msgBuf,'(A)')
317         &  'CONFIG_CHECK: sNx<OLx not allowed with ALLOW_EXCH2 defined'
318           CALL PRINT_ERROR( msgBuf, myThid )
319           STOP 'ABNORMAL END: S/R CONFIG_CHECK'
320    #endif /* ALLOW_EXCH2 */
321           IF ( Nx.NE.1 ) THEN
322            WRITE(msgBuf,'(A)')
323         &  'CONFIG_CHECK: sNx<OLx not allowed unless Nx=1'
324            CALL PRINT_ERROR( msgBuf, myThid )
325            STOP 'ABNORMAL END: S/R CONFIG_CHECK'
326           ENDIF
327          ENDIF
328          IF ( sNy.LT.OLy ) THEN
329    #ifdef ALLOW_EXCH2
330           WRITE(msgBuf,'(A)')
331         &  'CONFIG_CHECK: sNy<OLy not allowed with ALLOW_EXCH2 defined'
332           CALL PRINT_ERROR( msgBuf, myThid )
333           STOP 'ABNORMAL END: S/R CONFIG_CHECK'
334    #endif /* ALLOW_EXCH2 */
335           IF ( Ny.NE.1 ) THEN
336            WRITE(msgBuf,'(A)')
337         &  'CONFIG_CHECK: sNy<OLy not allowed unless Ny=1'
338            CALL PRINT_ERROR( msgBuf, myThid )
339            STOP 'ABNORMAL END: S/R CONFIG_CHECK'
340           ENDIF
341          ENDIF
342    
343  C--   Deep-Atmosphere & Anelastic limitations:  C--   Deep-Atmosphere & Anelastic limitations:
344        IF ( deepAtmosphere .AND.        IF ( deepAtmosphere .AND.
345       &     useRealFreshWaterFlux .AND. usingPCoords ) THEN       &     useRealFreshWaterFlux .AND. usingPCoords ) THEN
Legend:
Removed from v.1.59  
changed lines
  Added in v.1.60
  ViewVC Help
Powered by ViewVC 1.1.22