/[MITgcm]/MITgcm/model/src/packages_check.F
ViewVC logotype

Diff of /MITgcm/model/src/packages_check.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.53 by jmc, Tue Jan 25 22:39:06 2011 UTC revision 1.56 by heimbach, Sat Feb 4 01:43:40 2012 UTC
# Line 113  C     If taveFreq is finite, make sure t Line 113  C     If taveFreq is finite, make sure t
113  #endif  #endif
114    
115  #ifndef ALLOW_CD_CODE  #ifndef ALLOW_CD_CODE
116        IF (useCDscheme) CALL PACKAGES_ERROR_MSG(         IF (useCDscheme) CALL PACKAGES_ERROR_MSG(
117       &                  'CD_CODE', 'useCDscheme=.T.', myThid )       &                  'CD_CODE', 'useCDscheme=.T.', myThid )
118  #endif  #endif
119    
# Line 166  C---  Continue with standard packages (w Line 166  C---  Continue with standard packages (w
166       &            CALL PACKAGES_ERROR_MSG('DOWN_SLOPE',' ',myThid)       &            CALL PACKAGES_ERROR_MSG('DOWN_SLOPE',' ',myThid)
167  #endif  #endif
168    
169    #ifdef ALLOW_BBL
170          IF (useBBL) CALL BBL_CHECK( myThid )
171    #else
172          IF (useBBL) CALL PACKAGES_ERROR_MSG('BBL',' ',myThid)
173    #endif
174    
175  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
176        IF (useOBCS) CALL OBCS_CHECK( myThid )        IF (useOBCS) CALL OBCS_CHECK( myThid )
177  #else  #else
# Line 277  C---  Continue with standard packages (w Line 283  C---  Continue with standard packages (w
283        IF (useShelfIce) CALL PACKAGES_ERROR_MSG('ShelfIce',' ',myThid)        IF (useShelfIce) CALL PACKAGES_ERROR_MSG('ShelfIce',' ',myThid)
284  #endif  #endif
285    
286    #ifdef ALLOW_STREAMICE
287          IF (useStreamIce) CALL STREAMICE_CHECK( myThid )
288    #else
289          IF (useStreamIce) CALL PACKAGES_ERROR_MSG('StreamIce',' ',myThid)
290    #endif
291    
292  #ifdef ALLOW_ICEFRONT  #ifdef ALLOW_ICEFRONT
293        IF (useICEFRONT) CALL ICEFRONT_CHECK( myThid )        IF (useICEFRONT) CALL ICEFRONT_CHECK( myThid )
294  #else  #else
# Line 374  C---  Exclusive packages (which cannot b Line 386  C---  Exclusive packages (which cannot b
386          STOP 'ABNORMAL END: S/R PACKAGES_CHECK'          STOP 'ABNORMAL END: S/R PACKAGES_CHECK'
387        ENDIF        ENDIF
388    
389  #ifdef ALLOW_AUTODIFF  C---  Exclusive packages (which cannot be used together):
390  C--   Here INI_MASK_ETC will be called a 2nd time by INITIALISE_VARIA.        IF ( useDOWN_SLOPE .AND. useBBL ) THEN
391  C     This hack prevents a 2nd printing when default debugLevel is used.          WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',
392        _BARRIER       &  'both useDOWN_SLOPE and useBBL are set'
393        _BEGIN_MASTER( myThid )          CALL PRINT_ERROR( msgBuf , myThid )
394        IF ( debugLevel.LE.debLevA ) printDomain = .FALSE.          WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',
395        _END_MASTER( myThid )       &  ' but cannot be used together => need to select only one.'
396        _BARRIER          CALL PRINT_ERROR( msgBuf , myThid )
397  #endif          STOP 'ABNORMAL END: S/R PACKAGES_CHECK'
398          ENDIF
399    
400        RETURN        RETURN
401        END        END
Legend:
Removed from v.1.53  
changed lines
  Added in v.1.56
  ViewVC Help
Powered by ViewVC 1.1.22