/[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.38 by jmc, Tue Jan 16 04:40:05 2007 UTC revision 1.59 by jmc, Wed Apr 18 22:06:56 2012 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 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  c     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)
53    
54    #ifndef ALLOW_MNC
55          IF (useMNC) THEN
56            _BEGIN_MASTER(myThid)
57            WRITE(msgBuf,'(2A)') '** WARNING **',
58         &   ' PACKAGES_CHECK: useMNC is TRUE'
59            CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,
60         &                      SQUEEZE_RIGHT, myThid )
61            WRITE(msgBuf,'(2A)') '** WARNING **',
62         &   ' but pkg/mnc has not been compiled (#undef ALLOW_MNC)'
63            CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,
64         &                      SQUEEZE_RIGHT, myThid )
65            _END_MASTER(myThid)
66          ENDIF
67    #endif
68    
69    #ifndef ALLOW_MOM_VECINV
70          IF ( momStepping .AND. vectorInvariantMomentum ) THEN
71            WRITE(msgBuf,'(2A)')
72         &   'PACKAGES_CHECK: cannot step forward Momentum',
73         &   ' without pkg/mom_vecinv'
74            CALL PRINT_ERROR( msgBuf , myThid )
75            WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',
76         &   'Re-compile with pkg "mom_vecinv" in packages.conf'
77            CALL PRINT_ERROR( msgBuf , myThid )
78            CALL ALL_PROC_DIE( myThid )
79            STOP 'ABNORMAL END: S/R PACKAGES_CHECK'
80          ENDIF
81    #endif
82    #ifndef ALLOW_MOM_FLUXFORM
83          IF ( momStepping .AND. .NOT.vectorInvariantMomentum ) THEN
84            WRITE(msgBuf,'(2A)')
85         &   'PACKAGES_CHECK: cannot step forward Momentum',
86         &   ' without pkg/mom_fluxform'
87            CALL PRINT_ERROR( msgBuf , myThid )
88            WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',
89         &   'Re-compile with pkg "mom_fluxform" in packages.conf'
90            CALL PRINT_ERROR( msgBuf , myThid )
91            CALL ALL_PROC_DIE( myThid )
92            STOP 'ABNORMAL END: S/R PACKAGES_CHECK'
93          ENDIF
94    #endif
95    
96    #ifndef ALLOW_GENERIC_ADVDIFF
97          IF ( tempStepping .OR. saltStepping ) THEN
98            WRITE(msgBuf,'(2A)')
99         &  'PACKAGES_CHECK: cannot step forward Temp or Salt',
100         &  ' without pkg/generic_advdiff'
101            CALL PRINT_ERROR( msgBuf , myThid )
102            WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',
103         &  'Re-compile with pkg "generic_advdiff" in packages.conf'
104            CALL PRINT_ERROR( msgBuf , myThid )
105            CALL ALL_PROC_DIE( myThid )
106            STOP 'ABNORMAL END: S/R PACKAGES_CHECK'
107          ENDIF
108    #endif
109    
110    #ifndef ALLOW_MONITOR
111    C     If monitorFreq is finite, make sure the pkg/monitor is being compiled
112          IF (monitorFreq.NE.0.) CALL PACKAGES_ERROR_MSG(
113         &                  'MONITOR', 'monitorFreq <> 0', myThid )
114    #endif
115    
116    #ifndef ALLOW_TIMEAVE
117    C     If taveFreq is finite, make sure the pkg/timeave is being compiled
118          IF (taveFreq.NE.0.) CALL PACKAGES_ERROR_MSG(
119         &                  'TIMEAVE', 'taveFreq <> 0', myThid )
120    #endif
121    
122    #ifndef ALLOW_CD_CODE
123           IF (useCDscheme) CALL PACKAGES_ERROR_MSG(
124         &                  'CD_CODE', 'useCDscheme=.T.', myThid )
125    #endif
126    
127    C---  Continue with standard packages (with standard usePKG flag)
128    
129  #ifdef ALLOW_RUNCLOCK  #ifdef ALLOW_RUNCLOCK
130        IF (useRunClock) CALL RUNCLOCK_CHECK( myThid )        IF (useRunClock) CALL RUNCLOCK_CHECK( myThid )
131  #else  #else
132        IF (useRunClock) CALL PACKAGES_CHECK_ERROR('RUNCLOCK', myThid)        IF (useRunClock) CALL PACKAGES_ERROR_MSG('RunClock',' ',myThid)
 #endif  
   
 #ifdef ALLOW_GENERIC_ADVDIFF  
       IF (useGAD) CALL GAD_CHECK( myThid )  
