/[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.42 by dimitri, Wed Nov 28 09:26:16 2007 UTC revision 1.64 by jmc, Sun Jul 7 22:26:26 2013 UTC
# Line 30  C     === Global variables === Line 30  C     === Global variables ===
30    
31  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
32  C     === Routine arguments ===  C     === Routine arguments ===
33  C     myThid ::  Number of this instances  C     myThid :: my Thread Id number
34        INTEGER myThid        INTEGER myThid
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    
42          _BEGIN_MASTER(myThid)
43          WRITE(msgBuf,'(A)')
44         &'== Packages configuration : Check & print summary =='
45          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
46         &                    SQUEEZE_RIGHT, myThid )
47          WRITE(msgBuf,'(A)') ' '
48          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
49         &                    SQUEEZE_RIGHT, myThid )
50          _END_MASTER(myThid)
51    
52  C---  Start with non-standard packages (without or with non standard flag)  C---  Start with non-standard packages (without or with non standard flag)
53    
54  #ifndef ALLOW_MNC  #ifndef ALLOW_MNC
55        IF (useMNC) THEN        IF (useMNC) THEN
56          WRITE(msgBuf,'(2A)') '***WARNING***',          _BEGIN_MASTER(myThid)
57            WRITE(msgBuf,'(2A)') '** WARNING **',
58       &   ' PACKAGES_CHECK: useMNC is TRUE'       &   ' PACKAGES_CHECK: useMNC is TRUE'
59          CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,          CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,
60       &       SQUEEZE_RIGHT , myThid)       &                      SQUEEZE_RIGHT, myThid )
61          WRITE(msgBuf,'(2A)') '***WARNING***',          WRITE(msgBuf,'(2A)') '** WARNING **',
62       &   ' but pkg/mnc has not been compiled (#undef ALLOW_MNC)'       &   ' but pkg/mnc has not been compiled (#undef ALLOW_MNC)'
63          CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,          CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,
64       &       SQUEEZE_RIGHT , myThid)       &                      SQUEEZE_RIGHT, myThid )
65            _END_MASTER(myThid)
66        ENDIF        ENDIF
67  #endif  #endif
68    
# Line 63  C---  Start with non-standard packages ( Line 75  C---  Start with non-standard packages (
75          WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',          WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',
76       &   'Re-compile with pkg "mom_vecinv" in packages.conf'       &   'Re-compile with pkg "mom_vecinv" in packages.conf'
77          CALL PRINT_ERROR( msgBuf , myThid )          CALL PRINT_ERROR( msgBuf , myThid )
78            CALL ALL_PROC_DIE( myThid )
79          STOP 'ABNORMAL END: S/R PACKAGES_CHECK'          STOP 'ABNORMAL END: S/R PACKAGES_CHECK'
80        ENDIF        ENDIF
81  #endif  #endif
# Line 75  C---  Start with non-standard packages ( Line 88  C---  Start with non-standard packages (
88          WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',          WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',
89       &   'Re-compile with pkg "mom_fluxform" in packages.conf'       &   'Re-compile with pkg "mom_fluxform" in packages.conf'
90          CALL PRINT_ERROR( msgBuf , myThid )          CALL PRINT_ERROR( msgBuf , myThid )
91            CALL ALL_PROC_DIE( myThid )
92          STOP 'ABNORMAL END: S/R PACKAGES_CHECK'          STOP 'ABNORMAL END: S/R PACKAGES_CHECK'
93        ENDIF        ENDIF
94  #endif  #endif
95    
96  #ifdef ALLOW_GENERIC_ADVDIFF  #ifndef ALLOW_GENERIC_ADVDIFF
       IF (useGAD) CALL GAD_CHECK( myThid )  
 #else  
