15 logical :: save_flows = .false.
16 logical :: budfilerec = .false.
17 logical :: budget = .false.
18 logical :: fileout = .false.
19 logical :: budgetfile = .false.
20 logical :: budcsvfilerec = .false.
21 logical :: budgetcsv = .false.
22 logical :: budgetcsvfile = .false.
23 logical :: sorption = .false.
24 logical :: order1_decay = .false.
25 logical :: order0_decay = .false.
26 logical :: cimfilerec = .false.
27 logical :: cimopt = .false.
28 logical :: cimfile = .false.
29 logical :: cimprintrecord = .false.
30 logical :: print_format = .false.
31 logical :: formatrecord = .false.
32 logical :: columns = .false.
33 logical :: width = .false.
34 logical :: digits = .false.
35 logical :: format = .false.
36 logical :: sorbatefilerec = .false.
37 logical :: sorbate = .false.
38 logical :: sorbatefile = .false.
39 logical :: export_ascii = .false.
40 logical :: export_nc = .false.
41 logical :: porosity = .false.
42 logical :: volfrac = .false.
43 logical :: zetaim = .false.
44 logical :: cim = .false.
45 logical :: decay = .false.
46 logical :: decay_sorbed = .false.
47 logical :: bulk_density = .false.
48 logical :: distcoef = .false.
49 logical :: sp2 = .false.
54 character(len=16),
parameter :: &
70 'save calculated flows to budget file', &
85 'BUDGET_FILERECORD', &
87 'RECORD BUDGET FILEOUT BUDGETFILE', &
161 'BUDGETCSV_FILERECORD', &
163 'RECORD BUDGETCSV FILEOUT BUDGETCSVFILE', &
222 'activate sorption', &
237 'FIRST_ORDER_DECAY', &
241 'activate first-order decay', &
256 'ZERO_ORDER_DECAY', &
260 'activate zero-order decay', &
277 'RECORD CIM FILEOUT CIMFILE', &
334 'RECORD CIM PRINT_FORMAT FORMATRECORD', &
355 'keyword to indicate that a print format follows', &
372 'RECORD COLUMNS WIDTH DIGITS FORMAT', &
393 'number of columns', &
412 'width for each number', &
431 'number of digits', &
465 'SORBATE_FILERECORD', &
467 'RECORD SORBATE FILEOUT SORBATEFILE', &
522 'EXPORT_ARRAY_ASCII', &
526 'export array variables to layered ascii files.', &
541 'EXPORT_ARRAY_NETCDF', &
545 'export array variables to netcdf output files.', &
564 'porosity of the immobile domain', &
583 'volume fraction of this immobile domain', &
602 'mass transfer rate coefficient between the mobile and immobile domains', &
621 'initial concentration of the immobile domain', &
640 'first rate coefficient', &
659 'second rate coefficient', &
697 'distribution coefficient', &
716 'second sorption parameter', &
This module contains simulation constants.
integer(i4b), parameter lenvarname
maximum length of a variable name