/[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.49 by jmc, Sat Mar 13 00:26:21 2010 UTC revision 1.53 by jmc, Tue Jan 25 22:39:06 2011 UTC
# Line 87  C---  Start with non-standard packages ( Line 87  C---  Start with non-standard packages (
87        ENDIF        ENDIF
88  #endif  #endif
89    
90  #ifdef ALLOW_GENERIC_ADVDIFF  #ifndef ALLOW_GENERIC_ADVDIFF
       IF (useGAD) CALL GAD_CHECK( myThid )  
 #else  
91        IF ( tempStepping .OR. saltStepping ) THEN        IF ( tempStepping .OR. saltStepping ) THEN
92          WRITE(msgBuf,'(2A)')          WRITE(msgBuf,'(2A)')
93       &  'PACKAGES_CHECK: cannot step forward Temp or Salt',       &  'PACKAGES_CHECK: cannot step forward Temp or Salt',
# Line 174  C---  Continue with standard packages (w Line 172  C---  Continue with standard packages (w
172        IF (useOBCS) CALL PACKAGES_ERROR_MSG('OBCS',' ',myThid)        IF (useOBCS) CALL PACKAGES_ERROR_MSG('OBCS',' ',myThid)
173  #endif  #endif
174    
175  #ifndef ALLOW_EXF  #ifdef ALLOW_EXF
176          IF (useEXF) CALL EXF_CHECK( myThid )
177    #else
178        IF (useEXF) CALL PACKAGES_ERROR_MSG('EXF',' ',myThid)        IF (useEXF) CALL PACKAGES_ERROR_MSG('EXF',' ',myThid)
179  #endif  #endif
180    
# Line 336  C---  Continue with standard packages (w Line 336  C---  Continue with standard packages (w
336       & 'NEST_PARENT',' ',myThid)       & 'NEST_PARENT',' ',myThid)
337  #endif  #endif
338    
339    #ifdef ALLOW_OASIS
340          IF (useOASIS) CALL OASIS_CHECK( myThid )
341    #else
342          IF (useOASIS) CALL PACKAGES_ERROR_MSG('OASIS',' ',myThid)
343    #endif
344    
345    #ifdef ALLOW_ECCO
346          CALL ECCO_CHECK( myThid )
347    #endif
348    
349  #ifndef ALLOW_EMBED_FILES  #ifndef ALLOW_EMBED_FILES
350        IF (useEMBED_FILES) CALL PACKAGES_ERROR_MSG(        IF (useEMBED_FILES) CALL PACKAGES_ERROR_MSG(
351       &                                  'EMBED_FILES',' ',myThid)       &                                  'EMBED_FILES',' ',myThid)
# Line 347  C---  Continue with standard packages (w Line 357  C---  Continue with standard packages (w
357        IF (useMYPACKAGE) CALL PACKAGES_ERROR_MSG('MYPACKAGE',' ',myThid)        IF (useMYPACKAGE) CALL PACKAGES_ERROR_MSG('MYPACKAGE',' ',myThid)
358  #endif  #endif
359    
360  #ifdef ALLOW_ECCO  #ifdef ALLOW_GENERIC_ADVDIFF
361        CALL ECCO_CHECK( myThid )  C-    Check generic AdvDiff setting and related overlap minimum size:
362    C     for this reason, called after other ${pkg}_check S/R
363          IF (useGAD) CALL GAD_CHECK( myThid )
364  #endif  #endif
365    
366  C---  Exclusive packages (which cannot be used together):  C---  Exclusive packages (which cannot be used together):
# Line 362  C---  Exclusive packages (which cannot b Line 374  C---  Exclusive packages (which cannot b
374          STOP 'ABNORMAL END: S/R PACKAGES_CHECK'          STOP 'ABNORMAL END: S/R PACKAGES_CHECK'
375        ENDIF        ENDIF
376    
377    #ifdef ALLOW_AUTODIFF
378    C--   Here INI_MASK_ETC will be called a 2nd time by INITIALISE_VARIA.
379    C     This hack prevents a 2nd printing when default debugLevel is used.
380          _BARRIER
381          _BEGIN_MASTER( myThid )
382          IF ( debugLevel.LE.debLevA ) printDomain = .FALSE.
383          _END_MASTER( myThid )
384          _BARRIER
385    #endif
386    
387        RETURN        RETURN
388        END        END
Legend:
Removed from v.1.49  
changed lines
  Added in v.1.53
  ViewVC Help
Powered by ViewVC 1.1.22