97        IF ( tempStepping .OR. saltStepping ) THEN        IF ( tempStepping .OR. saltStepping ) THEN
98          WRITE(msgBuf,'(2A)')          WRITE(msgBuf,'(2A)')
99       &  'PACKAGES_CHECK: cannot step forward Temp or Salt',       &  'PACKAGES_CHECK: cannot step forward Temp or Salt',
# Line 90  C---  Start with non-standard packages ( Line 102  C---  Start with non-standard packages (
102          WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',          WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',
103       &  'Re-compile with pkg "generic_advdiff" in packages.conf'       &  'Re-compile with pkg "generic_advdiff" in packages.conf'
104          CALL PRINT_ERROR( msgBuf , myThid )          CALL PRINT_ERROR( msgBuf , myThid )
105            CALL ALL_PROC_DIE( myThid )
106          STOP 'ABNORMAL END: S/R PACKAGES_CHECK'          STOP 'ABNORMAL END: S/R PACKAGES_CHECK'
107        ENDIF        ENDIF
108  #endif  #endif
# Line 107  C     If taveFreq is finite, make sure t Line 120  C     If taveFreq is finite, make sure t
120  #endif  #endif
121    
122  #ifndef ALLOW_CD_CODE  #ifndef ALLOW_CD_CODE
123        IF (useCDscheme) CALL PACKAGES_ERROR_MSG(         IF (useCDscheme) CALL PACKAGES_ERROR_MSG(
124       &                  'CD_CODE', 'useCDscheme=.T.', myThid )       &                  'CD_CODE', 'useCDscheme=.T.', myThid )
125  #endif  #endif
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 143  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 155  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    
181  #ifdef ALLOW_OBCS  #ifdef ALLOW_BBL
182        IF (useOBCS) CALL OBCS_CHECK( myThid )        IF (useBBL) CALL BBL_CHECK( myThid )
183  #else  #else
184        IF (useOBCS) CALL PACKAGES_ERROR_MSG('OBCS',' ',myThid)        IF (useBBL) CALL PACKAGES_ERROR_MSG('BBL',' ',myThid)
185  #endif  #endif
186    
187  #ifndef ALLOW_EXF  #ifndef ALLOW_DOWN_SLOPE
188        IF (useEXF) CALL PACKAGES_ERROR_MSG('EXF',' ',myThid)        IF (useDOWN_SLOPE)
189         &            CALL PACKAGES_ERROR_MSG('DOWN_SLOPE',' ',myThid)
190  #endif  #endif
191    
192  #ifndef ALLOW_BULK_FORCE  #ifndef ALLOW_CAL
193        IF (useBulkForce) CALL PACKAGES_ERROR_MSG(        IF (useCAL) CALL PACKAGES_ERROR_MSG('CAL',' ',myThid)
      &                  'BULK_FORCE', 'useBulkForce=.T.', myThid )  
194  #endif  #endif
195    
196  #ifdef ALLOW_THSICE  #ifdef ALLOW_EXF
197        IF (useThSIce) CALL THSICE_CHECK( myThid )        IF (useEXF) CALL EXF_CHECK( myThid )
198  #else  #else
199        IF (useThSIce) CALL PACKAGES_ERROR_MSG('ThSIce',' ',myThid)        IF (useEXF) CALL PACKAGES_ERROR_MSG('EXF',' ',myThid)
200  #endif  #endif
201    
202  #ifndef ALLOW_ATM2D  #ifndef ALLOW_BULK_FORCE
203        IF (useATM2D) CALL PACKAGES_ERROR_MSG('ATM2D',' ',myThid)        IF (useBulkForce) CALL PACKAGES_ERROR_MSG(
204         &                  'BULK_FORCE', 'useBulkForce=.T.', myThid )
205  #endif  #endif
206    
207  #ifndef ALLOW_AIM  #ifndef ALLOW_EBM
208        IF (useAIM) CALL PACKAGES_ERROR_MSG('AIM',' ',myThid)        IF (useEBM) CALL PACKAGES_ERROR_MSG('EBM',' ',myThid)
209  #endif  #endif
210    
211  #ifndef ALLOW_LAND  #ifndef ALLOW_CHEAPAML
212        IF (useLand) CALL PACKAGES_ERROR_MSG('LAND',' ',myThid)        IF (useCheapAML) CALL PACKAGES_ERROR_MSG('CheapAML',' ',myThid)
213  #endif  #endif
214    
215  #ifndef ALLOW_PTRACERS  #ifndef ALLOW_FLT
216        IF (usePTRACERS) CALL PACKAGES_ERROR_MSG('PTRACERS',' ',myThid)        IF (useFLT) CALL PACKAGES_ERROR_MSG('FLT',' ',myThid)
217  #endif  #endif
218    
219  #ifndef ALLOW_MATRIX  #ifdef ALLOW_PTRACERS
220        IF (useMATRIX) CALL PACKAGES_ERROR_MSG('MATRIX',' ',myThid)        IF (usePTRACERS) CALL PTRACERS_CHECK( myThid )
221    #else
222          IF (usePTRACERS) CALL PACKAGES_ERROR_MSG('PTRACERS',' ',myThid)
223  #endif  #endif
224    
225  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
# Line 202  C---  Continue with standard packages (w Line 228  C---  Continue with standard packages (w
228        IF (useGCHEM) CALL PACKAGES_ERROR_MSG('GCHEM',' ',myThid)        IF (useGCHEM) CALL PACKAGES_ERROR_MSG('GCHEM',' ',myThid)
229  #endif  #endif
230    
231  #ifndef ALLOW_OFFLINE  #ifndef ALLOW_RBCS
232        IF (useOffLine) CALL PACKAGES_ERROR_MSG('OffLine',' ',myThid)        IF (useRBCS) CALL PACKAGES_ERROR_MSG('RBCS',' ',myThid)
 #endif  
   
 #ifndef ALLOW_SHAP_FILT  
       IF (useSHAP_FILT)  
      &   CALL PACKAGES_ERROR_MSG( 'SHAP_FILT', ' ', myThid )  
