/[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.52 by jmc, Fri Dec 24 21:54:03 2010 UTC revision 1.67 by jmc, Thu Sep 4 22:30:46 2014 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     !USES:  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          !USES:
98        IMPLICIT NONE        IMPLICIT NONE
99  C     === Global variables ===  C     === Global variables ===
100  #include "SIZE.h"  #include "SIZE.h"
# Line 30  C     === Global variables === Line 103  C     === Global variables ===
103    
104  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
105  C     === Routine arguments ===  C     === Routine arguments ===
106  C     myThid ::  Number of this instances  C     myThid :: my Thread Id number
107        INTEGER myThid        INTEGER myThid
108    
109  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
# Line 39  C     msgBuf :: Informational/error mess Line 112  C     msgBuf :: Informational/error mess
112        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
113  CEOP  CEOP
114    
115          _BEGIN_MASTER(myThid)
116        WRITE(msgBuf,'(A)')        WRITE(msgBuf,'(A)')
117       &'== Packages configuration : Check & print summary =='       &'== Packages configuration : Check & print summary =='
118        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
# Line 46  CEOP Line 120  CEOP
120        WRITE(msgBuf,'(A)') ' '        WRITE(msgBuf,'(A)') ' '
121        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
122       &                    SQUEEZE_RIGHT, myThid )       &                    SQUEEZE_RIGHT, myThid )
123          _END_MASTER(myThid)
124    
125  C---  Start with non-standard packages (without or with non standard flag)  C---  Start with non-standard packages (without or with non standard flag)
126    
127  #ifndef ALLOW_MNC  #ifndef ALLOW_MNC
128        IF (useMNC) THEN        IF (useMNC) THEN
129          WRITE(msgBuf,'(2A)') '***WARNING***',          _BEGIN_MASTER(myThid)
130            WRITE(msgBuf,'(2A)') '** WARNING **',
131       &   ' PACKAGES_CHECK: useMNC is TRUE'       &   ' PACKAGES_CHECK: useMNC is TRUE'
132          CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,          CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,
133       &       SQUEEZE_RIGHT , myThid)       &                      SQUEEZE_RIGHT, myThid )
134          WRITE(msgBuf,'(2A)') '***WARNING***',          WRITE(msgBuf,'(2A)') '** WARNING **',
135       &   ' but pkg/mnc has not been compiled (#undef ALLOW_MNC)'       &   ' but pkg/mnc has not been compiled (#undef ALLOW_MNC)'
136          CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,          CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,
137       &       SQUEEZE_RIGHT , myThid)       &                      SQUEEZE_RIGHT, myThid )
138            _END_MASTER(myThid)
139        ENDIF        ENDIF
140  #endif  #endif
141    
# Line 71  C---  Start with non-standard packages ( Line 148  C---  Start with non-standard packages (
148          WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',          WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',
149       &   'Re-compile with pkg "mom_vecinv" in packages.conf'       &   'Re-compile with pkg "mom_vecinv" in packages.conf'
150          CALL PRINT_ERROR( msgBuf , myThid )          CALL PRINT_ERROR( msgBuf , myThid )
151            CALL ALL_PROC_DIE( myThid )
152          STOP 'ABNORMAL END: S/R PACKAGES_CHECK'          STOP 'ABNORMAL END: S/R PACKAGES_CHECK'
153        ENDIF        ENDIF
154  #endif  #endif
# Line 83  C---  Start with non-standard packages ( Line 161  C---  Start with non-standard packages (
161          WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',          WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',
162       &   'Re-compile with pkg "mom_fluxform" in packages.conf'       &   'Re-compile with pkg "mom_fluxform" in packages.conf'
163          CALL PRINT_ERROR( msgBuf , myThid )          CALL PRINT_ERROR( msgBuf , myThid )
164            CALL ALL_PROC_DIE( myThid )
165          STOP 'ABNORMAL END: S/R PACKAGES_CHECK'          STOP 'ABNORMAL END: S/R PACKAGES_CHECK'
166        ENDIF        ENDIF
167  #endif  #endif
# Line 96  C---  Start with non-standard packages ( Line 175  C---  Start with non-standard packages (
175          WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',          WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',
176       &  'Re-compile with pkg "generic_advdiff" in packages.conf'       &  'Re-compile with pkg "generic_advdiff" in packages.conf'
177          CALL PRINT_ERROR( msgBuf , myThid )          CALL PRINT_ERROR( msgBuf , myThid )
178            CALL ALL_PROC_DIE( myThid )
179          STOP 'ABNORMAL END: S/R PACKAGES_CHECK'          STOP 'ABNORMAL END: S/R PACKAGES_CHECK'
180        ENDIF        ENDIF
181  #endif  #endif
# Line 113  C     If taveFreq is finite, make sure t Line 193  C     If taveFreq is finite, make sure t
193  #endif  #endif
194    
195  #ifndef ALLOW_CD_CODE  #ifndef ALLOW_CD_CODE
196        IF (useCDscheme) CALL PACKAGES_ERROR_MSG(         IF (useCDscheme) CALL PACKAGES_ERROR_MSG(
197       &                  'CD_CODE', 'useCDscheme=.T.', myThid )       &                  'CD_CODE', 'useCDscheme=.T.', myThid )
198  #endif  #endif
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 137  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 149  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 161  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    
260    #ifdef ALLOW_BBL
261          IF (useBBL) CALL BBL_CHECK( myThid )
262    #else
263          IF (useBBL) CALL PACKAGES_ERROR_MSG('BBL',' ',myThid)
264    #endif
265    
266  #ifndef ALLOW_DOWN_SLOPE  #ifndef ALLOW_DOWN_SLOPE
267        IF (useDOWN_SLOPE)        IF (useDOWN_SLOPE)
268       &            CALL PACKAGES_ERROR_MSG('DOWN_SLOPE',' ',myThid)       &            CALL PACKAGES_ERROR_MSG('DOWN_SLOPE',' ',myThid)
269  #endif  #endif
270    
271  #ifdef ALLOW_OBCS  #ifndef ALLOW_CAL
272        IF (useOBCS) CALL OBCS_CHECK( myThid )        IF (useCAL) CALL PACKAGES_ERROR_MSG('CAL',' ',myThid)
 #else  
       IF (useOBCS) CALL PACKAGES_ERROR_MSG('OBCS',' ',myThid)  
