/[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.50 by mlosch, Sat Sep 25 23:09:55 2010 UTC revision 1.52 by jmc, Fri Dec 24 21:54:03 2010 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 336  C---  Continue with standard packages (w Line 334  C---  Continue with standard packages (w
334       & 'NEST_PARENT',' ',myThid)       & 'NEST_PARENT',' ',myThid)
335  #endif  #endif
336    
337    #ifdef ALLOW_OASIS
338          IF (useOASIS) CALL OASIS_CHECK( myThid )
339    #else
340          IF (useOASIS) CALL PACKAGES_ERROR_MSG('OASIS',' ',myThid)
341    #endif
342    
343    #ifdef ALLOW_ECCO
344          CALL ECCO_CHECK( myThid )
345    #endif
346    
347  #ifndef ALLOW_EMBED_FILES  #ifndef ALLOW_EMBED_FILES
348        IF (useEMBED_FILES) CALL PACKAGES_ERROR_MSG(        IF (useEMBED_FILES) CALL PACKAGES_ERROR_MSG(
349       &                                  'EMBED_FILES',' ',myThid)       &                                  'EMBED_FILES',' ',myThid)
# Line 347  C---  Continue with standard packages (w Line 355  C---  Continue with standard packages (w
355        IF (useMYPACKAGE) CALL PACKAGES_ERROR_MSG('MYPACKAGE',' ',myThid)        IF (useMYPACKAGE) CALL PACKAGES_ERROR_MSG('MYPACKAGE',' ',myThid)
356  #endif  #endif
357    
358  #ifdef ALLOW_OASIS  #ifdef ALLOW_GENERIC_ADVDIFF
359        IF (useOASIS) CALL OASIS_CHECK( myThid )  C-    Check generic AdvDiff setting and related overlap minimum size:
360  #else  C     for this reason, called after other ${pkg}_check S/R
361        IF (useOASIS) CALL PACKAGES_ERROR_MSG('OASIS',' ',myThid)        IF (useGAD) CALL GAD_CHECK( myThid )
 #endif  
   
 #ifdef ALLOW_ECCO  
       CALL ECCO_CHECK( myThid )  
362  #endif  #endif
363    
364  C---  Exclusive packages (which cannot be used together):  C---  Exclusive packages (which cannot be used together):
# Line 368  C---  Exclusive packages (which cannot b Line 372  C---  Exclusive packages (which cannot b
372          STOP 'ABNORMAL END: S/R PACKAGES_CHECK'          STOP 'ABNORMAL END: S/R PACKAGES_CHECK'
373        ENDIF        ENDIF
374    
375    #ifdef ALLOW_AUTODIFF
376    C--   Here INI_MASK_ETC will be called a 2nd time by INITIALISE_VARIA.
377    C     This hack prevents a 2nd printing when default debugLevel is used.
378          _BARRIER
379          _BEGIN_MASTER( myThid )
380          IF ( debugLevel.LE.debLevA ) printDomain = .FALSE.
381          _END_MASTER( myThid )
382          _BARRIER
383    #endif
384    
385        RETURN        RETURN
386        END        END
Legend:
Removed from v.1.50  
changed lines
  Added in v.1.52
  ViewVC Help
Powered by ViewVC 1.1.22