/[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.61 by jmc, Mon Apr 2 15:54:52 2012 UTC revision 1.68 by jmc, Mon Jul 9 19:20:17 2012 UTC
# Line 140  C       code is being compiled Line 140  C       code is being compiled
140  #endif  #endif
141    
142  #ifdef ALLOW_DEPTH_CONTROL  #ifdef ALLOW_DEPTH_CONTROL
       IF ( implicitDiffusion ) THEN  
         WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ',  
      &       'implicitDiffusion not available with DEPTH_CONTROL'  
         CALL PRINT_ERROR( msgBuf, myThid )  
         errCount = errCount + 1  
       ENDIF  
143        IF ( useOBCS ) THEN        IF ( useOBCS ) THEN
144          WRITE(msgBuf,'(A)')          WRITE(msgBuf,'(A)')
145       &   'CONFIG_CHECK: DEPTH_CONTROL code not compatible with OBCS'       &   'CONFIG_CHECK: DEPTH_CONTROL code not compatible with OBCS'
# Line 278  C       code is being compiled Line 272  C       code is being compiled
272        ENDIF        ENDIF
273  #endif  #endif
274    
275    #ifndef ALLOW_BALANCE_RELAX
276          IF (balanceThetaClimRelax .OR. balanceSaltClimRelax) THEN
277            WRITE(msgBuf,'(A,A)')
278         &  'CONFIG_CHECK: balanceTheta/SaltClimRelax is set ',
279         &  'but balance code is not compiled.'
280            CALL PRINT_ERROR( msgBuf, myThid )
281            WRITE(msgBuf,'(A)')
282         &  'Re-compile with  ALLOW_BALANCE_RELAX defined'
283            CALL PRINT_ERROR( msgBuf, myThid )
284            errCount = errCount + 1
285          ENDIF
286    #endif
287    
288  #ifndef ALLOW_SRCG  #ifndef ALLOW_SRCG
289        IF (useSRCGSolver) THEN        IF (useSRCGSolver) THEN
290          WRITE(msgBuf,'(A,A)')          WRITE(msgBuf,'(A,A)')
# Line 315  C--   Check parameter consistency : Line 322  C--   Check parameter consistency :
322          errCount = errCount + 1          errCount = errCount + 1
323        ENDIF        ENDIF
324    
325  C     Overlaps cannot be larger than interior tile except for special  #ifndef DISCONNECTED_TILES
326  C     cases  C     Overlaps cannot be larger than interior tile except for special cases
327        IF ( sNx.LT.OLx ) THEN        IF ( sNx.LT.OLx ) THEN
328  #ifdef ALLOW_EXCH2  #ifdef ALLOW_EXCH2
329         WRITE(msgBuf,'(A)')         WRITE(msgBuf,'(A)')
# Line 345  C     cases Line 352  C     cases
352          errCount = errCount + 1          errCount = errCount + 1
353         ENDIF         ENDIF
354        ENDIF        ENDIF
355    #endif /* ndef DISCONNECTED_TILES */
356    
357  C--   Deep-Atmosphere & Anelastic limitations:  C--   Deep-Atmosphere & Anelastic limitations:
358        IF ( deepAtmosphere .AND.        IF ( deepAtmosphere .AND.
# Line 433  C--   Free-surface related limitations: Line 441  C--   Free-surface related limitations:
441          errCount = errCount + 1          errCount = errCount + 1
442        ENDIF        ENDIF
443    
444          IF ( select_rStar.GE.1 .AND. nonlinFreeSurf.LE.0 ) THEN
445            WRITE(msgBuf,'(2A,I3,A)') 'CONFIG_CHECK: r* Coordinate',
446         &   ' (select_rStar=', select_rStar, ' ) cannot be used'
447            CALL PRINT_ERROR( msgBuf, myThid )
448            WRITE(msgBuf,'(2A,I3,A)') 'CONFIG_CHECK: ',
449         &   ' with Linear FreeSurf (nonlinFreeSurf=', nonlinFreeSurf,' )'
450            CALL PRINT_ERROR( msgBuf, myThid )
451            errCount = errCount + 1
452          ENDIF
453    
454        IF ( selectSigmaCoord.NE.0 ) THEN        IF ( selectSigmaCoord.NE.0 ) THEN
455         IF ( fluidIsWater ) THEN         IF ( fluidIsWater ) THEN
456          WRITE(msgBuf,'(A)')          WRITE(msgBuf,'(A)')
# Line 702  C--   Grid limitations: Line 720  C--   Grid limitations:
720          CALL PRINT_ERROR( msgBuf, myThid )          CALL PRINT_ERROR( msgBuf, myThid )
721          errCount = errCount + 1          errCount = errCount + 1
722         ENDIF         ENDIF
 #ifdef ALLOW_PROFILES  
         WRITE(msgBuf,'(2A)')  
      &       'CONFIG_CHECK: specifying Euler angles will probably ',  
      &       'not work with pkg profiles'  
         CALL PRINT_ERROR( msgBuf, myThid )  
         errCount = errCount + 1  
 #endif /* ALLOW_PROFILES */  
723        ENDIF        ENDIF
724    
725  C--   Packages conflict  C--   Packages conflict
Legend:
Removed from v.1.61  
changed lines
  Added in v.1.68
  ViewVC Help
Powered by ViewVC 1.1.22