/[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.9.4.4 by dimitri, Thu May 1 06:10:19 2003 UTC revision 1.12 by heimbach, Tue Nov 12 20:45:41 2002 UTC
# Line 60  CEOP Line 60  CEOP
60        IF (useAIM) CALL PACKAGES_CHECK_ERROR('AIM', myThid)        IF (useAIM) CALL PACKAGES_CHECK_ERROR('AIM', myThid)
61  #endif  #endif
62    
63    #ifndef ALLOW_PTRACERS
64          IF (usePTRACERS) CALL PACKAGES_CHECK_ERROR('PTRACERS', myThid)
65    #endif
66    
67  #ifndef ALLOW_SHAP_FILT  #ifndef ALLOW_SHAP_FILT
68        IF (useSHAP_FILT) CALL PACKAGES_CHECK_ERROR('SHAP_FILT', myThid)        IF (useSHAP_FILT) CALL PACKAGES_CHECK_ERROR('SHAP_FILT', myThid)
69  #endif  #endif
# Line 72  CEOP Line 76  CEOP
76        IF (useFLT) CALL PACKAGES_CHECK_ERROR('FLT', myThid)        IF (useFLT) CALL PACKAGES_CHECK_ERROR('FLT', myThid)
77  #endif  #endif
78    
 #ifdef ALLOW_SBO  
       IF (useSBO) CALL SBO_CHECK( myThid )  
 #else  
       IF (useSBO) CALL PACKAGES_CHECK_ERROR('SBO', myThid)  
 #endif  
   
79  #ifdef ALLOW_SEAICE  #ifdef ALLOW_SEAICE
80        IF (useSEAICE) CALL SEAICE_CHECK( myThid )        IF (useSEAICE) CALL SEAICE_CHECK( myThid )
81  #else  #else
82        IF (useSEAICE) CALL PACKAGES_CHECK_ERROR('SEAICE', myThid)        IF (useSEAICE) CALL PACKAGES_CHECK_ERROR('SEAICE', myThid)
83  #endif  #endif
84    
 #ifndef ALLOW_DIRECT_SOLVER  
       IF (useDirectSolver)  
      &     CALL PACKAGES_CHECK_ERROR('DirectSolver', myThid)  
 #endif  
   
85        RETURN        RETURN
86        END        END
Legend:
Removed from v.1.9.4.4  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22