16 logical :: auxiliary = .false.
17 logical :: boundnames = .false.
18 logical :: iprpak = .false.
19 logical :: iprflow = .false.
20 logical :: ipakcb = .false.
21 logical :: cell_averaging = .false.
22 logical :: cvoptions = .false.
23 logical :: variablecv = .false.
24 logical :: dewatered = .false.
25 logical :: newton = .false.
26 logical :: xt3d = .false.
27 logical :: gnc_filerecord = .false.
28 logical :: filein = .false.
29 logical :: gnc6 = .false.
30 logical :: gnc6_filename = .false.
31 logical :: mvr_filerecord = .false.
32 logical :: mvr6 = .false.
33 logical :: mvr6_filename = .false.
34 logical :: obs_filerecord = .false.
35 logical :: obs6 = .false.
36 logical :: obs6_filename = .false.
37 logical :: dev_ifmod_on = .false.
38 logical :: nexg = .false.
39 logical :: cellidm1 = .false.
40 logical :: cellidm2 = .false.
41 logical :: ihc = .false.
42 logical :: cl1 = .false.
43 logical :: cl2 = .false.
44 logical :: hwva = .false.
45 logical :: auxvar = .false.
46 logical :: boundname = .false.
52 character(len=16),
parameter :: &
68 'keyword to specify aux variables', &
106 'keyword to print input to list file', &
125 'keyword to print gwfgwf flows to list file', &
144 'keyword to save GWFGWF flows', &
163 'conductance weighting option', &
180 'RECORD VARIABLECV DEWATERED', &
182 'vertical conductance options', &
201 'keyword to activate VARIABLECV option', &
220 'keyword to activate DEWATERED option', &
239 'keyword to activate Newton-Raphson', &
258 'keyword to activate XT3D', &
275 'RECORD GNC6 FILEIN GNC6_FILENAME', &
334 'gnc6 input filename', &
351 'RECORD MVR6 FILEIN MVR6_FILENAME', &
391 'mvr6 input filename', &
408 'RECORD OBS6 FILEIN OBS6_FILENAME', &
448 'obs6 input filename', &
463 'DEV_INTERFACEMODEL_ON', &
467 'activate interface model on exchange', &
486 'number of exchanges', &
505 'cellid of first cell', &
524 'cellid of second cell', &
543 'integer flag for connection type', &
562 'connection distance', &
581 'connection distance', &
600 'horizontal cell width or area for vertical flow', &
619 'auxiliary variables', &
638 'exchange boundname', &
691 'RECARRAY CELLIDM1 CELLIDM2 IHC CL1 CL2 HWVA AUX BOUNDNAME', &
This module contains simulation constants.
integer(i4b), parameter lenvarname
maximum length of a variable name