/[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.70 by jmc, Sun Jan 10 18:14:47 2016 UTC
# Line 21  C     | in at build time. Line 21  C     | in at build time.
21  C     *==========================================================*  C     *==========================================================*
22  C     \ev  C     \ev
23    
24    C     !CALLING SEQUENCE:
25    C     PACKAGES_CHECK
26    C       |
27    C       |-- OBCS_CHECK
28    C       |
29    C       |-- OPPS_CHECK
30    C       |
31    C       |-- PP81_CHECK
32    C       |
33    C       |-- KL10_CHECK
34    C       |
35    C       |-- MY82_CHECK
36    C       |
37    C       |-- GGL90_CHECK
38    C       |
39    C       |-- KPP_CHECK
40    C       |
41    C       |-- GMREDI_CHECK
42    C       |
43    C       |-- BBL_CHECK
44    C       |
45    C       |-- EXF_CHECK
46    C       |
47    C       |-- PTRACERS_CHECK
48    C       |
49    C       |-- GCHEM_CHECK
50    C       |
51    C       |-- OFFLINE_CHECK
52    C       |
53    C       |-- SEAICE_CHECK
54    C       |
55    C       |-- SHELFICE_CHECK
56    C       |
57    C       |-- STREAMICE_CHECK
58    C       |
59    C       |-- ICEFRONT_CHECK
60    C       |
61    C       |-- THSICE_CHECK
62    C       |
63    C       |-- LAND_CHECK
64    C       |
65    C       |-- ATM_PHYS_CHECK
66    C       |
67    C       |-- AUTODIFF_CHECK
68    C       |
69    C       |-- CTRL_CHECK
70    C       |
71    C       |-- COST_CHECK
72    C       |
73    C       |-- GRDCHK_CHECK
74    C       |
75    C       |-- SBO_CHECK
76    C       |
77    C       |-- ECCO_CHECK
78    C       |
79    C       |-- DIAGNOSTICS_CHECK
80    C       |
81    C       |-- REGRID_CHECK
82    C       |
83    C       |-- LAYERS_CHECK
84    C       |
85    C       |-- NEST_CHILD_CHECK
86    C       |
87    C       |-- NEST_PARENT_CHECK
88    C       |
89    C       |-- OASIS_CHECK
90    C       |
91    C       |-- RUNCLOCK_CHECK
92    C       |
93    C       |-- MYPACKAGE_CHECK
94    C       |
95    C       |-- GAD_CHECK
96    
97  C     !USES:  C     !USES:
98        IMPLICIT NONE        IMPLICIT NONE
99  C     === Global variables ===  C     === Global variables ===
# Line 126  C     If taveFreq is finite, make sure t Line 199  C     If taveFreq is finite, make sure t
199    
200  C---  Continue with standard packages (with standard usePKG flag)  C---  Continue with standard packages (with standard usePKG flag)
201    
202  #ifdef ALLOW_RUNCLOCK  #ifdef ALLOW_OBCS
203        IF (useRunClock) CALL RUNCLOCK_CHECK( myThid )        IF (useOBCS) CALL OBCS_CHECK( myThid )
204  #else  #else
205        IF (useRunClock) CALL PACKAGES_ERROR_MSG('RunClock',' ',myThid)        IF (useOBCS) CALL PACKAGES_ERROR_MSG('OBCS',' ',myThid)
206  #endif  #endif
207    
208  #ifdef ALLOW_KPP  #ifndef ALLOW_SHAP_FILT
209        IF (useKPP) CALL KPP_CHECK( myThid )        IF (useSHAP_FILT)
210         &   CALL PACKAGES_ERROR_MSG( 'SHAP_FILT', ' ', myThid )
211    #endif
212    
213    #ifndef ALLOW_ZONAL_FILT
214          IF (useZONAL_FILT)
215         &   CALL PACKAGES_ERROR_MSG( 'ZONAL_FILT', ' ', myThid )
216    #endif
217    
218    #ifdef ALLOW_OPPS
219          IF (useOPPS) CALL OPPS_CHECK( myThid )
220  #else  #else
221        IF (useKPP) CALL PACKAGES_ERROR_MSG('KPP',' ',myThid)        IF (useOPPS) CALL PACKAGES_ERROR_MSG('OPPS',' ',myThid)
222  #endif  #endif
223    
224  #ifdef ALLOW_PP81  #ifdef ALLOW_PP81
# Line 144  C---  Continue with standard packages (w Line 227  C---  Continue with standard packages (w
227        IF (usePP81) CALL PACKAGES_ERROR_MSG('PP81',' ',myThid)        IF (usePP81) CALL PACKAGES_ERROR_MSG('PP81',' ',myThid)
228  #endif  #endif
229    
230    #ifdef ALLOW_KL10
231          IF (useKL10) CALL KL10_CHECK( myThid )
232    #else
233          IF (useKL10) CALL PACKAGES_ERROR_MSG('KL10',' ',myThid)
234    #endif
235    
236  #ifdef ALLOW_MY82  #ifdef ALLOW_MY82
237        IF (useMY82) CALL MY82_CHECK( myThid )        IF (useMY82) CALL MY82_CHECK( myThid )
238  #else  #else
# Line 156  C---  Continue with standard packages (w Line 245  C---  Continue with standard packages (w
245        IF (useGGL90) CALL PACKAGES_ERROR_MSG('GGL90',' ',myThid)        IF (useGGL90) CALL PACKAGES_ERROR_MSG('GGL90',' ',myThid)
246  #endif  #endif
247    
248  #ifdef ALLOW_OPPS  #ifdef ALLOW_KPP
249        IF (useOPPS) CALL OPPS_CHECK( myThid )        IF (useKPP) CALL KPP_CHECK( myThid )
250  #else  #else
251        IF (useOPPS) CALL PACKAGES_ERROR_MSG('OPPS',' ',myThid)        IF (useKPP) CALL PACKAGES_ERROR_MSG('KPP',' ',myThid)
252  #endif  #endif
253    
254  #ifdef ALLOW_GMREDI  #ifdef ALLOW_GMREDI
# Line 168  C---  Continue with standard packages (w Line 257  C---  Continue with standard packages (w
257        IF (useGMRedi) CALL PACKAGES_ERROR_MSG('GMRedi',' ',myThid)        IF (useGMRedi) CALL PACKAGES_ERROR_MSG('GMRedi',' ',myThid)
258  #endif  #endif
259    
 #ifndef ALLOW_DOWN_SLOPE  
       IF (useDOWN_SLOPE)  
      &            CALL PACKAGES_ERROR_MSG('DOWN_SLOPE',' ',myThid)  
 #endif  
   
260  #ifdef ALLOW_BBL  #ifdef ALLOW_BBL
261        IF (useBBL) CALL BBL_CHECK( myThid )        IF (useBBL) CALL BBL_CHECK( myThid )
262  #else  #else
263        IF (useBBL) CALL PACKAGES_ERROR_MSG('BBL',' ',myThid)        IF (useBBL) CALL PACKAGES_ERROR_MSG('BBL',' ',myThid)
264  #endif  #endif
265    
266  #ifdef ALLOW_OBCS  #ifndef ALLOW_DOWN_SLOPE
267        IF (useOBCS) CALL OBCS_CHECK( myThid )        IF (useDOWN_SLOPE)
268  #else       &            CALL PACKAGES_ERROR_MSG('DOWN_SLOPE',' ',myThid)
       IF (useOBCS) CALL PACKAGES_ERROR_MSG('OBCS',' ',myThid)  
269  #endif  #endif
270    
271  #ifndef ALLOW_CAL  #ifndef ALLOW_CAL
# Line 208  C---  Continue with standard packages (w Line 291  C---  Continue with standard packages (w
291        IF (useCheapAML) CALL PACKAGES_ERROR_MSG('CheapAML',' ',myThid)        IF (useCheapAML) CALL PACKAGES_ERROR_MSG('CheapAML',' ',myThid)
292  #endif  #endif
293    
294  #ifndef ALLOW_FRAZIL  #ifndef ALLOW_FLT
295        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)  
296  #endif  #endif
297    
298  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
# Line 254  C---  Continue with standard packages (w Line 311  C---  Continue with standard packages (w
311        IF (useRBCS) CALL PACKAGES_ERROR_MSG('RBCS',' ',myThid)        IF (useRBCS) CALL PACKAGES_ERROR_MSG('RBCS',' ',myThid)
312  #endif  #endif
313    
314  #ifndef ALLOW_OFFLINE  #ifdef ALLOW_OFFLINE
315          IF (useOffLine) CALL OFFLINE_CHECK( myThid )
316    #else
317        IF (useOffLine) CALL PACKAGES_ERROR_MSG('OffLine',' ',myThid)        IF (useOffLine) CALL PACKAGES_ERROR_MSG('OffLine',' ',myThid)
318  #endif  #endif
319    
# Line 262  C---  Continue with standard packages (w Line 321  C---  Continue with standard packages (w
321        IF (useMATRIX) CALL PACKAGES_ERROR_MSG('MATRIX',' ',myThid)        IF (useMATRIX) CALL PACKAGES_ERROR_MSG('MATRIX',' ',myThid)
322  #endif  #endif
323    
324  #ifndef ALLOW_SHAP_FILT  #ifndef ALLOW_FRAZIL
325        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)  
326  #endif  #endif
327    
328  #ifdef ALLOW_SEAICE  #ifdef ALLOW_SEAICE
# Line 312  C---  Continue with standard packages (w Line 355  C---  Continue with standard packages (w
355        IF (useICEFRONT) CALL PACKAGES_ERROR_MSG('ICEFRONT',' ',myThid)        IF (useICEFRONT) CALL PACKAGES_ERROR_MSG('ICEFRONT',' ',myThid)
356  #endif  #endif
357    
358    #ifdef ALLOW_THSICE
359          IF (useThSIce) CALL THSICE_CHECK( myThid )
360    #else
361          IF (useThSIce) CALL PACKAGES_ERROR_MSG('ThSIce',' ',myThid)
362    #endif
363    
364    #ifdef ALLOW_LAND
365          IF (useLand) CALL LAND_CHECK( myThid )
366    #else
367          IF (useLand) CALL PACKAGES_ERROR_MSG('Land',' ',myThid)
368    #endif
369    
370    #ifndef ALLOW_ATM2D
371          IF (useATM2D) CALL PACKAGES_ERROR_MSG('ATM2D',' ',myThid)
372    #endif
373    
374    #ifndef ALLOW_AIM
375          IF (useAIM) CALL PACKAGES_ERROR_MSG('AIM',' ',myThid)
376    #endif
377    
378    #ifdef ALLOW_ATM_PHYS
379          IF (useAtm_Phys) CALL ATM_PHYS_CHECK( myThid )
380    #else
381          IF (useAtm_Phys) CALL PACKAGES_ERROR_MSG('Atm_Phys',' ',myThid)
382    #endif
383    
384    #ifndef ALLOW_FIZHI
385          IF (useFizhi) CALL PACKAGES_ERROR_MSG('Fizhi',' ',myThid)
386    #endif
387    
388    #ifndef ALLOW_GRIDALT
389          IF (useGridAlt) CALL PACKAGES_ERROR_MSG('GridAlt',' ',myThid)
390    #endif
391    
392  #ifdef ALLOW_AUTODIFF  #ifdef ALLOW_AUTODIFF
393        CALL AUTODIFF_CHECK( myThid )        IF (useAUTODIFF) CALL AUTODIFF_CHECK( myThid )
394  #endif  #endif
395    
396  #ifdef ALLOW_CTRL  #ifdef ALLOW_CTRL
397        CALL CTRL_CHECK( myThid )        IF (useCTRL) CALL CTRL_CHECK( myThid )
398  #endif  #endif
399    
400  #ifdef ALLOW_COST  #ifdef ALLOW_COST
# Line 325  C---  Continue with standard packages (w Line 402  C---  Continue with standard packages (w
402  #endif  #endif
403    
404  #ifdef ALLOW_GRDCHK  #ifdef ALLOW_GRDCHK
405        IF (useGRDCHK) CALL GRDCHK_CHECK( myThid )        IF (useGrdChk) CALL GRDCHK_CHECK( myThid )
406    #else
407          IF (useGrdChk) CALL PACKAGES_ERROR_MSG('GrdChk',' ',myThid)
408  #endif  #endif
409    
410  #ifndef ALLOW_SMOOTH  #ifndef ALLOW_SMOOTH
# Line 336  C---  Continue with standard packages (w Line 415  C---  Continue with standard packages (w
415        IF (usePROFILES) CALL PACKAGES_ERROR_MSG('PROFILES',' ',myThid)        IF (usePROFILES) CALL PACKAGES_ERROR_MSG('PROFILES',' ',myThid)
416  #endif  #endif
417    
418    #ifdef ALLOW_SBO
419          IF (useSBO) CALL SBO_CHECK( myThid )
420    #else
421          IF (useSBO) CALL PACKAGES_ERROR_MSG('SBO',' ',myThid)
422    #endif
423    
424    #ifdef ALLOW_ECCO
425          IF (useECCO) CALL ECCO_CHECK( myThid )
426    #endif
427    
428  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
429        IF (useDiagnostics) CALL DIAGNOSTICS_CHECK( myThid )        IF (useDiagnostics) CALL DIAGNOSTICS_CHECK( myThid )
430  #else  #else
# Line 375  C---  Continue with standard packages (w Line 464  C---  Continue with standard packages (w
464        IF (useOASIS) CALL PACKAGES_ERROR_MSG('OASIS',' ',myThid)        IF (useOASIS) CALL PACKAGES_ERROR_MSG('OASIS',' ',myThid)
465  #endif  #endif
466    
467  #ifdef ALLOW_ECCO  #ifdef ALLOW_RUNCLOCK
468        CALL ECCO_CHECK( myThid )        IF (useRunClock) CALL RUNCLOCK_CHECK( myThid )
469    #else
470          IF (useRunClock) CALL PACKAGES_ERROR_MSG('RunClock',' ',myThid)
471  #endif  #endif
472    
473  #ifndef ALLOW_EMBED_FILES  #ifndef ALLOW_EMBED_FILES
Legend:
Removed from v.1.61  
changed lines
  Added in v.1.70
  ViewVC Help
Powered by ViewVC 1.1.22