15 logical :: auxiliary = .false.
16 logical :: boundnames = .false.
17 logical :: iprpak = .false.
18 logical :: iprflow = .false.
19 logical :: ipakcb = .false.
20 logical :: cell_averaging = .false.
21 logical :: cvoptions = .false.
22 logical :: variablecv = .false.
23 logical :: dewatered = .false.
24 logical :: newton = .false.
25 logical :: xt3d = .false.
26 logical :: gnc_filerecord = .false.
27 logical :: filein = .false.
28 logical :: gnc6 = .false.
29 logical :: gnc6_filename = .false.
30 logical :: mvr_filerecord = .false.
31 logical :: mvr6 = .false.
32 logical :: mvr6_filename = .false.
33 logical :: obs_filerecord = .false.
34 logical :: obs6 = .false.
35 logical :: obs6_filename = .false.
36 logical :: dev_ifmod_on = .false.
37 logical :: nexg = .false.
38 logical :: cellidm1 = .false.
39 logical :: cellidm2 = .false.
40 logical :: ihc = .false.
41 logical :: cl1 = .false.
42 logical :: cl2 = .false.
43 logical :: hwva = .false.
44 logical :: auxvar = .false.
45 logical :: boundname = .false.
50 character(len=16),
parameter :: &
66 'keyword to specify aux variables', &
102 'keyword to print input to list file', &
120 'keyword to print gwfgwf flows to list file', &
138 'keyword to save GWFGWF flows', &
156 'conductance weighting option', &
172 'RECORD VARIABLECV DEWATERED', &
174 'vertical conductance options', &
192 'keyword to activate VARIABLECV option', &
210 'keyword to activate DEWATERED option', &
228 'keyword to activate Newton-Raphson', &
246 'keyword to activate XT3D', &
262 'RECORD GNC6 FILEIN GNC6_FILENAME', &
318 'gnc6 input filename', &
334 'RECORD MVR6 FILEIN MVR6_FILENAME', &
372 'mvr6 input filename', &
388 'RECORD OBS6 FILEIN OBS6_FILENAME', &
426 'obs6 input filename', &
440 'DEV_INTERFACEMODEL_ON', &
444 'activate interface model on exchange', &
462 'number of exchanges', &
480 'cellid of first cell', &
498 'cellid of second cell', &
516 'integer flag for connection type', &
534 'connection distance', &
552 'connection distance', &
570 'horizontal cell width or area for vertical flow', &
588 'auxiliary variables', &
606 'exchange boundname', &
658 'RECARRAY CELLIDM1 CELLIDM2 IHC CL1 CL2 HWVA AUX BOUNDNAME', &
This module contains simulation constants.
integer(i4b), parameter lenvarname
maximum length of a variable name