273  #endif  #endif
274    
275  #ifndef ALLOW_EXF  #ifdef ALLOW_EXF
276          IF (useEXF) CALL EXF_CHECK( myThid )
277    #else
278        IF (useEXF) CALL PACKAGES_ERROR_MSG('EXF',' ',myThid)        IF (useEXF) CALL PACKAGES_ERROR_MSG('EXF',' ',myThid)
279  #endif  #endif
280    
# Line 189  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  #ifdef ALLOW_THSICE  #ifndef ALLOW_FLT
295        IF (useThSIce) CALL THSICE_CHECK( myThid )        IF (useFLT) CALL PACKAGES_ERROR_MSG('FLT',' ',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  #ifndef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
299          IF (usePTRACERS) CALL PTRACERS_CHECK( myThid )
300    #else
301        IF (usePTRACERS) CALL PACKAGES_ERROR_MSG('PTRACERS',' ',myThid)        IF (usePTRACERS) CALL PACKAGES_ERROR_MSG('PTRACERS',' ',myThid)
302  #endif  #endif
303    
# Line 229  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 237  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 275  C---  Continue with standard packages (w Line 343  C---  Continue with standard packages (w
343        IF (useShelfIce) CALL PACKAGES_ERROR_MSG('ShelfIce',' ',myThid)        IF (useShelfIce) CALL PACKAGES_ERROR_MSG('ShelfIce',' ',myThid)
344  #endif  #endif
345    
346    #ifdef ALLOW_STREAMICE
347          IF (useStreamIce) CALL STREAMICE_CHECK( myThid )
348    #else
349          IF (useStreamIce) CALL PACKAGES_ERROR_MSG('StreamIce',' ',myThid)
350    #endif
351    
352  #ifdef ALLOW_ICEFRONT  #ifdef ALLOW_ICEFRONT
353        IF (useICEFRONT) CALL ICEFRONT_CHECK( myThid )        IF (useICEFRONT) CALL ICEFRONT_CHECK( myThid )
354  #else  #else
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 )        CALL AUTODIFF_CHECK( myThid )
394  #endif  #endif
# Line 294  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
411        IF (useSMOOTH) CALL PACKAGES_ERROR_MSG('SMOOTH',' ',myThid)        IF (useSMOOTH) CALL PACKAGES_ERROR_MSG('SMOOTH',' ',myThid)
412  #endif  #endif
413    
414    #ifndef ALLOW_PROFILES
415          IF (usePROFILES) CALL PACKAGES_ERROR_MSG('PROFILES',' ',myThid)
416    #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          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 340  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
# Line 369  C---  Exclusive packages (which cannot b Line 495  C---  Exclusive packages (which cannot b
495          WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',          WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',
496       &  ' but cannot be used together => need to select only one.'       &  ' but cannot be used together => need to select only one.'
497          CALL PRINT_ERROR( msgBuf , myThid )          CALL PRINT_ERROR( msgBuf , myThid )
498            CALL ALL_PROC_DIE( myThid )
499          STOP 'ABNORMAL END: S/R PACKAGES_CHECK'          STOP 'ABNORMAL END: S/R PACKAGES_CHECK'
500        ENDIF        ENDIF
501    
502  #ifdef ALLOW_AUTODIFF  C---  Exclusive packages (which cannot be used together):
503  C--   Here INI_MASK_ETC will be called a 2nd time by INITIALISE_VARIA.        IF ( useDOWN_SLOPE .AND. useBBL ) THEN
504  C     This hack prevents a 2nd printing when default debugLevel is used.          WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',
505        _BARRIER       &  'both useDOWN_SLOPE and useBBL are set'
506        _BEGIN_MASTER( myThid )          CALL PRINT_ERROR( msgBuf , myThid )
507        IF ( debugLevel.LE.debLevA ) printDomain = .FALSE.          WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',
508        _END_MASTER( myThid )       &  ' but cannot be used together => need to select only one.'
509        _BARRIER          CALL PRINT_ERROR( msgBuf , myThid )
510  #endif          CALL ALL_PROC_DIE( myThid )
511            STOP 'ABNORMAL END: S/R PACKAGES_CHECK'
512          ENDIF
513    
514        RETURN        RETURN
515        END        END
Legend:
Removed from v.1.52  
changed lines
  Added in v.1.67
  ViewVC Help
Powered by ViewVC 1.1.22