/[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.47 by jmc, Tue Nov 24 00:17:42 2009 UTC revision 1.56 by heimbach, Sat Feb 4 01:43:40 2012 UTC
# 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 115  C     If taveFreq is finite, make sure t Line 113  C     If taveFreq is finite, make sure t
113  #endif  #endif
114    
115  #ifndef ALLOW_CD_CODE  #ifndef ALLOW_CD_CODE
116        IF (useCDscheme) CALL PACKAGES_ERROR_MSG(         IF (useCDscheme) CALL PACKAGES_ERROR_MSG(
117       &                  'CD_CODE', 'useCDscheme=.T.', myThid )       &                  'CD_CODE', 'useCDscheme=.T.', myThid )
118  #endif  #endif
119    
# Line 168  C---  Continue with standard packages (w Line 166  C---  Continue with standard packages (w
166       &            CALL PACKAGES_ERROR_MSG('DOWN_SLOPE',' ',myThid)       &            CALL PACKAGES_ERROR_MSG('DOWN_SLOPE',' ',myThid)
167  #endif  #endif
168    
169    #ifdef ALLOW_BBL
170          IF (useBBL) CALL BBL_CHECK( myThid )
171    #else
172          IF (useBBL) CALL PACKAGES_ERROR_MSG('BBL',' ',myThid)
173    #endif
174    
175  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
176        IF (useOBCS) CALL OBCS_CHECK( myThid )        IF (useOBCS) CALL OBCS_CHECK( myThid )
177  #else  #else
178        IF (useOBCS) CALL PACKAGES_ERROR_MSG('OBCS',' ',myThid)        IF (useOBCS) CALL PACKAGES_ERROR_MSG('OBCS',' ',myThid)
179  #endif  #endif
180    
181  #ifndef ALLOW_EXF  #ifdef ALLOW_EXF
182          IF (useEXF) CALL EXF_CHECK( myThid )
183    #else
184        IF (useEXF) CALL PACKAGES_ERROR_MSG('EXF',' ',myThid)        IF (useEXF) CALL PACKAGES_ERROR_MSG('EXF',' ',myThid)
185  #endif  #endif
186    
# Line 183  C---  Continue with standard packages (w Line 189  C---  Continue with standard packages (w
189       &                  'BULK_FORCE', 'useBulkForce=.T.', myThid )       &                  'BULK_FORCE', 'useBulkForce=.T.', myThid )
190  #endif  #endif
191    
192    #ifndef ALLOW_EBM
193          IF (useEBM) CALL PACKAGES_ERROR_MSG('EBM',' ',myThid)
194    #endif
195    
196    #ifndef ALLOW_CHEAPAML
197          IF (useCheapAML) CALL PACKAGES_ERROR_MSG('CheapAML',' ',myThid)
198    #endif
199    
200  #ifdef ALLOW_THSICE  #ifdef ALLOW_THSICE
201        IF (useThSIce) CALL THSICE_CHECK( myThid )        IF (useThSIce) CALL THSICE_CHECK( myThid )
202  #else  #else
# Line 198  C---  Continue with standard packages (w Line 212  C---  Continue with standard packages (w
212  #endif  #endif
213    
214  #ifndef ALLOW_LAND  #ifndef ALLOW_LAND
215        IF (useLand) CALL PACKAGES_ERROR_MSG('LAND',' ',myThid)        IF (useLand) CALL PACKAGES_ERROR_MSG('Land',' ',myThid)
216  #endif  #endif
217    
218  #ifndef ALLOW_PTRACERS  #ifndef ALLOW_FIZHI
219        IF (usePTRACERS) CALL PACKAGES_ERROR_MSG('PTRACERS',' ',myThid)        IF (useFizhi) CALL PACKAGES_ERROR_MSG('Fizhi',' ',myThid)
220  #endif  #endif
221    
222  #ifndef ALLOW_MATRIX  #ifndef ALLOW_GRIDALT
223        IF (useMATRIX) CALL PACKAGES_ERROR_MSG('MATRIX',' ',myThid)        IF (useGridAlt) CALL PACKAGES_ERROR_MSG('GridAlt',' ',myThid)
224    #endif
225    
226    #ifndef ALLOW_PTRACERS
227          IF (usePTRACERS) CALL PACKAGES_ERROR_MSG('PTRACERS',' ',myThid)
228  #endif  #endif
229    
230  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
# Line 215  C---  Continue with standard packages (w Line 233  C---  Continue with standard packages (w
233        IF (useGCHEM) CALL PACKAGES_ERROR_MSG('GCHEM',' ',myThid)        IF (useGCHEM) CALL PACKAGES_ERROR_MSG('GCHEM',' ',myThid)
234  #endif  #endif
235    
236    #ifndef ALLOW_RBCS
237          IF (useRBCS) CALL PACKAGES_ERROR_MSG('RBCS',' ',myThid)
238    #endif
239    
240  #ifndef ALLOW_OFFLINE  #ifndef ALLOW_OFFLINE
241        IF (useOffLine) CALL PACKAGES_ERROR_MSG('OffLine',' ',myThid)        IF (useOffLine) CALL PACKAGES_ERROR_MSG('OffLine',' ',myThid)
242  #endif  #endif
243    
244    #ifndef ALLOW_MATRIX
245          IF (useMATRIX) CALL PACKAGES_ERROR_MSG('MATRIX',' ',myThid)
246    #endif
247    
248  #ifndef ALLOW_SHAP_FILT  #ifndef ALLOW_SHAP_FILT
249        IF (useSHAP_FILT)        IF (useSHAP_FILT)
250       &   CALL PACKAGES_ERROR_MSG( 'SHAP_FILT', ' ', myThid )       &   CALL PACKAGES_ERROR_MSG( 'SHAP_FILT', ' ', myThid )
# Line 245  C---  Continue with standard packages (w Line 271  C---  Continue with standard packages (w
271        IF (useSEAICE) CALL PACKAGES_ERROR_MSG('SEAICE',' ',myThid)        IF (useSEAICE) CALL PACKAGES_ERROR_MSG('SEAICE',' ',myThid)
272  #endif  #endif
273    
274    #ifdef ALLOW_SALT_PLUME
275          IF (useSALT_PLUME)CALL SALT_PLUME_CHECK( myThid )
276    #else
277          IF (useSALT_PLUME)CALL PACKAGES_ERROR_MSG('SALT_PLUME',' ',myThid)
278    #endif
279    
280  #ifdef ALLOW_SHELFICE  #ifdef ALLOW_SHELFICE
281        IF (useShelfIce) CALL SHELFICE_CHECK( myThid )        IF (useShelfIce) CALL SHELFICE_CHECK( myThid )
282  #else  #else
283        IF (useShelfIce) CALL PACKAGES_ERROR_MSG('ShelfIce',' ',myThid)        IF (useShelfIce) CALL PACKAGES_ERROR_MSG('ShelfIce',' ',myThid)
284  #endif  #endif
285    
286    #ifdef ALLOW_STREAMICE
287          IF (useStreamIce) CALL STREAMICE_CHECK( myThid )
288    #else
289          IF (useStreamIce) CALL PACKAGES_ERROR_MSG('StreamIce',' ',myThid)
290    #endif
291    
292    #ifdef ALLOW_ICEFRONT
293          IF (useICEFRONT) CALL ICEFRONT_CHECK( myThid )
294    #else
295          IF (useICEFRONT) CALL PACKAGES_ERROR_MSG('ICEFRONT',' ',myThid)
296    #endif
297    
298  #ifdef ALLOW_AUTODIFF  #ifdef ALLOW_AUTODIFF
299        CALL AUTODIFF_CHECK( myThid )        CALL AUTODIFF_CHECK( myThid )
300  #endif  #endif
# Line 267  C---  Continue with standard packages (w Line 311  C---  Continue with standard packages (w
311        IF (useGRDCHK) CALL GRDCHK_CHECK( myThid )        IF (useGRDCHK) CALL GRDCHK_CHECK( myThid )
312  #endif  #endif
313    
314    #ifndef ALLOW_SMOOTH
315          IF (useSMOOTH) CALL PACKAGES_ERROR_MSG('SMOOTH',' ',myThid)
316    #endif
317    
318  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
319        IF (useDiagnostics) CALL DIAGNOSTICS_CHECK( myThid )        IF (useDiagnostics) CALL DIAGNOSTICS_CHECK( myThid )
320  #else  #else
# Line 300  C---  Continue with standard packages (w Line 348  C---  Continue with standard packages (w
348       & 'NEST_PARENT',' ',myThid)       & 'NEST_PARENT',' ',myThid)
349  #endif  #endif
350    
351  #ifdef ALLOW_MYPACKAGE  #ifdef ALLOW_OASIS
352        IF (useMYPACKAGE) CALL MYPACKAGE_CHECK( myThid )        IF (useOASIS) CALL OASIS_CHECK( myThid )
353  #else  #else
354        IF (useMYPACKAGE) CALL PACKAGES_ERROR_MSG('MYPACKAGE',' ',myThid)        IF (useOASIS) CALL PACKAGES_ERROR_MSG('OASIS',' ',myThid)
355  #endif  #endif
356    
357  #ifdef ALLOW_SALT_PLUME  #ifdef ALLOW_ECCO
358        IF (useSALT_PLUME)CALL SALT_PLUME_CHECK( myThid )        CALL ECCO_CHECK( myThid )
359    #endif
360    
361    #ifndef ALLOW_EMBED_FILES
362          IF (useEMBED_FILES) CALL PACKAGES_ERROR_MSG(
363         &                                  'EMBED_FILES',' ',myThid)
364    #endif
365    
366    #ifdef ALLOW_MYPACKAGE
367          IF (useMYPACKAGE) CALL MYPACKAGE_CHECK( myThid )
368  #else  #else
369        IF (useSALT_PLUME)CALL PACKAGES_ERROR_MSG('SALT_PLUME',' ',myThid)        IF (useMYPACKAGE) CALL PACKAGES_ERROR_MSG('MYPACKAGE',' ',myThid)
370  #endif  #endif
371    
372  #ifdef ALLOW_ECCO  #ifdef ALLOW_GENERIC_ADVDIFF
373        CALL ECCO_CHECK( myThid )  C-    Check generic AdvDiff setting and related overlap minimum size:
374    C     for this reason, called after other ${pkg}_check S/R
375          IF (useGAD) CALL GAD_CHECK( myThid )
376  #endif  #endif
377    
378  C---  Exclusive packages (which cannot be used together):  C---  Exclusive packages (which cannot be used together):
# Line 323  C---  Exclusive packages (which cannot b Line 382  C---  Exclusive packages (which cannot b
382          CALL PRINT_ERROR( msgBuf , myThid )          CALL PRINT_ERROR( msgBuf , myThid )
383          WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',          WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',
384       &  ' but cannot be used together => need to select only one.'       &  ' but cannot be used together => need to select only one.'
385            CALL PRINT_ERROR( msgBuf , myThid )
386            STOP 'ABNORMAL END: S/R PACKAGES_CHECK'
387          ENDIF
388    
389    C---  Exclusive packages (which cannot be used together):
390          IF ( useDOWN_SLOPE .AND. useBBL ) THEN
391            WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',
392         &  'both useDOWN_SLOPE and useBBL are set'
393            CALL PRINT_ERROR( msgBuf , myThid )
394            WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',
395         &  ' but cannot be used together => need to select only one.'
396          CALL PRINT_ERROR( msgBuf , myThid )          CALL PRINT_ERROR( msgBuf , myThid )
397          STOP 'ABNORMAL END: S/R PACKAGES_CHECK'          STOP 'ABNORMAL END: S/R PACKAGES_CHECK'
398        ENDIF        ENDIF
Legend:
Removed from v.1.47  
changed lines
  Added in v.1.56
  ViewVC Help
Powered by ViewVC 1.1.22