15 logical :: ipakcb = .false.
16 logical :: iprflow = .false.
17 logical :: cellavg = .false.
18 logical :: ithickstrt = .false.
19 logical :: cvoptions = .false.
20 logical :: ivarcv = .false.
21 logical :: idewatcv = .false.
22 logical :: iperched = .false.
23 logical :: rewet_record = .false.
24 logical :: irewet = .false.
25 logical :: wetfct = .false.
26 logical :: iwetit = .false.
27 logical :: ihdwet = .false.
28 logical :: xt3doptions = .false.
29 logical :: ixt3d = .false.
30 logical :: ixt3drhs = .false.
31 logical :: isavspdis = .false.
32 logical :: isavsat = .false.
33 logical :: ik22overk = .false.
34 logical :: ik33overk = .false.
35 logical :: tvk_filerecord = .false.
36 logical :: tvk6 = .false.
37 logical :: filein = .false.
38 logical :: tvk6_filename = .false.
39 logical :: export_ascii = .false.
40 logical :: export_nc = .false.
41 logical :: inewton = .false.
42 logical :: satomega = .false.
43 logical :: icelltype = .false.
44 logical :: k = .false.
45 logical :: k22 = .false.
46 logical :: k33 = .false.
47 logical :: angle1 = .false.
48 logical :: angle2 = .false.
49 logical :: angle3 = .false.
50 logical :: wetdry = .false.
55 character(len=16),
parameter :: &
71 'keyword to save NPF flows', &
89 'keyword to print NPF flows to listing file', &
103 'ALTERNATIVE_CELL_AVERAGING', &
107 'conductance weighting option', &
125 'keyword to activate THICKSTRT option', &
141 'RECORD VARIABLECV DEWATERED', &
143 'vertical conductance options', &
161 'keyword to activate VARIABLECV option', &
179 'keyword to activate DEWATERED option', &
197 'keyword to activate PERCHED option', &
213 'RECORD REWET WETFCT IWETIT IHDWET', &
233 'keyword to activate rewetting', &
251 'wetting factor to use for rewetting', &
269 'interval to use for rewetting', &
287 'flag to determine wetting equation', &
305 'keyword to activate XT3D', &
323 'keyword to activate XT3D', &
341 'keyword to XT3D on right hand side', &
355 'SAVE_SPECIFIC_DISCHARGE', &
359 'keyword to save specific discharge', &
377 'keyword to save saturation', &
395 'keyword to indicate that specified K22 is a ratio', &
413 'keyword to indicate that specified K33 is a ratio', &
429 'RECORD TVK6 FILEIN TVK6_FILENAME', &
485 'file name of TVK information', &
499 'EXPORT_ARRAY_ASCII', &
503 'export array variables to layered ascii files.', &
517 'EXPORT_ARRAY_NETCDF', &
521 'export array variables to netcdf output files.', &
539 'turn off Newton for unconfined cells', &
557 'set saturation omega value', &
575 'confined or convertible indicator', &
593 'hydraulic conductivity (L/T)', &
611 'hydraulic conductivity of second ellipsoid axis', &
629 'hydraulic conductivity of third ellipsoid axis (L/T)', &
647 'first anisotropy rotation angle (degrees)', &
665 'second anisotropy rotation angle (degrees)', &
683 'third anisotropy rotation angle (degrees)', &
701 'wetdry threshold and factor', &
This module contains simulation constants.
integer(i4b), parameter lenvarname
maximum length of a variable name