16 logical :: ipakcb = .false.
17 logical :: iprflow = .false.
18 logical :: cellavg = .false.
19 logical :: ithickstrt = .false.
20 logical :: cvoptions = .false.
21 logical :: ivarcv = .false.
22 logical :: idewatcv = .false.
23 logical :: iperched = .false.
24 logical :: rewet_record = .false.
25 logical :: irewet = .false.
26 logical :: wetfct = .false.
27 logical :: iwetit = .false.
28 logical :: ihdwet = .false.
29 logical :: xt3doptions = .false.
30 logical :: ixt3d = .false.
31 logical :: ixt3drhs = .false.
32 logical :: ihighcellsat = .false.
33 logical :: isavspdis = .false.
34 logical :: isavsat = .false.
35 logical :: ik22overk = .false.
36 logical :: ik33overk = .false.
37 logical :: tvk_filerecord = .false.
38 logical :: tvk6 = .false.
39 logical :: filein = .false.
40 logical :: tvk6_filename = .false.
41 logical :: export_ascii = .false.
42 logical :: export_nc = .false.
43 logical :: inewton = .false.
44 logical :: satomega = .false.
45 logical :: icelltype = .false.
46 logical :: k = .false.
47 logical :: k22 = .false.
48 logical :: k33 = .false.
49 logical :: angle1 = .false.
50 logical :: angle2 = .false.
51 logical :: angle3 = .false.
52 logical :: wetdry = .false.
58 character(len=16),
parameter :: &
74 'keyword to save NPF flows', &
93 'keyword to print NPF flows to listing file', &
108 'ALTERNATIVE_CELL_AVERAGING', &
112 'conductance weighting option', &
131 'keyword to activate THICKSTRT option', &
148 'RECORD VARIABLECV DEWATERED', &
150 'vertical conductance options', &
169 'keyword to activate VARIABLECV option', &
188 'keyword to activate DEWATERED option', &
207 'keyword to activate PERCHED option', &
224 'RECORD REWET WETFCT IWETIT IHDWET', &
245 'keyword to activate rewetting', &
264 'wetting factor to use for rewetting', &
283 'interval to use for rewetting', &
302 'flag to determine wetting equation', &
321 'keyword to activate XT3D', &
340 'keyword to activate XT3D', &
359 'keyword to XT3D on right hand side', &
374 'HIGHEST_CELL_SATURATION', &
378 'keyword to activate HIGHEST_CELL_SATURATION option', &
393 'SAVE_SPECIFIC_DISCHARGE', &
397 'keyword to save specific discharge', &
416 'keyword to save saturation', &
435 'keyword to indicate that specified K22 is a ratio', &
454 'keyword to indicate that specified K33 is a ratio', &
471 'RECORD TVK6 FILEIN TVK6_FILENAME', &
530 'file name of TVK information', &
545 'EXPORT_ARRAY_ASCII', &
549 'export array variables to layered ascii files.', &
564 'EXPORT_ARRAY_NETCDF', &
568 'export array variables to netcdf output files.', &
587 'turn off Newton for unconfined cells', &
606 'set saturation omega value', &
625 'confined or convertible indicator', &
644 'hydraulic conductivity (L/T)', &
663 'hydraulic conductivity of second ellipsoid axis', &
682 'hydraulic conductivity of third ellipsoid axis (L/T)', &
701 'first anisotropy rotation angle (degrees)', &
720 'second anisotropy rotation angle (degrees)', &
739 'third anisotropy rotation angle (degrees)', &
758 'wetdry threshold and factor', &
This module contains simulation constants.
integer(i4b), parameter lenvarname
maximum length of a variable name