/[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.46 by rpa, Wed Sep 16 21:36:11 2009 UTC revision 1.52 by jmc, Fri Dec 24 21:54:03 2010 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 183  C---  Continue with standard packages (w Line 181  C---  Continue with standard packages (w
181       &                  'BULK_FORCE', 'useBulkForce=.T.', myThid )       &                  'BULK_FORCE', 'useBulkForce=.T.', myThid )
182  #endif  #endif
183    
184    #ifndef ALLOW_EBM
185          IF (useEBM) CALL PACKAGES_ERROR_MSG('EBM',' ',myThid)
186    #endif
187    
188    #ifndef ALLOW_CHEAPAML
189          IF (useCheapAML) CALL PACKAGES_ERROR_MSG('CheapAML',' ',myThid)
190    #endif
191    
192  #ifdef ALLOW_THSICE  #ifdef ALLOW_THSICE
193        IF (useThSIce) CALL THSICE_CHECK( myThid )        IF (useThSIce) CALL THSICE_CHECK( myThid )
194  #else  #else
# Line 198  C---  Continue with standard packages (w Line 204  C---  Continue with standard packages (w
204  #endif  #endif
205    
206  #ifndef ALLOW_LAND  #ifndef ALLOW_LAND
207        IF (useLand) CALL PACKAGES_ERROR_MSG('LAND',' ',myThid)        IF (useLand) CALL PACKAGES_ERROR_MSG('Land',' ',myThid)
208  #endif  #endif
209    
210  #ifndef ALLOW_PTRACERS  #ifndef ALLOW_FIZHI
211        IF (usePTRACERS) CALL PACKAGES_ERROR_MSG('PTRACERS',' ',myThid)        IF (useFizhi) CALL PACKAGES_ERROR_MSG('Fizhi',' ',myThid)
212  #endif  #endif
213    
214  #ifndef ALLOW_MATRIX  #ifndef ALLOW_GRIDALT
215        IF (useMATRIX) CALL PACKAGES_ERROR_MSG('MATRIX',' ',myThid)        IF (useGridAlt) CALL PACKAGES_ERROR_MSG('GridAlt',' ',myThid)
216    #endif
217    
218    #ifndef ALLOW_PTRACERS
219          IF (usePTRACERS) CALL PACKAGES_ERROR_MSG('PTRACERS',' ',myThid)
220  #endif  #endif
221    
222  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
# Line 215  C---  Continue with standard packages (w Line 225  C---  Continue with standard packages (w
225        IF (useGCHEM) CALL PACKAGES_ERROR_MSG('GCHEM',' ',myThid)        IF (useGCHEM) CALL PACKAGES_ERROR_MSG('GCHEM',' ',myThid)
226  #endif  #endif
227    
228    #ifndef ALLOW_RBCS
229          IF (useRBCS) CALL PACKAGES_ERROR_MSG('RBCS',' ',myThid)
230    #endif
231    
232  #ifndef ALLOW_OFFLINE  #ifndef ALLOW_OFFLINE
233        IF (useOffLine) CALL PACKAGES_ERROR_MSG('OffLine',' ',myThid)        IF (useOffLine) CALL PACKAGES_ERROR_MSG('OffLine',' ',myThid)
234  #endif  #endif
235    
236    #ifndef ALLOW_MATRIX
237          IF (useMATRIX) CALL PACKAGES_ERROR_MSG('MATRIX',' ',myThid)
238    #endif
239    
240  #ifndef ALLOW_SHAP_FILT  #ifndef ALLOW_SHAP_FILT
241        IF (useSHAP_FILT)        IF (useSHAP_FILT)
242       &   CALL PACKAGES_ERROR_MSG( 'SHAP_FILT', ' ', myThid )       &   CALL PACKAGES_ERROR_MSG( 'SHAP_FILT', ' ', myThid )
# Line 245  C---  Continue with standard packages (w Line 263  C---  Continue with standard packages (w
263        IF (useSEAICE) CALL PACKAGES_ERROR_MSG('SEAICE',' ',myThid)        IF (useSEAICE) CALL PACKAGES_ERROR_MSG('SEAICE',' ',myThid)
264  #endif  #endif
265    
266    #ifdef ALLOW_SALT_PLUME
267          IF (useSALT_PLUME)CALL SALT_PLUME_CHECK( myThid )
268    #else
269          IF (useSALT_PLUME)CALL PACKAGES_ERROR_MSG('SALT_PLUME',' ',myThid)
270    #endif
271    
272  #ifdef ALLOW_SHELFICE  #ifdef ALLOW_SHELFICE
273        IF (useShelfIce) CALL SHELFICE_CHECK( myThid )        IF (useShelfIce) CALL SHELFICE_CHECK( myThid )
274  #else  #else
275        IF (useShelfIce) CALL PACKAGES_ERROR_MSG('ShelfIce',' ',myThid)        IF (useShelfIce) CALL PACKAGES_ERROR_MSG('ShelfIce',' ',myThid)
276  #endif  #endif
277    
278    #ifdef ALLOW_ICEFRONT
279          IF (useICEFRONT) CALL ICEFRONT_CHECK( myThid )
280    #else
281          IF (useICEFRONT) CALL PACKAGES_ERROR_MSG('ICEFRONT',' ',myThid)
282    #endif
283    
284  #ifdef ALLOW_AUTODIFF  #ifdef ALLOW_AUTODIFF
285        CALL AUTODIFF_CHECK( myThid )        CALL AUTODIFF_CHECK( myThid )
286  #endif  #endif
# Line 267  C---  Continue with standard packages (w Line 297  C---  Continue with standard packages (w
297        IF (useGRDCHK) CALL GRDCHK_CHECK( myThid )        IF (useGRDCHK) CALL GRDCHK_CHECK( myThid )
298  #endif  #endif
299    
300    #ifndef ALLOW_SMOOTH
301          IF (useSMOOTH) CALL PACKAGES_ERROR_MSG('SMOOTH',' ',myThid)
302    #endif
303    
304  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
305        IF (useDiagnostics) CALL DIAGNOSTICS_CHECK( myThid )        IF (useDiagnostics) CALL DIAGNOSTICS_CHECK( myThid )
306  #else  #else
# Line 286  C---  Continue with standard packages (w Line 320  C---  Continue with standard packages (w
320        IF ( useLayers ) CALL PACKAGES_ERROR_MSG('LAYERS',' ',myThid)        IF ( useLayers ) CALL PACKAGES_ERROR_MSG('LAYERS',' ',myThid)
321  #endif /* ALLOW_LAYERS */  #endif /* ALLOW_LAYERS */
322    
323  #ifdef ALLOW_MYPACKAGE  #ifdef ALLOW_NEST_CHILD
324        IF (useMYPACKAGE) CALL MYPACKAGE_CHECK( myThid )        IF (useNEST_CHILD) CALL NEST_CHILD_CHECK( myThid )
325  #else  #else
326        IF (useMYPACKAGE) CALL PACKAGES_ERROR_MSG('MYPACKAGE',' ',myThid)        IF (useNEST_CHILD) CALL PACKAGES_ERROR_MSG(
327         & 'NEST_CHILD',' ',myThid)
328  #endif  #endif
329    
330  #ifdef ALLOW_SALT_PLUME  #ifdef ALLOW_NEST_PARENT
331        IF (useSALT_PLUME)CALL SALT_PLUME_CHECK( myThid )        IF (useNEST_PARENT) CALL NEST_PARENT_CHECK( myThid )
332  #else  #else
333        IF (useSALT_PLUME)CALL PACKAGES_ERROR_MSG('SALT_PLUME',' ',myThid)        IF (useNEST_PARENT) CALL PACKAGES_ERROR_MSG(
334         & 'NEST_PARENT',' ',myThid)
335    #endif
336    
337    #ifdef ALLOW_OASIS
338          IF (useOASIS) CALL OASIS_CHECK( myThid )
339    #else
340          IF (useOASIS) CALL PACKAGES_ERROR_MSG('OASIS',' ',myThid)
341  #endif  #endif
342    
343  #ifdef ALLOW_ECCO  #ifdef ALLOW_ECCO
344        CALL ECCO_CHECK( myThid )        CALL ECCO_CHECK( myThid )
345  #endif  #endif
346    
347    #ifndef ALLOW_EMBED_FILES
348          IF (useEMBED_FILES) CALL PACKAGES_ERROR_MSG(
349         &                                  'EMBED_FILES',' ',myThid)
350    #endif
351    
352    #ifdef ALLOW_MYPACKAGE
353          IF (useMYPACKAGE) CALL MYPACKAGE_CHECK( myThid )
354    #else
355          IF (useMYPACKAGE) CALL PACKAGES_ERROR_MSG('MYPACKAGE',' ',myThid)
356    #endif
357    
358    #ifdef ALLOW_GENERIC_ADVDIFF
359    C-    Check generic AdvDiff setting and related overlap minimum size:
360    C     for this reason, called after other ${pkg}_check S/R
361          IF (useGAD) CALL GAD_CHECK( myThid )
362    #endif
363    
364  C---  Exclusive packages (which cannot be used together):  C---  Exclusive packages (which cannot be used together):
365        IF ( useEXF .AND. useBulkForce ) THEN        IF ( useEXF .AND. useBulkForce ) THEN
366          WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',          WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',
# Line 313  C---  Exclusive packages (which cannot b Line 372  C---  Exclusive packages (which cannot b
372          STOP 'ABNORMAL END: S/R PACKAGES_CHECK'          STOP 'ABNORMAL END: S/R PACKAGES_CHECK'
373        ENDIF        ENDIF
374    
375    #ifdef ALLOW_AUTODIFF
376    C--   Here INI_MASK_ETC will be called a 2nd time by INITIALISE_VARIA.
377    C     This hack prevents a 2nd printing when default debugLevel is used.
378          _BARRIER
379          _BEGIN_MASTER( myThid )
380          IF ( debugLevel.LE.debLevA ) printDomain = .FALSE.
381          _END_MASTER( myThid )
382          _BARRIER
383    #endif
384    
385        RETURN        RETURN
386        END        END
Legend:
Removed from v.1.46  
changed lines
  Added in v.1.52
  ViewVC Help
Powered by ViewVC 1.1.22