15 logical :: fixed_cell = .false.
16 logical :: auxiliary = .false.
17 logical :: auxmultname = .false.
18 logical :: boundnames = .false.
19 logical :: iprpak = .false.
20 logical :: iprflow = .false.
21 logical :: ipakcb = .false.
22 logical :: ts_filerecord = .false.
23 logical :: ts6 = .false.
24 logical :: filein = .false.
25 logical :: ts6_filename = .false.
26 logical :: obs_filerecord = .false.
27 logical :: obs6 = .false.
28 logical :: obs6_filename = .false.
29 logical :: surfratespec = .false.
30 logical :: maxbound = .false.
31 logical :: nseg = .false.
32 logical :: cellid = .false.
33 logical :: surface = .false.
34 logical :: rate = .false.
35 logical :: depth = .false.
36 logical :: pxdp = .false.
37 logical :: petm = .false.
38 logical :: petm0 = .false.
39 logical :: auxvar = .false.
40 logical :: boundname = .false.
45 character(len=16),
parameter :: &
61 'if cell is dry do not apply evapotranspiration to underlying cell', &
80 'keyword to specify aux variables', &
99 'name of auxiliary variable for multiplier', &
137 'print input to listing file', &
156 'print evapotranspiration rates to listing file', &
175 'save evapotranspiration rates to budget file', &
192 'RECORD TS6 FILEIN TS6_FILENAME', &
251 'file name of time series information', &
268 'RECORD OBS6 FILEIN OBS6_FILENAME', &
308 'obs6 input filename', &
323 'SURF_RATE_SPECIFIED', &
327 'specify proportion of evapotranspiration rate at ET surface', &
346 'maximum number of evapotranspiration cells', &
365 'number of ET segments', &
441 'ET extinction depth', &
460 'proportion of ET extinction depth', &
479 'proportion of maximum ET rate', &
498 'proportion of maximum ET rate at ET surface', &
517 'auxiliary variables', &
536 'evapotranspiration name', &
582 'STRESS_PERIOD_DATA', &
584 'RECARRAY CELLID SURFACE RATE DEPTH PXDP PETM PETM0 AUX BOUNDNAME', &
This module contains simulation constants.
integer(i4b), parameter lenvarname
maximum length of a variable name