133  #endif  #endif
134    
135  #ifdef ALLOW_KPP  #ifdef ALLOW_KPP
136        IF (useKPP) CALL KPP_CHECK( myThid )        IF (useKPP) CALL KPP_CHECK( myThid )
137  #else  #else
138        IF (useKPP) CALL PACKAGES_CHECK_ERROR('KPP', myThid)        IF (useKPP) CALL PACKAGES_ERROR_MSG('KPP',' ',myThid)
139  #endif  #endif
140    
141  #ifdef ALLOW_PP81  #ifdef ALLOW_PP81
142        IF (usePP81) CALL PP81_CHECK( myThid )        IF (usePP81) CALL PP81_CHECK( myThid )
143  #else  #else
144        IF (usePP81) CALL PACKAGES_CHECK_ERROR('PP81', myThid)        IF (usePP81) CALL PACKAGES_ERROR_MSG('PP81',' ',myThid)
145  #endif  #endif
146    
147  #ifdef ALLOW_MY82  #ifdef ALLOW_MY82
148        IF (useMY82) CALL MY82_CHECK( myThid )        IF (useMY82) CALL MY82_CHECK( myThid )
149  #else  #else
150        IF (useMY82) CALL PACKAGES_CHECK_ERROR('MY82', myThid)        IF (useMY82) CALL PACKAGES_ERROR_MSG('MY82',' ',myThid)
151  #endif  #endif
152    
153  #ifdef ALLOW_GGL90  #ifdef ALLOW_GGL90
154        IF (useGGL90) CALL GGL90_CHECK( myThid )        IF (useGGL90) CALL GGL90_CHECK( myThid )
155  #else  #else
156        IF (useGGL90) CALL PACKAGES_CHECK_ERROR('GGL90', myThid)        IF (useGGL90) CALL PACKAGES_ERROR_MSG('GGL90',' ',myThid)
157  #endif  #endif
158    
159  #ifdef ALLOW_OPPS  #ifdef ALLOW_OPPS
160        IF (useOPPS) CALL OPPS_CHECK( myThid )        IF (useOPPS) CALL OPPS_CHECK( myThid )
161  #else  #else
162        IF (useOPPS) CALL PACKAGES_CHECK_ERROR('OPPS', myThid)        IF (useOPPS) CALL PACKAGES_ERROR_MSG('OPPS',' ',myThid)
163  #endif  #endif
164    
165  #ifdef ALLOW_GMREDI  #ifdef ALLOW_GMREDI
166        IF (useGMRedi) CALL GMREDI_CHECK( myThid )        IF (useGMRedi) CALL GMREDI_CHECK( myThid )
167  #else  #else
168        IF (useGMRedi) CALL PACKAGES_CHECK_ERROR('GMREDI', myThid)        IF (useGMRedi) CALL PACKAGES_ERROR_MSG('GMRedi',' ',myThid)
169    #endif
170    
171    #ifndef ALLOW_DOWN_SLOPE
172          IF (useDOWN_SLOPE)
173         &            CALL PACKAGES_ERROR_MSG('DOWN_SLOPE',' ',myThid)
174    #endif
175    
176    #ifdef ALLOW_BBL
177          IF (useBBL) CALL BBL_CHECK( myThid )
178    #else
179          IF (useBBL) CALL PACKAGES_ERROR_MSG('BBL',' ',myThid)
180  #endif  #endif
181    
182  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
183        IF (useOBCS) CALL OBCS_CHECK( myThid )        IF (useOBCS) CALL OBCS_CHECK( myThid )
184  #else  #else
185        IF (useOBCS) CALL PACKAGES_CHECK_ERROR('OBCS', myThid)        IF (useOBCS) CALL PACKAGES_ERROR_MSG('OBCS',' ',myThid)
186    #endif
187    
188    #ifdef ALLOW_EXF
189          IF (useEXF) CALL EXF_CHECK( myThid )
190    #else
191          IF (useEXF) CALL PACKAGES_ERROR_MSG('EXF',' ',myThid)
192  #endif  #endif
193    
194  #ifndef ALLOW_BULK_FORCE  #ifndef ALLOW_BULK_FORCE
195        IF (useBulkForce) CALL PACKAGES_CHECK_ERROR('BULK?FORCE',myThid)        IF (useBulkForce) CALL PACKAGES_ERROR_MSG(
196         &                  'BULK_FORCE', 'useBulkForce=.T.', myThid )
197    #endif
198    
199    #ifndef ALLOW_EBM
200          IF (useEBM) CALL PACKAGES_ERROR_MSG('EBM',' ',myThid)
201    #endif
202    
203    #ifndef ALLOW_CHEAPAML
204          IF (useCheapAML) CALL PACKAGES_ERROR_MSG('CheapAML',' ',myThid)
205    #endif
206    
207    #ifndef ALLOW_FRAZIL
208          IF (useFRAZIL) CALL PACKAGES_ERROR_MSG('FRAZIL',' ',myThid)
209  #endif  #endif
210    
211  #ifndef ALLOW_THSICE  #ifdef ALLOW_THSICE
212        IF (useThSIce) CALL PACKAGES_CHECK_ERROR('THSICE', myThid)        IF (useThSIce) CALL THSICE_CHECK( myThid )
213    #else
214          IF (useThSIce) CALL PACKAGES_ERROR_MSG('ThSIce',' ',myThid)
215  #endif  #endif
216    
217  #ifndef ALLOW_ATM2D  #ifndef ALLOW_ATM2D
218        IF (useATM2D) CALL PACKAGES_CHECK_ERROR('ATM2D', myThid)        IF (useATM2D) CALL PACKAGES_ERROR_MSG('ATM2D',' ',myThid)
219  #endif  #endif
220    
221  #ifndef ALLOW_AIM  #ifndef ALLOW_AIM
222        IF (useAIM) CALL PACKAGES_CHECK_ERROR('AIM', myThid)        IF (useAIM) CALL PACKAGES_ERROR_MSG('AIM',' ',myThid)
223  #endif  #endif
224    
225  #ifndef ALLOW_LAND  #ifndef ALLOW_LAND
226        IF (useLand) CALL PACKAGES_CHECK_ERROR('LAND', myThid)        IF (useLand) CALL PACKAGES_ERROR_MSG('Land',' ',myThid)
227  #endif  #endif
228    
229  #ifndef ALLOW_PTRACERS  #ifndef ALLOW_FIZHI
230        IF (usePTRACERS) CALL PACKAGES_CHECK_ERROR('PTRACERS', myThid)        IF (useFizhi) CALL PACKAGES_ERROR_MSG('Fizhi',' ',myThid)
231  #endif  #endif
232    
233  #ifndef ALLOW_MATRIX  #ifndef ALLOW_GRIDALT
234        IF (useMATRIX) CALL PACKAGES_CHECK_ERROR('MATRIX', myThid)        IF (useGridAlt) CALL PACKAGES_ERROR_MSG('GridAlt',' ',myThid)
235    #endif
236    
237    #ifdef ALLOW_PTRACERS
238          IF (usePTRACERS) CALL PTRACERS_CHECK( myThid )
239    #else
240          IF (usePTRACERS) CALL PACKAGES_ERROR_MSG('PTRACERS',' ',myThid)
241  #endif  #endif
242    
243  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
244        IF (useGCHEM) CALL GCHEM_CHECK( myThid )        IF (useGCHEM) CALL GCHEM_CHECK( myThid )
245  #else  #else
246        IF (useGCHEM) CALL PACKAGES_CHECK_ERROR('GCHEM', myThid)        IF (useGCHEM) CALL PACKAGES_ERROR_MSG('GCHEM',' ',myThid)
247    #endif
248    
249    #ifndef ALLOW_RBCS
250          IF (useRBCS) CALL PACKAGES_ERROR_MSG('RBCS',' ',myThid)
251  #endif  #endif
252    
253  #ifndef ALLOW_OFFLINE  #ifndef ALLOW_OFFLINE
254        IF (useOffLine) CALL PACKAGES_CHECK_ERROR('OFFLINE', myThid)        IF (useOffLine) CALL PACKAGES_ERROR_MSG('OffLine',' ',myThid)
255    #endif
256    
257    #ifndef ALLOW_MATRIX
258          IF (useMATRIX) CALL PACKAGES_ERROR_MSG('MATRIX',' ',myThid)
259  #endif  #endif
260    
261  #ifndef ALLOW_SHAP_FILT  #ifndef ALLOW_SHAP_FILT
262        IF (useSHAP_FILT) CALL PACKAGES_CHECK_ERROR('SHAP_FILT', myThid)        IF (useSHAP_FILT)
263         &   CALL PACKAGES_ERROR_MSG( 'SHAP_FILT', ' ', myThid )
264  #endif  #endif
265    
266  #ifndef ALLOW_ZONAL_FILT  #ifndef ALLOW_ZONAL_FILT
267        IF (useZONAL_FILT) CALL PACKAGES_CHECK_ERROR('ZONAL_FILT',myThid)        IF (useZONAL_FILT)
268         &   CALL PACKAGES_ERROR_MSG( 'ZONAL_FILT', ' ', myThid )
269  #endif  #endif
270    
271  #ifndef ALLOW_FLT  #ifndef ALLOW_FLT
272        IF (useFLT) CALL PACKAGES_CHECK_ERROR('FLT', myThid)        IF (useFLT) CALL PACKAGES_ERROR_MSG('FLT',' ',myThid)
273  #endif  #endif
274    
275  #ifdef ALLOW_SBO  #ifdef ALLOW_SBO
276        IF (useSBO) CALL SBO_CHECK( myThid )        IF (useSBO) CALL SBO_CHECK( myThid )
277  #else  #else
278        IF (useSBO) CALL PACKAGES_CHECK_ERROR('SBO', myThid)        IF (useSBO) CALL PACKAGES_ERROR_MSG('SBO',' ',myThid)
279  #endif  #endif
280    
281  #ifdef ALLOW_SEAICE  #ifdef ALLOW_SEAICE
282        IF (useSEAICE) CALL SEAICE_CHECK( myThid )        IF (useSEAICE) CALL SEAICE_CHECK( myThid )
283  #else  #else
284        IF (useSEAICE) CALL PACKAGES_CHECK_ERROR('SEAICE', myThid)        IF (useSEAICE) CALL PACKAGES_ERROR_MSG('SEAICE',' ',myThid)
285    #endif
286    
287    #ifdef ALLOW_SALT_PLUME
288          IF (useSALT_PLUME)CALL SALT_PLUME_CHECK( myThid )
289    #else
290          IF (useSALT_PLUME)CALL PACKAGES_ERROR_MSG('SALT_PLUME',' ',myThid)
291  #endif  #endif
292    
293  #ifdef ALLOW_SHELFICE  #ifdef ALLOW_SHELFICE
294        IF (useShelfIce) CALL SHELFICE_CHECK( myThid )        IF (useShelfIce) CALL SHELFICE_CHECK( myThid )
295  #else  #else
296        IF (useShelfIce) CALL PACKAGES_CHECK_ERROR('SHELFICE', myThid)        IF (useShelfIce) CALL PACKAGES_ERROR_MSG('ShelfIce',' ',myThid)
297  #endif  #endif
298    
299  #ifndef ALLOW_CD_CODE  #ifdef ALLOW_STREAMICE
300        IF (useCDscheme) CALL PACKAGES_CHECK_ERROR('CD_CODE', myThid)        IF (useStreamIce) CALL STREAMICE_CHECK( myThid )
301    #else
302          IF (useStreamIce) CALL PACKAGES_ERROR_MSG('StreamIce',' ',myThid)
303    #endif
304    
305    #ifdef ALLOW_ICEFRONT
306          IF (useICEFRONT) CALL ICEFRONT_CHECK( myThid )
307    #else
308          IF (useICEFRONT) CALL PACKAGES_ERROR_MSG('ICEFRONT',' ',myThid)
309  #endif  #endif
310    
311  #ifdef ALLOW_AUTODIFF  #ifdef ALLOW_AUTODIFF
# Line 179  CEOP Line 324  CEOP
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  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
332        IF (useDiagnostics) CALL DIAGNOSTICS_CHECK( myThid )        IF (useDiagnostics) CALL DIAGNOSTICS_CHECK( myThid )
333  #else  #else
334        IF (useDiagnostics)        IF (useDiagnostics)
335       &   CALL PACKAGES_CHECK_ERROR('DIAGNOSTICS', myThid )       &   CALL PACKAGES_ERROR_MSG( 'Diagnostics', ' ', myThid )
336  #endif  #endif
337    
338  #ifdef ALLOW_REGRID  #ifdef ALLOW_REGRID
339        IF (useREGRID) CALL REGRID_CHECK( myThid )        IF (useREGRID) CALL REGRID_CHECK( myThid )
340  #else  #else
341        IF (useREGRID) CALL PACKAGES_CHECK_ERROR('REGRID', myThid)        IF (useREGRID) CALL PACKAGES_ERROR_MSG('REGRID',' ',myThid)
342    #endif
343    
344    #ifdef ALLOW_LAYERS
345          IF ( useLayers ) CALL LAYERS_CHECK( myThid )
346    #else
347          IF ( useLayers ) CALL PACKAGES_ERROR_MSG('LAYERS',' ',myThid)
348    #endif /* ALLOW_LAYERS */
349    
350    #ifdef ALLOW_NEST_CHILD
351          IF (useNEST_CHILD) CALL NEST_CHILD_CHECK( myThid )
352    #else
353          IF (useNEST_CHILD) CALL PACKAGES_ERROR_MSG(
354         & 'NEST_CHILD',' ',myThid)
355    #endif
356    
357    #ifdef ALLOW_NEST_PARENT
358          IF (useNEST_PARENT) CALL NEST_PARENT_CHECK( myThid )
359    #else
360          IF (useNEST_PARENT) CALL PACKAGES_ERROR_MSG(
361         & 'NEST_PARENT',' ',myThid)
362    #endif
363    
364    #ifdef ALLOW_OASIS
365          IF (useOASIS) CALL OASIS_CHECK( myThid )
366    #else
367          IF (useOASIS) CALL PACKAGES_ERROR_MSG('OASIS',' ',myThid)
368    #endif
369    
370    #ifdef ALLOW_ECCO
371          CALL ECCO_CHECK( myThid )
372    #endif
373    
374    #ifndef ALLOW_EMBED_FILES
375          IF (useEMBED_FILES) CALL PACKAGES_ERROR_MSG(
376         &                                  'EMBED_FILES',' ',myThid)
377  #endif  #endif
378    
379  #ifdef ALLOW_MYPACKAGE  #ifdef ALLOW_MYPACKAGE
380        IF (useMYPACKAGE) CALL MYPACKAGE_CHECK( myThid )        IF (useMYPACKAGE) CALL MYPACKAGE_CHECK( myThid )
381  #else  #else
382        IF (useMYPACKAGE) CALL PACKAGES_CHECK_ERROR('MYPACKAGE', myThid)        IF (useMYPACKAGE) CALL PACKAGES_ERROR_MSG('MYPACKAGE',' ',myThid)
383    #endif
384    
385    #ifdef ALLOW_GENERIC_ADVDIFF
386    C-    Check generic AdvDiff setting and related overlap minimum size:
387    C     for this reason, called after other ${pkg}_check S/R
388          IF (useGAD) CALL GAD_CHECK( myThid )
389  #endif  #endif
390    
391    C---  Exclusive packages (which cannot be used together):
392          IF ( useEXF .AND. useBulkForce ) THEN
393            WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',
394         &  'both useEXF and useBulkForce are set'
395            CALL PRINT_ERROR( msgBuf , myThid )
396            WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',
397         &  ' but cannot be used together => need to select only one.'
398            CALL PRINT_ERROR( msgBuf , myThid )
399            CALL ALL_PROC_DIE( myThid )
400            STOP 'ABNORMAL END: S/R PACKAGES_CHECK'
401          ENDIF
402    
403    C---  Exclusive packages (which cannot be used together):
404          IF ( useDOWN_SLOPE .AND. useBBL ) THEN
405            WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',
406         &  'both useDOWN_SLOPE and useBBL are set'
407            CALL PRINT_ERROR( msgBuf , myThid )
408            WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',
409         &  ' but cannot be used together => need to select only one.'
410            CALL PRINT_ERROR( msgBuf , myThid )
411            CALL ALL_PROC_DIE( myThid )
412            STOP 'ABNORMAL END: S/R PACKAGES_CHECK'
413          ENDIF
414    
415        RETURN        RETURN
416        END        END
Legend:
Removed from v.1.38  
changed lines
  Added in v.1.59
  ViewVC Help
Powered by ViewVC 1.1.22