/[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.29 by heimbach, Sat Sep 3 04:17:57 2005 UTC revision 1.36 by edhill, Tue Aug 15 04:24:03 2006 UTC
# Line 36  C     myThid ::  Number of this instance Line 36  C     myThid ::  Number of this instance
36  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
37  C     === Local variables ===  C     === Local variables ===
38  C     msgBuf      :: Informational/error meesage buffer  C     msgBuf      :: Informational/error meesage buffer
39        CHARACTER*(MAX_LEN_MBUF) msgBuf  c     CHARACTER*(MAX_LEN_MBUF) msgBuf
40  CEOP  CEOP
41    
42  #ifdef ALLOW_RUNCLOCK  #ifdef ALLOW_RUNCLOCK
# Line 107  CEOP Line 107  CEOP
107        IF (usePTRACERS) CALL PACKAGES_CHECK_ERROR('PTRACERS', myThid)        IF (usePTRACERS) CALL PACKAGES_CHECK_ERROR('PTRACERS', myThid)
108  #endif  #endif
109    
110    #ifndef ALLOW_MATRIX
111          IF (useMATRIX) CALL PACKAGES_CHECK_ERROR('MATRIX', myThid)
112    #endif
113    
114  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
115        IF (useGCHEM) CALL GCHEM_CHECK( myThid )        IF (useGCHEM) CALL GCHEM_CHECK( myThid )
116  #else  #else
117        IF (useGCHEM) CALL PACKAGES_CHECK_ERROR('GCHEM', myThid)        IF (useGCHEM) CALL PACKAGES_CHECK_ERROR('GCHEM', myThid)
118  #endif  #endif
119    
120    #ifndef ALLOW_OFFLINE
121          IF (useOffLine) CALL PACKAGES_CHECK_ERROR('OFFLINE', myThid)
122    #endif
123    
124  #ifndef ALLOW_SHAP_FILT  #ifndef ALLOW_SHAP_FILT
125        IF (useSHAP_FILT) CALL PACKAGES_CHECK_ERROR('SHAP_FILT', myThid)        IF (useSHAP_FILT) CALL PACKAGES_CHECK_ERROR('SHAP_FILT', myThid)
126  #endif  #endif
# Line 137  CEOP Line 145  CEOP
145        IF (useSEAICE) CALL PACKAGES_CHECK_ERROR('SEAICE', myThid)        IF (useSEAICE) CALL PACKAGES_CHECK_ERROR('SEAICE', myThid)
146  #endif  #endif
147    
148    #ifdef ALLOW_SHELFICE
149          IF (useShelfIce) CALL SHELFICE_CHECK( myThid )
150    #else
151          IF (useShelfIce) CALL PACKAGES_CHECK_ERROR('SHELFICE', myThid)
152    #endif
153    
154  #ifndef ALLOW_CD_CODE  #ifndef ALLOW_CD_CODE
155        IF (useCDscheme) CALL PACKAGES_CHECK_ERROR('CD_CODE', myThid)        IF (useCDscheme) CALL PACKAGES_CHECK_ERROR('CD_CODE', myThid)
156  #endif  #endif
# Line 154  CEOP Line 168  CEOP
168  #endif  #endif
169    
170  #ifdef ALLOW_GRDCHK  #ifdef ALLOW_GRDCHK
171        CALL GRDCHK_CHECK( myThid )        IF (useGRDCHK) CALL GRDCHK_CHECK( myThid )
172  #endif  #endif
173    
174  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
175        IF (useDiagnostics) CALL DIAGNOSTICS_CHECK( myThid )        IF (useDiagnostics) CALL DIAGNOSTICS_CHECK( myThid )
176  #else  #else
177        IF (useDiagnostics)        IF (useDiagnostics)
178       &   CALL PACKAGES_CHECK_ERROR('DIAGNOSTICS', myThid )       &   CALL PACKAGES_CHECK_ERROR('DIAGNOSTICS', myThid )
179  #endif  #endif
180    
181    #ifdef ALLOW_REGRID
182          IF (useREGRID) CALL REGRID_CHECK( myThid )
183    #else
184          IF (useREGRID) CALL PACKAGES_CHECK_ERROR('REGRID', myThid)
185    #endif
186    
187    #ifdef ALLOW_MYPACKAGE
188          IF (useMYPACKAGE) CALL MYPACKAGE_CHECK( myThid )
189    #else
190          IF (useMYPACKAGE) CALL PACKAGES_CHECK_ERROR('MYPACKAGE', myThid)
191    #endif
192    
193        RETURN        RETURN
194        END        END
Legend:
Removed from v.1.29  
changed lines
  Added in v.1.36
  ViewVC Help
Powered by ViewVC 1.1.22