/[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.24 by heimbach, Fri Oct 8 17:25:37 2004 UTC revision 1.25 by mlosch, Fri Nov 19 01:33:32 2004 UTC
# Line 101  CEOP Line 101  CEOP
101        IF (usePTRACERS) CALL PACKAGES_CHECK_ERROR('PTRACERS', myThid)        IF (usePTRACERS) CALL PACKAGES_CHECK_ERROR('PTRACERS', myThid)
102  #endif  #endif
103    
104    #ifdef ALLOW_GCHEM
105          IF (useGCHEM) CALL GCHEM_CHECK( myThid )
106    #else
107          IF (useGCHEM) CALL PACKAGES_CHECK_ERROR('GCHEM', myThid)
108    #endif
109    
110  #ifndef ALLOW_SHAP_FILT  #ifndef ALLOW_SHAP_FILT
111        IF (useSHAP_FILT) CALL PACKAGES_CHECK_ERROR('SHAP_FILT', myThid)        IF (useSHAP_FILT) CALL PACKAGES_CHECK_ERROR('SHAP_FILT', myThid)
112  #endif  #endif
Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25
  ViewVC Help
Powered by ViewVC 1.1.22