/[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.26 by heimbach, Sat Dec 4 17:57:06 2004 UTC revision 1.43 by jmc, Mon Apr 7 21:15:06 2008 UTC
# Line 10  C     !INTERFACE: Line 10  C     !INTERFACE:
10        SUBROUTINE PACKAGES_CHECK( myThid )        SUBROUTINE PACKAGES_CHECK( myThid )
11  C     !DESCRIPTION: \bv  C     !DESCRIPTION: \bv
12  C     *==========================================================*  C     *==========================================================*
13  C     | SUBROUTINE PACKAGES_CHECK                                  C     | SUBROUTINE PACKAGES_CHECK
14  C     | o Check runtime activated packages have been built in.      C     | o Check runtime activated packages have been built in.
15  C     *==========================================================*  C     *==========================================================*
16  C     | All packages can be selected/deselected at build time      C     | All packages can be selected/deselected at build time
17  C     | ( when code is compiled ) and activated/deactivated at      C     | ( when code is compiled ) and activated/deactivated at
18  C     | runtime. This routine does a quick check to trap packages  C     | runtime. This routine does a quick check to trap packages
19  C     | that were activated at runtime but that were not compiled  C     | that were activated at runtime but that were not compiled
20  C     | in at build time.                                          C     | in at build time.
21  C     *==========================================================*  C     *==========================================================*
22  C     \ev  C     \ev
23    
# 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 meesage buffer
39        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
40  CEOP  CEOP
41    
42          WRITE(msgBuf,'(A)')
43         &'== Packages configuration : Check & print summary =='
44          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
45         &                    SQUEEZE_RIGHT, myThid )
46          WRITE(msgBuf,'(A)') ' '
47          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
48         &                    SQUEEZE_RIGHT, myThid )
49    
50    C---  Start with non-standard packages (without or with non standard flag)
51    
52    #ifndef ALLOW_MNC
53          IF (useMNC) THEN
54            WRITE(msgBuf,'(2A)') '***WARNING***',
55         &   ' PACKAGES_CHECK: useMNC is TRUE'
56            CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,
57         &       SQUEEZE_RIGHT , myThid)
58            WRITE(msgBuf,'(2A)') '***WARNING***',
59         &   ' but pkg/mnc has not been compiled (#undef ALLOW_MNC)'
60            CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,
61         &       SQUEEZE_RIGHT , myThid)
62          ENDIF
63    #endif
64    
65    #ifndef ALLOW_MOM_VECINV
66          IF ( momStepping .AND. vectorInvariantMomentum ) THEN
67            WRITE(msgBuf,'(2A)')
68         &   'PACKAGES_CHECK: cannot step forward Momentum',
69         &   ' without pkg/mom_vecinv'
70            CALL PRINT_ERROR( msgBuf , myThid )
71            WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',
72         &   'Re-compile with pkg "mom_vecinv" in packages.conf'
73            CALL PRINT_ERROR( msgBuf , myThid )
74            STOP 'ABNORMAL END: S/R PACKAGES_CHECK'
75          ENDIF
76    #endif
77    #ifndef ALLOW_MOM_FLUXFORM
78          IF ( momStepping .AND. .NOT.vectorInvariantMomentum ) THEN
79            WRITE(msgBuf,'(2A)')
80         &   'PACKAGES_CHECK: cannot step forward Momentum',
81         &   ' without pkg/mom_fluxform'
82            CALL PRINT_ERROR( msgBuf , myThid )
83            WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',
84         &   'Re-compile with pkg "mom_fluxform" in packages.conf'
85            CALL PRINT_ERROR( msgBuf , myThid )
86            STOP 'ABNORMAL END: S/R PACKAGES_CHECK'
87          ENDIF
88    #endif
89    
90    #ifdef ALLOW_GENERIC_ADVDIFF
91          IF (useGAD) CALL GAD_CHECK( myThid )
92    #else
93          IF ( tempStepping .OR. saltStepping ) THEN
94            WRITE(msgBuf,'(2A)')
95         &  'PACKAGES_CHECK: cannot step forward Temp or Salt',
96         &  ' without pkg/generic_advdiff'
97            CALL PRINT_ERROR( msgBuf , myThid )
98            WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',
99         &  'Re-compile with pkg "generic_advdiff" in packages.conf'
100            CALL PRINT_ERROR( msgBuf , myThid )
101            STOP 'ABNORMAL END: S/R PACKAGES_CHECK'
102          ENDIF
103    #endif
104    
105    #ifndef ALLOW_MONITOR
106    C     If monitorFreq is finite, make sure the pkg/monitor is being compiled
107          IF (monitorFreq.NE.0.) CALL PACKAGES_ERROR_MSG(
108         &                  'MONITOR', 'monitorFreq <> 0', myThid )
109    #endif
110    
111    #ifndef ALLOW_TIMEAVE
112    C     If taveFreq is finite, make sure the pkg/timeave is being compiled
113          IF (taveFreq.NE.0.) CALL PACKAGES_ERROR_MSG(
114         &                  'TIMEAVE', 'taveFreq <> 0', myThid )
115    #endif
116    
117    #ifndef ALLOW_CD_CODE
118          IF (useCDscheme) CALL PACKAGES_ERROR_MSG(
119         &                  'CD_CODE', 'useCDscheme=.T.', myThid )
120    #endif
121    
122    C---  Continue with standard packages (with standard usePKG flag)
123    
124    #ifdef ALLOW_RUNCLOCK
125          IF (useRunClock) CALL RUNCLOCK_CHECK( myThid )
126    #else
127          IF (useRunClock) CALL PACKAGES_ERROR_MSG('RunClock',' ',myThid)
128    #endif
129    
130  #ifdef ALLOW_KPP  #ifdef ALLOW_KPP
131        IF (useKPP) CALL KPP_CHECK( myThid )        IF (useKPP) CALL KPP_CHECK( myThid )
132  #else  #else
133        IF (useKPP) CALL PACKAGES_CHECK_ERROR('KPP', myThid)        IF (useKPP) CALL PACKAGES_ERROR_MSG('KPP',' ',myThid)
134  #endif  #endif
135    
136  #ifdef ALLOW_PP81  #ifdef ALLOW_PP81
137        IF (usePP81) CALL PP81_CHECK( myThid )        IF (usePP81) CALL PP81_CHECK( myThid )
138  #else  #else
139        IF (usePP81) CALL PACKAGES_CHECK_ERROR('PP81', myThid)        IF (usePP81) CALL PACKAGES_ERROR_MSG('PP81',' ',myThid)
140  #endif  #endif
141    
142  #ifdef ALLOW_MY82  #ifdef ALLOW_MY82
143        IF (useMY82) CALL MY82_CHECK( myThid )        IF (useMY82) CALL MY82_CHECK( myThid )
144  #else  #else
145        IF (useMY82) CALL PACKAGES_CHECK_ERROR('MY82', myThid)        IF (useMY82) CALL PACKAGES_ERROR_MSG('MY82',' ',myThid)
146  #endif  #endif
147    
148  #ifdef ALLOW_GGL90  #ifdef ALLOW_GGL90
149        IF (useGGL90) CALL GGL90_CHECK( myThid )        IF (useGGL90) CALL GGL90_CHECK( myThid )
150  #else  #else
151        IF (useGGL90) CALL PACKAGES_CHECK_ERROR('GGL90', myThid)        IF (useGGL90) CALL PACKAGES_ERROR_MSG('GGL90',' ',myThid)
152  #endif  #endif
153    
154  #ifdef ALLOW_OPPS  #ifdef ALLOW_OPPS
155        IF (useOPPS) CALL OPPS_CHECK( myThid )        IF (useOPPS) CALL OPPS_CHECK( myThid )
156  #else  #else
157        IF (useOPPS) CALL PACKAGES_CHECK_ERROR('OPPS', myThid)        IF (useOPPS) CALL PACKAGES_ERROR_MSG('OPPS',' ',myThid)
158  #endif  #endif
159    
160  #ifdef ALLOW_GMREDI  #ifdef ALLOW_GMREDI
161        IF (useGMRedi) CALL GMREDI_CHECK( myThid )        IF (useGMRedi) CALL GMREDI_CHECK( myThid )
162  #else  #else
163        IF (useGMRedi) CALL PACKAGES_CHECK_ERROR('GMREDI', myThid)        IF (useGMRedi) CALL PACKAGES_ERROR_MSG('GMRedi',' ',myThid)
164  #endif  #endif
165    
166  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
167        IF (useOBCS) CALL OBCS_CHECK( myThid )        IF (useOBCS) CALL OBCS_CHECK( myThid )
168  #else  #else
169        IF (useOBCS) CALL PACKAGES_CHECK_ERROR('OBCS', myThid)        IF (useOBCS) CALL PACKAGES_ERROR_MSG('OBCS',' ',myThid)
170    #endif
171    
172    #ifndef ALLOW_EXF
173          IF (useEXF) CALL PACKAGES_ERROR_MSG('EXF',' ',myThid)
174  #endif  #endif
175    
176  #ifndef ALLOW_BULK_FORCE  #ifndef ALLOW_BULK_FORCE
177        IF (useBulkForce) CALL PACKAGES_CHECK_ERROR('BULK?FORCE',myThid)        IF (useBulkForce) CALL PACKAGES_ERROR_MSG(
178         &                  'BULK_FORCE', 'useBulkForce=.T.', myThid )
179  #endif  #endif
180    
181  #ifndef ALLOW_THSICE  #ifdef ALLOW_THSICE
182        IF (useThSIce) CALL PACKAGES_CHECK_ERROR('THSICE', myThid)        IF (useThSIce) CALL THSICE_CHECK( myThid )
183    #else
184          IF (useThSIce) CALL PACKAGES_ERROR_MSG('ThSIce',' ',myThid)
185    #endif
186    
187    #ifndef ALLOW_ATM2D
188          IF (useATM2D) CALL PACKAGES_ERROR_MSG('ATM2D',' ',myThid)
189  #endif  #endif
190    
191  #ifndef ALLOW_AIM  #ifndef ALLOW_AIM
192        IF (useAIM) CALL PACKAGES_CHECK_ERROR('AIM', myThid)        IF (useAIM) CALL PACKAGES_ERROR_MSG('AIM',' ',myThid)
193  #endif  #endif
194    
195  #ifndef ALLOW_LAND  #ifndef ALLOW_LAND
196        IF (useLand) CALL PACKAGES_CHECK_ERROR('LAND', myThid)        IF (useLand) CALL PACKAGES_ERROR_MSG('LAND',' ',myThid)
197  #endif  #endif
198    
199  #ifndef ALLOW_PTRACERS  #ifndef ALLOW_PTRACERS
200        IF (usePTRACERS) CALL PACKAGES_CHECK_ERROR('PTRACERS', myThid)        IF (usePTRACERS) CALL PACKAGES_ERROR_MSG('PTRACERS',' ',myThid)
201    #endif
202    
203    #ifndef ALLOW_MATRIX
204          IF (useMATRIX) CALL PACKAGES_ERROR_MSG('MATRIX',' ',myThid)
205  #endif  #endif
206    
207  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
208        IF (useGCHEM) CALL GCHEM_CHECK( myThid )        IF (useGCHEM) CALL GCHEM_CHECK( myThid )
209  #else  #else
210        IF (useGCHEM) CALL PACKAGES_CHECK_ERROR('GCHEM', myThid)        IF (useGCHEM) CALL PACKAGES_ERROR_MSG('GCHEM',' ',myThid)
211    #endif
212    
213    #ifndef ALLOW_OFFLINE
214          IF (useOffLine) CALL PACKAGES_ERROR_MSG('OffLine',' ',myThid)
215  #endif  #endif
216    
217  #ifndef ALLOW_SHAP_FILT  #ifndef ALLOW_SHAP_FILT
218        IF (useSHAP_FILT) CALL PACKAGES_CHECK_ERROR('SHAP_FILT', myThid)        IF (useSHAP_FILT)
219         &   CALL PACKAGES_ERROR_MSG( 'SHAP_FILT', ' ', myThid )
220  #endif  #endif
221    
222  #ifndef ALLOW_ZONAL_FILT  #ifndef ALLOW_ZONAL_FILT
223        IF (useZONAL_FILT) CALL PACKAGES_CHECK_ERROR('ZONAL_FILT',myThid)        IF (useZONAL_FILT)
224         &   CALL PACKAGES_ERROR_MSG( 'ZONAL_FILT', ' ', myThid )
225  #endif  #endif
226    
227  #ifndef ALLOW_FLT  #ifndef ALLOW_FLT
228        IF (useFLT) CALL PACKAGES_CHECK_ERROR('FLT', myThid)        IF (useFLT) CALL PACKAGES_ERROR_MSG('FLT',' ',myThid)
229  #endif  #endif
230    
231  #ifdef ALLOW_SBO  #ifdef ALLOW_SBO
232        IF (useSBO) CALL SBO_CHECK( myThid )        IF (useSBO) CALL SBO_CHECK( myThid )
233  #else  #else
234        IF (useSBO) CALL PACKAGES_CHECK_ERROR('SBO', myThid)        IF (useSBO) CALL PACKAGES_ERROR_MSG('SBO',' ',myThid)
235  #endif  #endif
236    
237  #ifdef ALLOW_SEAICE  #ifdef ALLOW_SEAICE
238        IF (useSEAICE) CALL SEAICE_CHECK( myThid )        IF (useSEAICE) CALL SEAICE_CHECK( myThid )
239  #else  #else
240        IF (useSEAICE) CALL PACKAGES_CHECK_ERROR('SEAICE', myThid)        IF (useSEAICE) CALL PACKAGES_ERROR_MSG('SEAICE',' ',myThid)
241  #endif  #endif
242    
243  #ifndef ALLOW_CD_CODE  #ifdef ALLOW_SHELFICE
244        IF (useCDscheme) CALL PACKAGES_CHECK_ERROR('CD_CODE', myThid)        IF (useShelfIce) CALL SHELFICE_CHECK( myThid )
245    #else
246          IF (useShelfIce) CALL PACKAGES_ERROR_MSG('ShelfIce',' ',myThid)
247  #endif  #endif
248    
249  #ifdef ALLOW_AUTODIFF  #ifdef ALLOW_AUTODIFF
# Line 147  CEOP Line 258  CEOP
258        CALL COST_CHECK( myThid )        CALL COST_CHECK( myThid )
259  #endif  #endif
260    
261    #ifdef ALLOW_GRDCHK
262          IF (useGRDCHK) CALL GRDCHK_CHECK( myThid )
263    #endif
264    
265    #ifdef ALLOW_DIAGNOSTICS
266          IF (useDiagnostics) CALL DIAGNOSTICS_CHECK( myThid )
267    #else
268          IF (useDiagnostics)
269         &   CALL PACKAGES_ERROR_MSG( 'Diagnostics', ' ', myThid )
270    #endif
271    
272    #ifdef ALLOW_REGRID
273          IF (useREGRID) CALL REGRID_CHECK( myThid )
274    #else
275          IF (useREGRID) CALL PACKAGES_ERROR_MSG('REGRID',' ',myThid)
276    #endif
277    
278    #ifdef ALLOW_MYPACKAGE
279          IF (useMYPACKAGE) CALL MYPACKAGE_CHECK( myThid )
280    #else
281          IF (useMYPACKAGE) CALL PACKAGES_ERROR_MSG('MYPACKAGE',' ',myThid)
282    #endif
283    
284    #ifdef ALLOW_SALT_PLUME
285          IF (useSALT_PLUME)CALL SALT_PLUME_CHECK( myThid )
286    #else
287          IF (useSALT_PLUME)CALL PACKAGES_ERROR_MSG('SALT_PLUME',' ',myThid)
288    #endif
289    
290    C---  Exclusive packages (which cannot be used together):
291          IF ( useEXF .AND. useBulkForce ) THEN
292            WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',
293         &  'both useEXF and useBulkForce are set'
294            CALL PRINT_ERROR( msgBuf , myThid )
295            WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',
296         &  ' but cannot be used together => need to select only one.'
297            CALL PRINT_ERROR( msgBuf , myThid )
298            STOP 'ABNORMAL END: S/R PACKAGES_CHECK'
299          ENDIF
300    
301        RETURN        RETURN
302        END        END
Legend:
Removed from v.1.26  
changed lines
  Added in v.1.43
  ViewVC Help
Powered by ViewVC 1.1.22