15 logical :: gwfmodelname1 = .false.
16 logical :: gwfmodelname2 = .false.
17 logical :: auxiliary = .false.
18 logical :: boundnames = .false.
19 logical :: iprpak = .false.
20 logical :: iprflow = .false.
21 logical :: ipakcb = .false.
22 logical :: adv_scheme = .false.
23 logical :: dsp_xt3d_off = .false.
24 logical :: dsp_xt3d_rhs = .false.
25 logical :: filein = .false.
26 logical :: mvt_filerecord = .false.
27 logical :: mvt6 = .false.
28 logical :: mvt6_filename = .false.
29 logical :: obs_filerecord = .false.
30 logical :: obs6 = .false.
31 logical :: obs6_filename = .false.
32 logical :: dev_ifmod_on = .false.
33 logical :: nexg = .false.
34 logical :: cellidm1 = .false.
35 logical :: cellidm2 = .false.
36 logical :: ihc = .false.
37 logical :: cl1 = .false.
38 logical :: cl2 = .false.
39 logical :: hwva = .false.
40 logical :: auxvar = .false.
41 logical :: boundname = .false.
46 character(len=16),
parameter :: &
62 'keyword to specify name of first corresponding GWF Model', &
80 'keyword to specify name of second corresponding GWF Model', &
98 'keyword to specify aux variables', &
134 'keyword to print input to list file', &
152 'keyword to print gwfgwf flows to list file', &
170 'keyword to save GWFGWF flows', &
188 'advective scheme', &
224 'xt3d on right-hand side', &
258 'RECORD MVT6 FILEIN MVT6_FILENAME', &
296 'mvt6 input filename', &
312 'RECORD OBS6 FILEIN OBS6_FILENAME', &
350 'obs6 input filename', &
364 'DEV_INTERFACEMODEL_ON', &
368 'activate interface model on exchange', &
386 'number of exchanges', &
404 'cellid of first cell', &
422 'cellid of second cell', &
440 'integer flag for connection type', &
458 'connection distance', &
476 'connection distance', &
494 'horizontal cell width or area for vertical flow', &
512 'auxiliary variables', &
530 'exchange boundname', &
578 'RECARRAY CELLIDM1 CELLIDM2 IHC CL1 CL2 HWVA AUX BOUNDNAME', &
This module contains simulation constants.
integer(i4b), parameter lenvarname
maximum length of a variable name