/[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.48 by dimitri, Wed Jan 20 23:33:45 2010 UTC revision 1.49 by jmc, Sat Mar 13 00:26:21 2010 UTC
# Line 183  C---  Continue with standard packages (w Line 183  C---  Continue with standard packages (w
183       &                  'BULK_FORCE', 'useBulkForce=.T.', myThid )       &                  'BULK_FORCE', 'useBulkForce=.T.', myThid )
184  #endif  #endif
185    
186    #ifndef ALLOW_EBM
187          IF (useEBM) CALL PACKAGES_ERROR_MSG('EBM',' ',myThid)
188    #endif
189    
190    #ifndef ALLOW_CHEAPAML
191          IF (useCheapAML) CALL PACKAGES_ERROR_MSG('CheapAML',' ',myThid)
192    #endif
193    
194  #ifdef ALLOW_THSICE  #ifdef ALLOW_THSICE
195        IF (useThSIce) CALL THSICE_CHECK( myThid )        IF (useThSIce) CALL THSICE_CHECK( myThid )
196  #else  #else
# Line 198  C---  Continue with standard packages (w Line 206  C---  Continue with standard packages (w
206  #endif  #endif
207    
208  #ifndef ALLOW_LAND  #ifndef ALLOW_LAND
209        IF (useLand) CALL PACKAGES_ERROR_MSG('LAND',' ',myThid)        IF (useLand) CALL PACKAGES_ERROR_MSG('Land',' ',myThid)
210  #endif  #endif
211    
212  #ifndef ALLOW_PTRACERS  #ifndef ALLOW_FIZHI
213        IF (usePTRACERS) CALL PACKAGES_ERROR_MSG('PTRACERS',' ',myThid)        IF (useFizhi) CALL PACKAGES_ERROR_MSG('Fizhi',' ',myThid)
214  #endif  #endif
215    
216  #ifndef ALLOW_MATRIX  #ifndef ALLOW_GRIDALT
217        IF (useMATRIX) CALL PACKAGES_ERROR_MSG('MATRIX',' ',myThid)        IF (useGridAlt) CALL PACKAGES_ERROR_MSG('GridAlt',' ',myThid)
218    #endif
219    
220    #ifndef ALLOW_PTRACERS
221          IF (usePTRACERS) CALL PACKAGES_ERROR_MSG('PTRACERS',' ',myThid)
222  #endif  #endif
223    
224  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
# Line 215  C---  Continue with standard packages (w Line 227  C---  Continue with standard packages (w
227        IF (useGCHEM) CALL PACKAGES_ERROR_MSG('GCHEM',' ',myThid)        IF (useGCHEM) CALL PACKAGES_ERROR_MSG('GCHEM',' ',myThid)
228  #endif  #endif
229    
230    #ifndef ALLOW_RBCS
231          IF (useRBCS) CALL PACKAGES_ERROR_MSG('RBCS',' ',myThid)
232    #endif
233    
234  #ifndef ALLOW_OFFLINE  #ifndef ALLOW_OFFLINE
235        IF (useOffLine) CALL PACKAGES_ERROR_MSG('OffLine',' ',myThid)        IF (useOffLine) CALL PACKAGES_ERROR_MSG('OffLine',' ',myThid)
236  #endif  #endif
237    
238    #ifndef ALLOW_MATRIX
239          IF (useMATRIX) CALL PACKAGES_ERROR_MSG('MATRIX',' ',myThid)
240    #endif
241    
242  #ifndef ALLOW_SHAP_FILT  #ifndef ALLOW_SHAP_FILT
243        IF (useSHAP_FILT)        IF (useSHAP_FILT)
244       &   CALL PACKAGES_ERROR_MSG( 'SHAP_FILT', ' ', myThid )       &   CALL PACKAGES_ERROR_MSG( 'SHAP_FILT', ' ', myThid )
# Line 245  C---  Continue with standard packages (w Line 265  C---  Continue with standard packages (w
265        IF (useSEAICE) CALL PACKAGES_ERROR_MSG('SEAICE',' ',myThid)        IF (useSEAICE) CALL PACKAGES_ERROR_MSG('SEAICE',' ',myThid)
266  #endif  #endif
267    
268    #ifdef ALLOW_SALT_PLUME
269          IF (useSALT_PLUME)CALL SALT_PLUME_CHECK( myThid )
270    #else
271          IF (useSALT_PLUME)CALL PACKAGES_ERROR_MSG('SALT_PLUME',' ',myThid)
272    #endif
273    
274  #ifdef ALLOW_SHELFICE  #ifdef ALLOW_SHELFICE
275        IF (useShelfIce) CALL SHELFICE_CHECK( myThid )        IF (useShelfIce) CALL SHELFICE_CHECK( myThid )
276  #else  #else
# Line 273  C---  Continue with standard packages (w Line 299  C---  Continue with standard packages (w
299        IF (useGRDCHK) CALL GRDCHK_CHECK( myThid )        IF (useGRDCHK) CALL GRDCHK_CHECK( myThid )
300  #endif  #endif
301    
302    #ifndef ALLOW_SMOOTH
303          IF (useSMOOTH) CALL PACKAGES_ERROR_MSG('SMOOTH',' ',myThid)
304    #endif
305    
306  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
307        IF (useDiagnostics) CALL DIAGNOSTICS_CHECK( myThid )        IF (useDiagnostics) CALL DIAGNOSTICS_CHECK( myThid )
308  #else  #else
# Line 306  C---  Continue with standard packages (w Line 336  C---  Continue with standard packages (w
336       & 'NEST_PARENT',' ',myThid)       & 'NEST_PARENT',' ',myThid)
337  #endif  #endif
338    
339    #ifndef ALLOW_EMBED_FILES
340          IF (useEMBED_FILES) CALL PACKAGES_ERROR_MSG(
341         &                                  'EMBED_FILES',' ',myThid)
342    #endif
343    
344  #ifdef ALLOW_MYPACKAGE  #ifdef ALLOW_MYPACKAGE
345        IF (useMYPACKAGE) CALL MYPACKAGE_CHECK( myThid )        IF (useMYPACKAGE) CALL MYPACKAGE_CHECK( myThid )
346  #else  #else
347        IF (useMYPACKAGE) CALL PACKAGES_ERROR_MSG('MYPACKAGE',' ',myThid)        IF (useMYPACKAGE) CALL PACKAGES_ERROR_MSG('MYPACKAGE',' ',myThid)
348  #endif  #endif
349    
 #ifdef ALLOW_SALT_PLUME  
       IF (useSALT_PLUME)CALL SALT_PLUME_CHECK( myThid )  
 #else  
       IF (useSALT_PLUME)CALL PACKAGES_ERROR_MSG('SALT_PLUME',' ',myThid)  
 #endif  
   
350  #ifdef ALLOW_ECCO  #ifdef ALLOW_ECCO
351        CALL ECCO_CHECK( myThid )        CALL ECCO_CHECK( myThid )
352  #endif  #endif
Legend:
Removed from v.1.48  
changed lines
  Added in v.1.49
  ViewVC Help
Powered by ViewVC 1.1.22