16 logical :: icentral = .false.
17 logical :: lengthconv = .false.
18 logical :: timeconv = .false.
19 logical :: ipakcb = .false.
20 logical :: iprflow = .false.
21 logical :: isavvelocity = .false.
22 logical :: obs_filerecord = .false.
23 logical :: obs6 = .false.
24 logical :: filein = .false.
25 logical :: obs6_filename = .false.
26 logical :: export_ascii = .false.
27 logical :: iswrcond = .false.
28 logical :: manningsn = .false.
29 logical :: idcxs = .false.
35 character(len=16),
parameter :: &
51 'use central in space weighting', &
66 'LENGTH_CONVERSION', &
70 'length conversion factor', &
89 'time conversion factor', &
108 'keyword to save DFW flows', &
127 'keyword to print DFW flows to listing file', &
146 'keyword to save velocity', &
163 'RECORD OBS6 FILEIN OBS6_FILENAME', &
222 'obs6 input filename', &
237 'EXPORT_ARRAY_ASCII', &
241 'export array variables to layered ascii files.', &
256 'DEV_SWR_CONDUCTANCE', &
260 'use SWR conductance formulation', &
279 'mannings roughness coefficient', &
298 'cross section number', &
This module contains simulation constants.
integer(i4b), parameter lenvarname
maximum length of a variable name