/[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.51 by jmc, Tue Nov 16 17:41:33 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):
Legend:
Removed from v.1.50  
changed lines
  Added in v.1.51
  ViewVC Help
Powered by ViewVC 1.1.22