15 logical :: boundnames = .false.
16 logical :: iprpak = .false.
17 logical :: iexmeth = .false.
18 logical :: extol = .false.
19 logical :: local_z = .false.
20 logical :: extend_tracking = .false.
21 logical :: track_filerecord = .false.
22 logical :: track = .false.
23 logical :: fileout = .false.
24 logical :: trackfile = .false.
25 logical :: trackcsvfr = .false.
26 logical :: trackcsv = .false.
27 logical :: trackcsvfile = .false.
28 logical :: stoptime = .false.
29 logical :: stoptraveltime = .false.
30 logical :: istopweaksink = .false.
31 logical :: istopzone = .false.
32 logical :: drape = .false.
33 logical :: releasetr = .false.
34 logical :: release_times = .false.
35 logical :: times = .false.
36 logical :: release_timesfr = .false.
37 logical :: release_timesfn = .false.
38 logical :: timesfile = .false.
39 logical :: idrymeth = .false.
40 logical :: ifrctrn = .false.
41 logical :: rttol = .false.
42 logical :: rtfreq = .false.
43 logical :: ichkmeth = .false.
44 logical :: icycwin = .false.
45 logical :: nreleasepts = .false.
46 logical :: nreleasetimes = .false.
47 logical :: irptno = .false.
48 logical :: cellid = .false.
49 logical :: xrpt = .false.
50 logical :: yrpt = .false.
51 logical :: zrpt = .false.
52 logical :: boundname = .false.
53 logical :: time = .false.
54 logical :: releasesetting = .false.
55 logical :: all = .false.
56 logical :: first = .false.
57 logical :: last = .false.
58 logical :: frequency = .false.
59 logical :: steps = .false.
60 logical :: fraction = .false.
65 character(len=16),
parameter :: &
99 'print input to listing file', &
113 'DEV_EXIT_SOLVE_METHOD', &
117 'exit solve method', &
131 'EXIT_SOLVE_TOLERANCE', &
135 'exit solve tolerance', &
153 'whether to use local z coordinates', &
171 'whether to extend tracking beyond the end of the simulation', &
185 'TRACK_FILERECORD', &
186 'TRACK_FILERECORD', &
187 'RECORD TRACK FILEOUT TRACKFILE', &
257 'TRACKCSV_FILERECORD', &
259 'RECORD TRACKCSV FILEOUT TRACKCSVFILE', &
333 'stop travel time', &
347 'STOP_AT_WEAK_SINK', &
351 'stop at weak sink', &
369 'stop zone number', &
401 'RELEASE_TIMESRECORD', &
403 'RECORD RELEASE_TIMES TIMES', &
455 'RELEASE_TIMESFILERECORD', &
457 'RECORD RELEASE_TIMESFILE TIMESFILE', &
473 'RELEASE_TIMESFILE', &
509 'DRY_TRACKING_METHOD', &
513 'what to do in dry-but-active cells', &
527 'DEV_FORCETERNARY', &
531 'force ternary tracking method', &
545 'RELEASE_TIME_TOLERANCE', &
549 'release time coincidence tolerance', &
563 'RELEASE_TIME_FREQUENCY', &
567 'release time frequency', &
581 'COORDINATE_CHECK_METHOD', &
585 'coordinate checking method', &
599 'DEV_CYCLE_DETECTION_WINDOW', &
603 'cycle detection window size', &
621 'number of particle release points', &
639 'number of particle release times', &
657 'PRP id number for release point', &
693 'x coordinate of release point', &
711 'y coordinate of release point', &
729 'z coordinate of release point', &
747 'release point name', &
781 'KEYSTRING ALL FIRST LAST FREQUENCY STEPS FRACTION', &
958 'RECARRAY IRPTNO CELLID XRPT YRPT ZRPT BOUNDNAME', &
994 'RECARRAY RELEASESETTING', &
This module contains simulation constants.
integer(i4b), parameter lenvarname
maximum length of a variable name