/[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.43 by jmc, Mon Apr 7 21:15:06 2008 UTC revision 1.53 by jmc, Tue Jan 25 22:39:06 2011 UTC
# Line 35  C     myThid ::  Number of this instance Line 35  C     myThid ::  Number of this instance
35    
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 message buffer
39        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
40  CEOP  CEOP
41    
# Line 87  C---  Start with non-standard packages ( Line 87  C---  Start with non-standard packages (
87        ENDIF        ENDIF
88  #endif  #endif
89    
90  #ifdef ALLOW_GENERIC_ADVDIFF  #ifndef ALLOW_GENERIC_ADVDIFF
       IF (useGAD) CALL GAD_CHECK( myThid )  
 #else  
91        IF ( tempStepping .OR. saltStepping ) THEN        IF ( tempStepping .OR. saltStepping ) THEN
92          WRITE(msgBuf,'(2A)')          WRITE(msgBuf,'(2A)')
93       &  'PACKAGES_CHECK: cannot step forward Temp or Salt',       &  'PACKAGES_CHECK: cannot step forward Temp or Salt',
# Line 163  C---  Continue with standard packages (w Line 161  C---  Continue with standard packages (w
161        IF (useGMRedi) CALL PACKAGES_ERROR_MSG('GMRedi',' ',myThid)        IF (useGMRedi) CALL PACKAGES_ERROR_MSG('GMRedi',' ',myThid)
162  #endif  #endif
163    
164    #ifndef ALLOW_DOWN_SLOPE
165          IF (useDOWN_SLOPE)
166         &            CALL PACKAGES_ERROR_MSG('DOWN_SLOPE',' ',myThid)
167    #endif
168    
169  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
170        IF (useOBCS) CALL OBCS_CHECK( myThid )        IF (useOBCS) CALL OBCS_CHECK( myThid )
171  #else  #else
172        IF (useOBCS) CALL PACKAGES_ERROR_MSG('OBCS',' ',myThid)        IF (useOBCS) CALL PACKAGES_ERROR_MSG('OBCS',' ',myThid)
173  #endif  #endif
174    
175  #ifndef ALLOW_EXF  #ifdef ALLOW_EXF
176          IF (useEXF) CALL EXF_CHECK( myThid )
177    #else
178        IF (useEXF) CALL PACKAGES_ERROR_MSG('EXF',' ',myThid)        IF (useEXF) CALL PACKAGES_ERROR_MSG('EXF',' ',myThid)
179  #endif  #endif
180    
# Line 178  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 193  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 210  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 240  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
277        IF (useShelfIce) CALL PACKAGES_ERROR_MSG('ShelfIce',' ',myThid)        IF (useShelfIce) CALL PACKAGES_ERROR_MSG('ShelfIce',' ',myThid)
278  #endif  #endif
279    
280    #ifdef ALLOW_ICEFRONT
281          IF (useICEFRONT) CALL ICEFRONT_CHECK( myThid )
282    #else
283          IF (useICEFRONT) CALL PACKAGES_ERROR_MSG('ICEFRONT',' ',myThid)
284    #endif
285    
286  #ifdef ALLOW_AUTODIFF  #ifdef ALLOW_AUTODIFF
287        CALL AUTODIFF_CHECK( myThid )        CALL AUTODIFF_CHECK( myThid )
288  #endif  #endif
# Line 262  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 275  C---  Continue with standard packages (w Line 316  C---  Continue with standard packages (w
316        IF (useREGRID) CALL PACKAGES_ERROR_MSG('REGRID',' ',myThid)        IF (useREGRID) CALL PACKAGES_ERROR_MSG('REGRID',' ',myThid)
317  #endif  #endif
318    
319    #ifdef ALLOW_LAYERS
320          IF ( useLayers ) CALL LAYERS_CHECK( myThid )
321    #else
322          IF ( useLayers ) CALL PACKAGES_ERROR_MSG('LAYERS',' ',myThid)
323    #endif /* ALLOW_LAYERS */
324    
325    #ifdef ALLOW_NEST_CHILD
326          IF (useNEST_CHILD) CALL NEST_CHILD_CHECK( myThid )
327    #else
328          IF (useNEST_CHILD) CALL PACKAGES_ERROR_MSG(
329         & 'NEST_CHILD',' ',myThid)
330    #endif
331    
332    #ifdef ALLOW_NEST_PARENT
333          IF (useNEST_PARENT) CALL NEST_PARENT_CHECK( myThid )
334    #else
335          IF (useNEST_PARENT) CALL PACKAGES_ERROR_MSG(
336         & 'NEST_PARENT',' ',myThid)
337    #endif
338    
339    #ifdef ALLOW_OASIS
340          IF (useOASIS) CALL OASIS_CHECK( myThid )
341    #else
342          IF (useOASIS) CALL PACKAGES_ERROR_MSG('OASIS',' ',myThid)
343    #endif
344    
345    #ifdef ALLOW_ECCO
346          CALL ECCO_CHECK( myThid )
347    #endif
348    
349    #ifndef ALLOW_EMBED_FILES
350          IF (useEMBED_FILES) CALL PACKAGES_ERROR_MSG(
351         &                                  'EMBED_FILES',' ',myThid)
352    #endif
353    
354  #ifdef ALLOW_MYPACKAGE  #ifdef ALLOW_MYPACKAGE
355        IF (useMYPACKAGE) CALL MYPACKAGE_CHECK( myThid )        IF (useMYPACKAGE) CALL MYPACKAGE_CHECK( myThid )
356  #else  #else
357        IF (useMYPACKAGE) CALL PACKAGES_ERROR_MSG('MYPACKAGE',' ',myThid)        IF (useMYPACKAGE) CALL PACKAGES_ERROR_MSG('MYPACKAGE',' ',myThid)
358  #endif  #endif
359    
360  #ifdef ALLOW_SALT_PLUME  #ifdef ALLOW_GENERIC_ADVDIFF
361        IF (useSALT_PLUME)CALL SALT_PLUME_CHECK( myThid )  C-    Check generic AdvDiff setting and related overlap minimum size:
362  #else  C     for this reason, called after other ${pkg}_check S/R
363        IF (useSALT_PLUME)CALL PACKAGES_ERROR_MSG('SALT_PLUME',' ',myThid)        IF (useGAD) CALL GAD_CHECK( myThid )
364  #endif  #endif
365    
366  C---  Exclusive packages (which cannot be used together):  C---  Exclusive packages (which cannot be used together):
# Line 298  C---  Exclusive packages (which cannot b Line 374  C---  Exclusive packages (which cannot b
374          STOP 'ABNORMAL END: S/R PACKAGES_CHECK'          STOP 'ABNORMAL END: S/R PACKAGES_CHECK'
375        ENDIF        ENDIF
376    
377    #ifdef ALLOW_AUTODIFF
378    C--   Here INI_MASK_ETC will be called a 2nd time by INITIALISE_VARIA.
379    C     This hack prevents a 2nd printing when default debugLevel is used.
380          _BARRIER
381          _BEGIN_MASTER( myThid )
382          IF ( debugLevel.LE.debLevA ) printDomain = .FALSE.
383          _END_MASTER( myThid )
384          _BARRIER
385    #endif
386    
387        RETURN        RETURN
388        END        END
Legend:
Removed from v.1.43  
changed lines
  Added in v.1.53
  ViewVC Help
Powered by ViewVC 1.1.22