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 :: ihighcellsat = .false.
32 logical :: isavspdis = .false.
33 logical :: isavsat = .false.
34 logical :: ik22overk = .false.
35 logical :: ik33overk = .false.
36 logical :: tvk_filerecord = .false.
37 logical :: tvk6 = .false.
38 logical :: filein = .false.
39 logical :: tvk6_filename = .false.
40 logical :: export_ascii = .false.
41 logical :: export_nc = .false.
42 logical :: inewton = .false.
43 logical :: satomega = .false.
44 logical :: icelltype = .false.
45 logical :: k = .false.
46 logical :: k22 = .false.
47 logical :: k33 = .false.
48 logical :: angle1 = .false.
49 logical :: angle2 = .false.
50 logical :: angle3 = .false.
51 logical :: wetdry = .false.
56 character(len=16),
parameter :: &
72 'keyword to save NPF flows', &
91 'keyword to print NPF flows to listing file', &
106 'ALTERNATIVE_CELL_AVERAGING', &
110 'conductance weighting option', &
129 'keyword to activate THICKSTRT option', &
146 'RECORD VARIABLECV DEWATERED', &
148 'vertical conductance options', &
167 'keyword to activate VARIABLECV option', &
186 'keyword to activate DEWATERED option', &
205 'keyword to activate PERCHED option', &
222 'RECORD REWET WETFCT IWETIT IHDWET', &
243 'keyword to activate rewetting', &
262 'wetting factor to use for rewetting', &
281 'interval to use for rewetting', &
300 'flag to determine wetting equation', &
319 'keyword to activate XT3D', &
338 'keyword to activate XT3D', &
357 'keyword to XT3D on right hand side', &
372 'HIGHEST_CELL_SATURATION', &
376 'keyword to activate HIGHEST_CELL_SATURATION option', &
391 'SAVE_SPECIFIC_DISCHARGE', &
395 'keyword to save specific discharge', &
414 'keyword to save saturation', &
433 'keyword to indicate that specified K22 is a ratio', &
452 'keyword to indicate that specified K33 is a ratio', &
469 'RECORD TVK6 FILEIN TVK6_FILENAME', &
528 'file name of TVK information', &
543 'EXPORT_ARRAY_ASCII', &
547 'export array variables to layered ascii files.', &
562 'EXPORT_ARRAY_NETCDF', &
566 'export array variables to netcdf output files.', &
585 'turn off Newton for unconfined cells', &
604 'set saturation omega value', &
623 'confined or convertible indicator', &
642 'hydraulic conductivity (L/T)', &
661 'hydraulic conductivity of second ellipsoid axis', &
680 'hydraulic conductivity of third ellipsoid axis (L/T)', &
699 'first anisotropy rotation angle (degrees)', &
718 'second anisotropy rotation angle (degrees)', &
737 'third anisotropy rotation angle (degrees)', &
756 'wetdry threshold and factor', &
This module contains simulation constants.
integer(i4b), parameter lenvarname
maximum length of a variable name