15 logical :: icentral = .false.
16 logical :: lengthconv = .false.
17 logical :: timeconv = .false.
18 logical :: ipakcb = .false.
19 logical :: iprflow = .false.
20 logical :: isavvelocity = .false.
21 logical :: obs_filerecord = .false.
22 logical :: obs6 = .false.
23 logical :: filein = .false.
24 logical :: obs6_filename = .false.
25 logical :: export_ascii = .false.
26 logical :: iswrcond = .false.
27 logical :: manningsn = .false.
28 logical :: idcxs = .false.
33 character(len=16),
parameter :: &
49 'use central in space weighting', &
63 'LENGTH_CONVERSION', &
67 'length conversion factor', &
85 'time conversion factor', &
103 'keyword to save DFW flows', &
121 'keyword to print DFW flows to listing file', &
139 'keyword to save velocity', &
155 'RECORD OBS6 FILEIN OBS6_FILENAME', &
211 'obs6 input filename', &
225 'EXPORT_ARRAY_ASCII', &
229 'export array variables to layered ascii files.', &
243 'DEV_SWR_CONDUCTANCE', &
247 'use SWR conductance formulation', &
265 'mannings roughness coefficient', &
283 'cross section number', &
This module contains simulation constants.
integer(i4b), parameter lenvarname
maximum length of a variable name