/[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.40 by heimbach, Mon Apr 16 22:44:29 2007 UTC revision 1.41 by jmc, Sat Apr 28 00:15:11 2007 UTC
# Line 59  C---  Start with non-standard packages ( Line 59  C---  Start with non-standard packages (
59          WRITE(msgBuf,'(2A)')          WRITE(msgBuf,'(2A)')
60       &   'PACKAGES_CHECK: cannot step forward Momentum',       &   'PACKAGES_CHECK: cannot step forward Momentum',
61       &   ' without pkg/mom_vecinv'       &   ' without pkg/mom_vecinv'
62          CALL PRINT_ERROR( msgBuf , 1)          CALL PRINT_ERROR( msgBuf , myThid )
63          WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',          WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',
64       &   'Re-compile with pkg "mom_vecinv" in packages.conf'       &   'Re-compile with pkg "mom_vecinv" in packages.conf'
65          CALL PRINT_ERROR( msgBuf , 1)          CALL PRINT_ERROR( msgBuf , myThid )
66          STOP 'ABNORMAL END: S/R PACKAGES_CHECK'          STOP 'ABNORMAL END: S/R PACKAGES_CHECK'
67        ENDIF        ENDIF
68  #endif  #endif
# Line 71  C---  Start with non-standard packages ( Line 71  C---  Start with non-standard packages (
71          WRITE(msgBuf,'(2A)')          WRITE(msgBuf,'(2A)')
72       &   'PACKAGES_CHECK: cannot step forward Momentum',       &   'PACKAGES_CHECK: cannot step forward Momentum',
73       &   ' without pkg/mom_fluxform'       &   ' without pkg/mom_fluxform'
74          CALL PRINT_ERROR( msgBuf , 1)          CALL PRINT_ERROR( msgBuf , myThid )
75          WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',          WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',
76       &   'Re-compile with pkg "mom_fluxform" in packages.conf'       &   'Re-compile with pkg "mom_fluxform" in packages.conf'
77          CALL PRINT_ERROR( msgBuf , 1)          CALL PRINT_ERROR( msgBuf , myThid )
78          STOP 'ABNORMAL END: S/R PACKAGES_CHECK'          STOP 'ABNORMAL END: S/R PACKAGES_CHECK'
79        ENDIF        ENDIF
80  #endif  #endif
# Line 86  C---  Start with non-standard packages ( Line 86  C---  Start with non-standard packages (
86          WRITE(msgBuf,'(2A)')          WRITE(msgBuf,'(2A)')
87       &  'PACKAGES_CHECK: cannot step forward Temp or Salt',       &  'PACKAGES_CHECK: cannot step forward Temp or Salt',
88       &  ' without pkg/generic_advdiff'       &  ' without pkg/generic_advdiff'
89          CALL PRINT_ERROR( msgBuf , 1)          CALL PRINT_ERROR( msgBuf , myThid )
90          WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',          WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',
91       &  'Re-compile with pkg "generic_advdiff" in packages.conf'       &  'Re-compile with pkg "generic_advdiff" in packages.conf'
92          CALL PRINT_ERROR( msgBuf , 1)          CALL PRINT_ERROR( msgBuf , myThid )
         STOP 'ABNORMAL END: S/R PACKAGES_CHECK'  
       ENDIF  
 #endif  
   
 #ifndef ALLOW_CD_CODE  
       IF (useCDscheme) THEN  
         WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',  
      &   'useCDscheme is TRUE but pkg/cd_code has not been compiled'  
         CALL PRINT_ERROR( msgBuf , myThid)  
93          STOP 'ABNORMAL END: S/R PACKAGES_CHECK'          STOP 'ABNORMAL END: S/R PACKAGES_CHECK'
94        ENDIF        ENDIF
95  #endif  #endif
96    
97  #ifndef ALLOW_MONITOR  #ifndef ALLOW_MONITOR
98  C     If monitorFreq is finite, make sure the pkg/monitor is being compiled  C     If monitorFreq is finite, make sure the pkg/monitor is being compiled
99        IF (monitorFreq.NE.0.) THEN        IF (monitorFreq.NE.0.) CALL PACKAGES_ERROR_MSG(
100          WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',       &                  'MONITOR', 'monitorFreq <> 0', myThid )
      &   'monitorFreq <> 0  but pkg/monitor has not been compiled'  
         CALL PRINT_ERROR( msgBuf , 1)  
         WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',  
      &   'Re-compile with pkg "monitor" in packages.conf'  
         CALL PRINT_ERROR( msgBuf , 1)  
         STOP 'ABNORMAL END: S/R PACKAGES_CHECK'  
       ENDIF  
101  #endif  #endif
102    
103  #ifndef ALLOW_TIMEAVE  #ifndef ALLOW_TIMEAVE
104  C     If taveFreq is finite, make sure the pkg/timeave is being compiled  C     If taveFreq is finite, make sure the pkg/timeave is being compiled
105        IF (taveFreq.NE.0.) THEN        IF (taveFreq.NE.0.) CALL PACKAGES_ERROR_MSG(
106          WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',       &                  'TIMEAVE', 'taveFreq <> 0', myThid )
107       &   'taveFreq <> 0  but pkg/timeave has been not compiled'  #endif
108          CALL PRINT_ERROR( msgBuf , 1)  
109          WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',  #ifndef ALLOW_CD_CODE
110       &   'Re-compile with pkg "timeave" in packages.conf'        IF (useCDscheme) CALL PACKAGES_ERROR_MSG(
111          CALL PRINT_ERROR( msgBuf , 1)       &                  'CD_CODE', 'useCDscheme=.T.', myThid )
         STOP 'ABNORMAL END: S/R PACKAGES_CHECK'  
       ENDIF  
112  #endif  #endif
113    
114  C---  Continue with standard packages (with standard usePKG flag)  C---  Continue with standard packages (with standard usePKG flag)
# Line 134  C---  Continue with standard packages (w Line 116  C---  Continue with standard packages (w
116  #ifdef ALLOW_RUNCLOCK  #ifdef ALLOW_RUNCLOCK
117        IF (useRunClock) CALL RUNCLOCK_CHECK( myThid )        IF (useRunClock) CALL RUNCLOCK_CHECK( myThid )
118  #else  #else
119        IF (useRunClock) CALL PACKAGES_CHECK_ERROR('RUNCLOCK', myThid)        IF (useRunClock) CALL PACKAGES_ERROR_MSG('RunClock',' ',myThid)
120  #endif  #endif
121    
122  #ifdef ALLOW_KPP  #ifdef ALLOW_KPP
123        IF (useKPP) CALL KPP_CHECK( myThid )        IF (useKPP) CALL KPP_CHECK( myThid )
124  #else  #else
125        IF (useKPP) CALL PACKAGES_CHECK_ERROR('KPP', myThid)        IF (useKPP) CALL PACKAGES_ERROR_MSG('KPP',' ',myThid)
126  #endif  #endif
127    
128  #ifdef ALLOW_PP81  #ifdef ALLOW_PP81
129        IF (usePP81) CALL PP81_CHECK( myThid )        IF (usePP81) CALL PP81_CHECK( myThid )
130  #else  #else
131        IF (usePP81) CALL PACKAGES_CHECK_ERROR('PP81', myThid)        IF (usePP81) CALL PACKAGES_ERROR_MSG('PP81',' ',myThid)
132  #endif  #endif
133    
134  #ifdef ALLOW_MY82  #ifdef ALLOW_MY82
135        IF (useMY82) CALL MY82_CHECK( myThid )        IF (useMY82) CALL MY82_CHECK( myThid )
136  #else  #else
137        IF (useMY82) CALL PACKAGES_CHECK_ERROR('MY82', myThid)        IF (useMY82) CALL PACKAGES_ERROR_MSG('MY82',' ',myThid)
138  #endif  #endif
139    
140  #ifdef ALLOW_GGL90  #ifdef ALLOW_GGL90
141        IF (useGGL90) CALL GGL90_CHECK( myThid )        IF (useGGL90) CALL GGL90_CHECK( myThid )
142  #else  #else
143        IF (useGGL90) CALL PACKAGES_CHECK_ERROR('GGL90', myThid)        IF (useGGL90) CALL PACKAGES_ERROR_MSG('GGL90',' ',myThid)
144  #endif  #endif
145    
146  #ifdef ALLOW_OPPS  #ifdef ALLOW_OPPS
147        IF (useOPPS) CALL OPPS_CHECK( myThid )        IF (useOPPS) CALL OPPS_CHECK( myThid )
148  #else  #else
149        IF (useOPPS) CALL PACKAGES_CHECK_ERROR('OPPS', myThid)        IF (useOPPS) CALL PACKAGES_ERROR_MSG('OPPS',' ',myThid)
150  #endif  #endif
151    
152  #ifdef ALLOW_GMREDI  #ifdef ALLOW_GMREDI
153        IF (useGMRedi) CALL GMREDI_CHECK( myThid )        IF (useGMRedi) CALL GMREDI_CHECK( myThid )
154  #else  #else
155        IF (useGMRedi) CALL PACKAGES_CHECK_ERROR('GMREDI', myThid)        IF (useGMRedi) CALL PACKAGES_ERROR_MSG('GMRedi',' ',myThid)
156  #endif  #endif
157    
158  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
159        IF (useOBCS) CALL OBCS_CHECK( myThid )        IF (useOBCS) CALL OBCS_CHECK( myThid )
160  #else  #else
161        IF (useOBCS) CALL PACKAGES_CHECK_ERROR('OBCS', myThid)        IF (useOBCS) CALL PACKAGES_ERROR_MSG('OBCS',' ',myThid)
162    #endif
163    
164    #ifndef ALLOW_EXF
165          IF (useEXF) CALL PACKAGES_ERROR_MSG('EXF',' ',myThid)
166  #endif  #endif
167    
168  #ifndef ALLOW_BULK_FORCE  #ifndef ALLOW_BULK_FORCE
169        IF (useBulkForce) CALL PACKAGES_CHECK_ERROR('BULK?FORCE',myThid)        IF (useBulkForce) CALL PACKAGES_ERROR_MSG(
170         &                  'BULK_FORCE', 'useBulkForce=.T.', myThid )
171  #endif  #endif
172    
173  #ifdef ALLOW_THSICE  #ifdef ALLOW_THSICE
174        IF (useThSIce) CALL THSICE_CHECK( myThid )        IF (useThSIce) CALL THSICE_CHECK( myThid )
175  #else  #else
176        IF (useThSIce) CALL PACKAGES_CHECK_ERROR('THSICE', myThid)        IF (useThSIce) CALL PACKAGES_ERROR_MSG('ThSIce',' ',myThid)
177  #endif  #endif
178    
179  #ifndef ALLOW_ATM2D  #ifndef ALLOW_ATM2D
180        IF (useATM2D) CALL PACKAGES_CHECK_ERROR('ATM2D', myThid)        IF (useATM2D) CALL PACKAGES_ERROR_MSG('ATM2D',' ',myThid)
181  #endif  #endif
182    
183  #ifndef ALLOW_AIM  #ifndef ALLOW_AIM
184        IF (useAIM) CALL PACKAGES_CHECK_ERROR('AIM', myThid)        IF (useAIM) CALL PACKAGES_ERROR_MSG('AIM',' ',myThid)
185  #endif  #endif
186    
187  #ifndef ALLOW_LAND  #ifndef ALLOW_LAND
188        IF (useLand) CALL PACKAGES_CHECK_ERROR('LAND', myThid)        IF (useLand) CALL PACKAGES_ERROR_MSG('LAND',' ',myThid)
189  #endif  #endif
190    
191  #ifndef ALLOW_PTRACERS  #ifndef ALLOW_PTRACERS
192        IF (usePTRACERS) CALL PACKAGES_CHECK_ERROR('PTRACERS', myThid)        IF (usePTRACERS) CALL PACKAGES_ERROR_MSG('PTRACERS',' ',myThid)
193  #endif  #endif
194    
195  #ifndef ALLOW_MATRIX  #ifndef ALLOW_MATRIX
196        IF (useMATRIX) CALL PACKAGES_CHECK_ERROR('MATRIX', myThid)        IF (useMATRIX) CALL PACKAGES_ERROR_MSG('MATRIX',' ',myThid)
197  #endif  #endif
198    
199  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
200        IF (useGCHEM) CALL GCHEM_CHECK( myThid )        IF (useGCHEM) CALL GCHEM_CHECK( myThid )
201  #else  #else
202        IF (useGCHEM) CALL PACKAGES_CHECK_ERROR('GCHEM', myThid)        IF (useGCHEM) CALL PACKAGES_ERROR_MSG('GCHEM',' ',myThid)
203  #endif  #endif
204    
205  #ifndef ALLOW_OFFLINE  #ifndef ALLOW_OFFLINE
206        IF (useOffLine) CALL PACKAGES_CHECK_ERROR('OFFLINE', myThid)        IF (useOffLine) CALL PACKAGES_ERROR_MSG('OffLine',' ',myThid)
207  #endif  #endif
208    
209  #ifndef ALLOW_SHAP_FILT  #ifndef ALLOW_SHAP_FILT
210        IF (useSHAP_FILT) CALL PACKAGES_CHECK_ERROR('SHAP_FILT', myThid)        IF (useSHAP_FILT)
211         &   CALL PACKAGES_ERROR_MSG( 'SHAP_FILT', ' ', myThid )
212  #endif  #endif
213    
214  #ifndef ALLOW_ZONAL_FILT  #ifndef ALLOW_ZONAL_FILT
215        IF (useZONAL_FILT) CALL PACKAGES_CHECK_ERROR('ZONAL_FILT',myThid)        IF (useZONAL_FILT)
216         &   CALL PACKAGES_ERROR_MSG( 'ZONAL_FILT', ' ', myThid )
217  #endif  #endif
218    
219  #ifndef ALLOW_FLT  #ifndef ALLOW_FLT
220        IF (useFLT) CALL PACKAGES_CHECK_ERROR('FLT', myThid)        IF (useFLT) CALL PACKAGES_ERROR_MSG('FLT',' ',myThid)
221  #endif  #endif
222    
223  #ifdef ALLOW_SBO  #ifdef ALLOW_SBO
224        IF (useSBO) CALL SBO_CHECK( myThid )        IF (useSBO) CALL SBO_CHECK( myThid )
225  #else  #else
226        IF (useSBO) CALL PACKAGES_CHECK_ERROR('SBO', myThid)        IF (useSBO) CALL PACKAGES_ERROR_MSG('SBO',' ',myThid)
227  #endif  #endif
228    
229  #ifdef ALLOW_SEAICE  #ifdef ALLOW_SEAICE
230        IF (useSEAICE) CALL SEAICE_CHECK( myThid )        IF (useSEAICE) CALL SEAICE_CHECK( myThid )
231  #else  #else
232        IF (useSEAICE) CALL PACKAGES_CHECK_ERROR('SEAICE', myThid)        IF (useSEAICE) CALL PACKAGES_ERROR_MSG('SEAICE',' ',myThid)
233  #endif  #endif
234    
235  #ifdef ALLOW_SHELFICE  #ifdef ALLOW_SHELFICE
236        IF (useShelfIce) CALL SHELFICE_CHECK( myThid )        IF (useShelfIce) CALL SHELFICE_CHECK( myThid )
237  #else  #else
238        IF (useShelfIce) CALL PACKAGES_CHECK_ERROR('SHELFICE', myThid)        IF (useShelfIce) CALL PACKAGES_ERROR_MSG('ShelfIce',' ',myThid)
239  #endif  #endif
240    
241  #ifdef ALLOW_AUTODIFF  #ifdef ALLOW_AUTODIFF
# Line 269  C---  Continue with standard packages (w Line 258  C---  Continue with standard packages (w
258        IF (useDiagnostics) CALL DIAGNOSTICS_CHECK( myThid )        IF (useDiagnostics) CALL DIAGNOSTICS_CHECK( myThid )
259  #else  #else
260        IF (useDiagnostics)        IF (useDiagnostics)
261       &   CALL PACKAGES_CHECK_ERROR('DIAGNOSTICS', myThid )       &   CALL PACKAGES_ERROR_MSG( 'Diagnostics', ' ', myThid )
262  #endif  #endif
263    
264  #ifdef ALLOW_REGRID  #ifdef ALLOW_REGRID
265        IF (useREGRID) CALL REGRID_CHECK( myThid )        IF (useREGRID) CALL REGRID_CHECK( myThid )
266  #else  #else
267        IF (useREGRID) CALL PACKAGES_CHECK_ERROR('REGRID', myThid)        IF (useREGRID) CALL PACKAGES_ERROR_MSG('REGRID',' ',myThid)
268  #endif  #endif
269    
270  #ifdef ALLOW_MYPACKAGE  #ifdef ALLOW_MYPACKAGE
271        IF (useMYPACKAGE) CALL MYPACKAGE_CHECK( myThid )        IF (useMYPACKAGE) CALL MYPACKAGE_CHECK( myThid )
272  #else  #else
273        IF (useMYPACKAGE) CALL PACKAGES_CHECK_ERROR('MYPACKAGE', myThid)        IF (useMYPACKAGE) CALL PACKAGES_ERROR_MSG('MYPACKAGE',' ',myThid)
274  #endif  #endif
275    
276    C---  Exclusive packages (which cannot be used together):
277          IF ( useEXF .AND. useBulkForce ) THEN
278            WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',
279         &  'both useEXF and useBulkForce are set'
280            CALL PRINT_ERROR( msgBuf , myThid )
281            WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',
282         &  ' but cannot be used together => need to select only one.'
283            CALL PRINT_ERROR( msgBuf , myThid )
284            STOP 'ABNORMAL END: S/R PACKAGES_CHECK'
285          ENDIF
286    
287        RETURN        RETURN
288        END        END
Legend:
Removed from v.1.40  
changed lines
  Added in v.1.41
  ViewVC Help
Powered by ViewVC 1.1.22