233  #endif  #endif
234    
235  #ifndef ALLOW_ZONAL_FILT  #ifdef ALLOW_OFFLINE
236        IF (useZONAL_FILT)        IF (useOffLine) CALL OFFLINE_CHECK( myThid )
237       &   CALL PACKAGES_ERROR_MSG( 'ZONAL_FILT', ' ', myThid )  #else
238          IF (useOffLine) CALL PACKAGES_ERROR_MSG('OffLine',' ',myThid)
239  #endif  #endif
240    
241  #ifndef ALLOW_FLT  #ifndef ALLOW_MATRIX
242        IF (useFLT) CALL PACKAGES_ERROR_MSG('FLT',' ',myThid)        IF (useMATRIX) CALL PACKAGES_ERROR_MSG('MATRIX',' ',myThid)
243  #endif  #endif
244    
245  #ifdef ALLOW_SBO  #ifndef ALLOW_FRAZIL
246        IF (useSBO) CALL SBO_CHECK( myThid )        IF (useFRAZIL) CALL PACKAGES_ERROR_MSG('FRAZIL',' ',myThid)
 #else  
       IF (useSBO) CALL PACKAGES_ERROR_MSG('SBO',' ',myThid)  
247  #endif  #endif
248    
249  #ifdef ALLOW_SEAICE  #ifdef ALLOW_SEAICE
# Line 232  C---  Continue with standard packages (w Line 252  C---  Continue with standard packages (w
252        IF (useSEAICE) CALL PACKAGES_ERROR_MSG('SEAICE',' ',myThid)        IF (useSEAICE) CALL PACKAGES_ERROR_MSG('SEAICE',' ',myThid)
253  #endif  #endif
254    
255    #ifdef ALLOW_SALT_PLUME
256          IF (useSALT_PLUME)CALL SALT_PLUME_CHECK( myThid )
257    #else
258          IF (useSALT_PLUME)CALL PACKAGES_ERROR_MSG('SALT_PLUME',' ',myThid)
259    #endif
260    
261  #ifdef ALLOW_SHELFICE  #ifdef ALLOW_SHELFICE
262        IF (useShelfIce) CALL SHELFICE_CHECK( myThid )        IF (useShelfIce) CALL SHELFICE_CHECK( myThid )
263  #else  #else
264        IF (useShelfIce) CALL PACKAGES_ERROR_MSG('ShelfIce',' ',myThid)        IF (useShelfIce) CALL PACKAGES_ERROR_MSG('ShelfIce',' ',myThid)
265  #endif  #endif
266    
267    #ifdef ALLOW_STREAMICE
268          IF (useStreamIce) CALL STREAMICE_CHECK( myThid )
269    #else
270          IF (useStreamIce) CALL PACKAGES_ERROR_MSG('StreamIce',' ',myThid)
271    #endif
272    
273    #ifdef ALLOW_ICEFRONT
274          IF (useICEFRONT) CALL ICEFRONT_CHECK( myThid )
275    #else
276          IF (useICEFRONT) CALL PACKAGES_ERROR_MSG('ICEFRONT',' ',myThid)
277    #endif
278    
279    #ifdef ALLOW_THSICE
280          IF (useThSIce) CALL THSICE_CHECK( myThid )
281    #else
282          IF (useThSIce) CALL PACKAGES_ERROR_MSG('ThSIce',' ',myThid)
283    #endif
284    
285    #ifndef ALLOW_LAND
286          IF (useLand) CALL PACKAGES_ERROR_MSG('Land',' ',myThid)
287    #endif
288    
289    #ifndef ALLOW_ATM2D
290          IF (useATM2D) CALL PACKAGES_ERROR_MSG('ATM2D',' ',myThid)
291    #endif
292    
293    #ifndef ALLOW_AIM
294          IF (useAIM) CALL PACKAGES_ERROR_MSG('AIM',' ',myThid)
295    #endif
296    
297    #ifdef ALLOW_ATM_PHYS
298          IF (useAtm_Phys) CALL ATM_PHYS_CHECK( myThid )
299    #else
300          IF (useAtm_Phys) CALL PACKAGES_ERROR_MSG('Atm_Phys',' ',myThid)
301    #endif
302    
303    #ifndef ALLOW_FIZHI
304          IF (useFizhi) CALL PACKAGES_ERROR_MSG('Fizhi',' ',myThid)
305    #endif
306    
307    #ifndef ALLOW_GRIDALT
308          IF (useGridAlt) CALL PACKAGES_ERROR_MSG('GridAlt',' ',myThid)
309    #endif
310    
311  #ifdef ALLOW_AUTODIFF  #ifdef ALLOW_AUTODIFF
312        CALL AUTODIFF_CHECK( myThid )        CALL AUTODIFF_CHECK( myThid )
313  #endif  #endif
# Line 254  C---  Continue with standard packages (w Line 324  C---  Continue with standard packages (w
324        IF (useGRDCHK) CALL GRDCHK_CHECK( myThid )        IF (useGRDCHK) CALL GRDCHK_CHECK( myThid )
325  #endif  #endif
326    
327    #ifndef ALLOW_SMOOTH
328          IF (useSMOOTH) CALL PACKAGES_ERROR_MSG('SMOOTH',' ',myThid)
329    #endif
330    
331    #ifndef ALLOW_PROFILES
332          IF (usePROFILES) CALL PACKAGES_ERROR_MSG('PROFILES',' ',myThid)
333    #endif
334    
335    #ifdef ALLOW_SBO
336          IF (useSBO) CALL SBO_CHECK( myThid )
337    #else
338          IF (useSBO) CALL PACKAGES_ERROR_MSG('SBO',' ',myThid)
339    #endif
340    
341    #ifdef ALLOW_ECCO
342          CALL ECCO_CHECK( myThid )
343    #endif
344    
345  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
346        IF (useDiagnostics) CALL DIAGNOSTICS_CHECK( myThid )        IF (useDiagnostics) CALL DIAGNOSTICS_CHECK( myThid )
347  #else  #else
# Line 267  C---  Continue with standard packages (w Line 355  C---  Continue with standard packages (w
355        IF (useREGRID) CALL PACKAGES_ERROR_MSG('REGRID',' ',myThid)        IF (useREGRID) CALL PACKAGES_ERROR_MSG('REGRID',' ',myThid)
356  #endif  #endif
357    
358    #ifdef ALLOW_LAYERS
359          IF ( useLayers ) CALL LAYERS_CHECK( myThid )
360    #else
361          IF ( useLayers ) CALL PACKAGES_ERROR_MSG('LAYERS',' ',myThid)
362    #endif /* ALLOW_LAYERS */
363    
364    #ifdef ALLOW_NEST_CHILD
365          IF (useNEST_CHILD) CALL NEST_CHILD_CHECK( myThid )
366    #else
367          IF (useNEST_CHILD) CALL PACKAGES_ERROR_MSG(
368         & 'NEST_CHILD',' ',myThid)
369    #endif
370    
371    #ifdef ALLOW_NEST_PARENT
372          IF (useNEST_PARENT) CALL NEST_PARENT_CHECK( myThid )
373    #else
374          IF (useNEST_PARENT) CALL PACKAGES_ERROR_MSG(
375         & 'NEST_PARENT',' ',myThid)
376    #endif
377    
378    #ifdef ALLOW_OASIS
379          IF (useOASIS) CALL OASIS_CHECK( myThid )
380    #else
381          IF (useOASIS) CALL PACKAGES_ERROR_MSG('OASIS',' ',myThid)
382    #endif
383    
384    #ifdef ALLOW_RUNCLOCK
385          IF (useRunClock) CALL RUNCLOCK_CHECK( myThid )
386    #else
387          IF (useRunClock) CALL PACKAGES_ERROR_MSG('RunClock',' ',myThid)
388    #endif
389    
390    #ifndef ALLOW_EMBED_FILES
391          IF (useEMBED_FILES) CALL PACKAGES_ERROR_MSG(
392         &                                  'EMBED_FILES',' ',myThid)
393    #endif
394    
395  #ifdef ALLOW_MYPACKAGE  #ifdef ALLOW_MYPACKAGE
396        IF (useMYPACKAGE) CALL MYPACKAGE_CHECK( myThid )        IF (useMYPACKAGE) CALL MYPACKAGE_CHECK( myThid )
397  #else  #else
398        IF (useMYPACKAGE) CALL PACKAGES_ERROR_MSG('MYPACKAGE',' ',myThid)        IF (useMYPACKAGE) CALL PACKAGES_ERROR_MSG('MYPACKAGE',' ',myThid)
399  #endif  #endif
400    
401  #ifdef ALLOW_SALT_PLUME  #ifdef ALLOW_GENERIC_ADVDIFF
402        IF (useSALT_PLUME)CALL SALT_PLUME_CHECK( myThid )  C-    Check generic AdvDiff setting and related overlap minimum size:
403  #else  C     for this reason, called after other ${pkg}_check S/R
404        IF (useSALT_PLUME)CALL PACKAGES_ERROR_MSG('SALT_PLUME',' ',myThid)        IF (useGAD) CALL GAD_CHECK( myThid )
405  #endif  #endif
406    
407  C---  Exclusive packages (which cannot be used together):  C---  Exclusive packages (which cannot be used together):
# Line 287  C---  Exclusive packages (which cannot b Line 412  C---  Exclusive packages (which cannot b
412          WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',          WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',
413       &  ' but cannot be used together => need to select only one.'       &  ' but cannot be used together => need to select only one.'
414          CALL PRINT_ERROR( msgBuf , myThid )          CALL PRINT_ERROR( msgBuf , myThid )
415            CALL ALL_PROC_DIE( myThid )
416            STOP 'ABNORMAL END: S/R PACKAGES_CHECK'
417          ENDIF
418    
419    C---  Exclusive packages (which cannot be used together):
420          IF ( useDOWN_SLOPE .AND. useBBL ) THEN
421            WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',
422         &  'both useDOWN_SLOPE and useBBL are set'
423            CALL PRINT_ERROR( msgBuf , myThid )
424            WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',
425         &  ' but cannot be used together => need to select only one.'
426            CALL PRINT_ERROR( msgBuf , myThid )
427            CALL ALL_PROC_DIE( myThid )
428          STOP 'ABNORMAL END: S/R PACKAGES_CHECK'          STOP 'ABNORMAL END: S/R PACKAGES_CHECK'
429        ENDIF        ENDIF
430    
Legend:
Removed from v.1.42  
changed lines
  Added in v.1.64
  ViewVC Help
Powered by ViewVC 1.1.22