/[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.61 by gforget, Fri Jun 22 02:03:03 2012 UTC revision 1.62 by jmc, Wed May 8 00:06:32 2013 UTC
# Line 126  C     If taveFreq is finite, make sure t Line 126  C     If taveFreq is finite, make sure t
126    
127  C---  Continue with standard packages (with standard usePKG flag)  C---  Continue with standard packages (with standard usePKG flag)
128    
129  #ifdef ALLOW_RUNCLOCK  #ifdef ALLOW_OBCS
130        IF (useRunClock) CALL RUNCLOCK_CHECK( myThid )        IF (useOBCS) CALL OBCS_CHECK( myThid )
131  #else  #else
132        IF (useRunClock) CALL PACKAGES_ERROR_MSG('RunClock',' ',myThid)        IF (useOBCS) CALL PACKAGES_ERROR_MSG('OBCS',' ',myThid)
133  #endif  #endif
134    
135  #ifdef ALLOW_KPP  #ifndef ALLOW_SHAP_FILT
136        IF (useKPP) CALL KPP_CHECK( myThid )        IF (useSHAP_FILT)
137         &   CALL PACKAGES_ERROR_MSG( 'SHAP_FILT', ' ', myThid )
138    #endif
139    
140    #ifndef ALLOW_ZONAL_FILT
141          IF (useZONAL_FILT)
142         &   CALL PACKAGES_ERROR_MSG( 'ZONAL_FILT', ' ', myThid )
143    #endif
144    
145    #ifdef ALLOW_OPPS
146          IF (useOPPS) CALL OPPS_CHECK( myThid )
147  #else  #else
148        IF (useKPP) CALL PACKAGES_ERROR_MSG('KPP',' ',myThid)        IF (useOPPS) CALL PACKAGES_ERROR_MSG('OPPS',' ',myThid)
149  #endif  #endif
150    
151  #ifdef ALLOW_PP81  #ifdef ALLOW_PP81
# Line 156  C---  Continue with standard packages (w Line 166  C---  Continue with standard packages (w
166        IF (useGGL90) CALL PACKAGES_ERROR_MSG('GGL90',' ',myThid)        IF (useGGL90) CALL PACKAGES_ERROR_MSG('GGL90',' ',myThid)
167  #endif  #endif
168    
169  #ifdef ALLOW_OPPS  #ifdef ALLOW_KPP
170        IF (useOPPS) CALL OPPS_CHECK( myThid )        IF (useKPP) CALL KPP_CHECK( myThid )
171  #else  #else
172        IF (useOPPS) CALL PACKAGES_ERROR_MSG('OPPS',' ',myThid)        IF (useKPP) CALL PACKAGES_ERROR_MSG('KPP',' ',myThid)
173  #endif  #endif
174    
175  #ifdef ALLOW_GMREDI  #ifdef ALLOW_GMREDI
# Line 168  C---  Continue with standard packages (w Line 178  C---  Continue with standard packages (w
178        IF (useGMRedi) CALL PACKAGES_ERROR_MSG('GMRedi',' ',myThid)        IF (useGMRedi) CALL PACKAGES_ERROR_MSG('GMRedi',' ',myThid)
179  #endif  #endif
180    
 #ifndef ALLOW_DOWN_SLOPE  
       IF (useDOWN_SLOPE)  
      &            CALL PACKAGES_ERROR_MSG('DOWN_SLOPE',' ',myThid)  
 #endif  
   
181  #ifdef ALLOW_BBL  #ifdef ALLOW_BBL
182        IF (useBBL) CALL BBL_CHECK( myThid )        IF (useBBL) CALL BBL_CHECK( myThid )
183  #else  #else
184        IF (useBBL) CALL PACKAGES_ERROR_MSG('BBL',' ',myThid)        IF (useBBL) CALL PACKAGES_ERROR_MSG('BBL',' ',myThid)
185  #endif  #endif
186    
187  #ifdef ALLOW_OBCS  #ifndef ALLOW_DOWN_SLOPE
188        IF (useOBCS) CALL OBCS_CHECK( myThid )        IF (useDOWN_SLOPE)
189  #else       &            CALL PACKAGES_ERROR_MSG('DOWN_SLOPE',' ',myThid)
       IF (useOBCS) CALL PACKAGES_ERROR_MSG('OBCS',' ',myThid)  
190  #endif  #endif
191    
192  #ifndef ALLOW_CAL  #ifndef ALLOW_CAL
# Line 208  C---  Continue with standard packages (w Line 212  C---  Continue with standard packages (w
212        IF (useCheapAML) CALL PACKAGES_ERROR_MSG('CheapAML',' ',myThid)        IF (useCheapAML) CALL PACKAGES_ERROR_MSG('CheapAML',' ',myThid)
213  #endif  #endif
214    
215  #ifndef ALLOW_FRAZIL  #ifndef ALLOW_FLT
216        IF (useFRAZIL) CALL PACKAGES_ERROR_MSG('FRAZIL',' ',myThid)        IF (useFLT) CALL PACKAGES_ERROR_MSG('FLT',' ',myThid)
 #endif  
   
 #ifdef ALLOW_THSICE  
       IF (useThSIce) CALL THSICE_CHECK( myThid )  
 #else  
       IF (useThSIce) CALL PACKAGES_ERROR_MSG('ThSIce',' ',myThid)  
 #endif  
   
 #ifndef ALLOW_ATM2D  
       IF (useATM2D) CALL PACKAGES_ERROR_MSG('ATM2D',' ',myThid)  
 #endif  
   
 #ifndef ALLOW_AIM  
       IF (useAIM) CALL PACKAGES_ERROR_MSG('AIM',' ',myThid)  
 #endif  
   
 #ifndef ALLOW_LAND  
       IF (useLand) CALL PACKAGES_ERROR_MSG('Land',' ',myThid)  
 #endif  
   
 #ifndef ALLOW_FIZHI  
       IF (useFizhi) CALL PACKAGES_ERROR_MSG('Fizhi',' ',myThid)  
 #endif  
   
 #ifndef ALLOW_GRIDALT  
       IF (useGridAlt) CALL PACKAGES_ERROR_MSG('GridAlt',' ',myThid)  
217  #endif  #endif
218    
219  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
# Line 262  C---  Continue with standard packages (w Line 240  C---  Continue with standard packages (w
240        IF (useMATRIX) CALL PACKAGES_ERROR_MSG('MATRIX',' ',myThid)        IF (useMATRIX) CALL PACKAGES_ERROR_MSG('MATRIX',' ',myThid)
241  #endif  #endif
242    
243  #ifndef ALLOW_SHAP_FILT  #ifndef ALLOW_FRAZIL
244        IF (useSHAP_FILT)        IF (useFRAZIL) CALL PACKAGES_ERROR_MSG('FRAZIL',' ',myThid)
      &   CALL PACKAGES_ERROR_MSG( 'SHAP_FILT', ' ', myThid )  
 #endif  
   
 #ifndef ALLOW_ZONAL_FILT  
       IF (useZONAL_FILT)  
      &   CALL PACKAGES_ERROR_MSG( 'ZONAL_FILT', ' ', myThid )  
 #endif  
   
 #ifndef ALLOW_FLT  
       IF (useFLT) CALL PACKAGES_ERROR_MSG('FLT',' ',myThid)  
 #endif  
   
 #ifdef ALLOW_SBO  
       IF (useSBO) CALL SBO_CHECK( myThid )  
 #else  
       IF (useSBO) CALL PACKAGES_ERROR_MSG('SBO',' ',myThid)  
245  #endif  #endif
246    
247  #ifdef ALLOW_SEAICE  #ifdef ALLOW_SEAICE
# Line 312  C---  Continue with standard packages (w Line 274  C---  Continue with standard packages (w
274        IF (useICEFRONT) CALL PACKAGES_ERROR_MSG('ICEFRONT',' ',myThid)        IF (useICEFRONT) CALL PACKAGES_ERROR_MSG('ICEFRONT',' ',myThid)
275  #endif  #endif
276    
277    #ifdef ALLOW_THSICE
278          IF (useThSIce) CALL THSICE_CHECK( myThid )
279    #else
280          IF (useThSIce) CALL PACKAGES_ERROR_MSG('ThSIce',' ',myThid)
281    #endif
282    
283    #ifndef ALLOW_LAND
284          IF (useLand) CALL PACKAGES_ERROR_MSG('Land',' ',myThid)
285    #endif
286    
287    #ifndef ALLOW_ATM2D
288          IF (useATM2D) CALL PACKAGES_ERROR_MSG('ATM2D',' ',myThid)
289    #endif
290    
291    #ifndef ALLOW_AIM
292          IF (useAIM) CALL PACKAGES_ERROR_MSG('AIM',' ',myThid)
293    #endif
294    
295    #ifndef ALLOW_ATM_PHYS
296          IF (useAtm_Phys) CALL PACKAGES_ERROR_MSG('Atm_Phys',' ',myThid)
297    #endif
298    
299    #ifndef ALLOW_FIZHI
300          IF (useFizhi) CALL PACKAGES_ERROR_MSG('Fizhi',' ',myThid)
301    #endif
302    
303    #ifndef ALLOW_GRIDALT
304          IF (useGridAlt) CALL PACKAGES_ERROR_MSG('GridAlt',' ',myThid)
305    #endif
306    
307  #ifdef ALLOW_AUTODIFF  #ifdef ALLOW_AUTODIFF
308        CALL AUTODIFF_CHECK( myThid )        CALL AUTODIFF_CHECK( myThid )
309  #endif  #endif
# Line 336  C---  Continue with standard packages (w Line 328  C---  Continue with standard packages (w
328        IF (usePROFILES) CALL PACKAGES_ERROR_MSG('PROFILES',' ',myThid)        IF (usePROFILES) CALL PACKAGES_ERROR_MSG('PROFILES',' ',myThid)
329  #endif  #endif
330    
331    #ifdef ALLOW_SBO
332          IF (useSBO) CALL SBO_CHECK( myThid )
333    #else
334          IF (useSBO) CALL PACKAGES_ERROR_MSG('SBO',' ',myThid)
335    #endif
336    
337    #ifdef ALLOW_ECCO
338          CALL ECCO_CHECK( myThid )
339    #endif
340    
341  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
342        IF (useDiagnostics) CALL DIAGNOSTICS_CHECK( myThid )        IF (useDiagnostics) CALL DIAGNOSTICS_CHECK( myThid )
343  #else  #else
# Line 375  C---  Continue with standard packages (w Line 377  C---  Continue with standard packages (w
377        IF (useOASIS) CALL PACKAGES_ERROR_MSG('OASIS',' ',myThid)        IF (useOASIS) CALL PACKAGES_ERROR_MSG('OASIS',' ',myThid)
378  #endif  #endif
379    
380  #ifdef ALLOW_ECCO  #ifdef ALLOW_RUNCLOCK
381        CALL ECCO_CHECK( myThid )        IF (useRunClock) CALL RUNCLOCK_CHECK( myThid )
382    #else
383          IF (useRunClock) CALL PACKAGES_ERROR_MSG('RunClock',' ',myThid)
384  #endif  #endif
385    
386  #ifndef ALLOW_EMBED_FILES  #ifndef ALLOW_EMBED_FILES
Legend:
Removed from v.1.61  
changed lines
  Added in v.1.62
  ViewVC Help
Powered by ViewVC 1.1.22