16 logical :: save_flows = .false.
17 logical :: budfilerec = .false.
18 logical :: budget = .false.
19 logical :: fileout = .false.
20 logical :: budgetfile = .false.
21 logical :: budcsvfilerec = .false.
22 logical :: budgetcsv = .false.
23 logical :: budgetcsvfile = .false.
24 logical :: sorption = .false.
25 logical :: order1_decay = .false.
26 logical :: order0_decay = .false.
27 logical :: cimfilerec = .false.
28 logical :: cimopt = .false.
29 logical :: cimfile = .false.
30 logical :: cimprintrecord = .false.
31 logical :: print_format = .false.
32 logical :: formatrecord = .false.
33 logical :: columns = .false.
34 logical :: width = .false.
35 logical :: digits = .false.
36 logical :: format = .false.
37 logical :: sorbatefilerec = .false.
38 logical :: sorbate = .false.
39 logical :: sorbatefile = .false.
40 logical :: export_ascii = .false.
41 logical :: export_nc = .false.
42 logical :: porosity = .false.
43 logical :: volfrac = .false.
44 logical :: zetaim = .false.
45 logical :: cim = .false.
46 logical :: decay = .false.
47 logical :: decay_sorbed = .false.
48 logical :: bulk_density = .false.
49 logical :: distcoef = .false.
50 logical :: sp2 = .false.
56 character(len=16),
parameter :: &
72 'save calculated flows to budget file', &
87 'BUDGET_FILERECORD', &
89 'RECORD BUDGET FILEOUT BUDGETFILE', &
163 'BUDGETCSV_FILERECORD', &
165 'RECORD BUDGETCSV FILEOUT BUDGETCSVFILE', &
224 'activate sorption', &
239 'FIRST_ORDER_DECAY', &
243 'activate first-order decay', &
258 'ZERO_ORDER_DECAY', &
262 'activate zero-order decay', &
279 'RECORD CIM FILEOUT CIMFILE', &
336 'RECORD CIM PRINT_FORMAT FORMATRECORD', &
357 'keyword to indicate that a print format follows', &
374 'RECORD COLUMNS WIDTH DIGITS FORMAT', &
395 'number of columns', &
414 'width for each number', &
433 'number of digits', &
467 'SORBATE_FILERECORD', &
469 'RECORD SORBATE FILEOUT SORBATEFILE', &
524 'EXPORT_ARRAY_ASCII', &
528 'export array variables to layered ascii files.', &
543 'EXPORT_ARRAY_NETCDF', &
547 'export array variables to netcdf output files.', &
566 'porosity of the immobile domain', &
585 'volume fraction of this immobile domain', &
604 'mass transfer rate coefficient between the mobile and '// &
605 'immobile domains', &
624 'initial concentration of the immobile domain', &
643 'first rate coefficient', &
662 'second rate coefficient', &
700 'distribution coefficient', &
719 'second sorption parameter', &
This module contains simulation constants.
integer(i4b), parameter lenvarname
maximum length of a variable name