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', &
84 'BUDGET_FILERECORD', &
86 'RECORD BUDGET FILEOUT BUDGETFILE', &
156 'BUDGETCSV_FILERECORD', &
158 'RECORD BUDGETCSV FILEOUT BUDGETCSVFILE', &
214 'activate sorption', &
228 'FIRST_ORDER_DECAY', &
232 'activate first-order decay', &
246 'ZERO_ORDER_DECAY', &
250 'activate zero-order decay', &
266 'RECORD CIM FILEOUT CIMFILE', &
320 'RECORD CIM PRINT_FORMAT FORMATRECORD', &
340 'keyword to indicate that a print format follows', &
356 'RECORD COLUMNS WIDTH DIGITS FORMAT', &
376 'number of columns', &
394 'width for each number', &
412 'number of digits', &
444 'SORBATE_FILERECORD', &
446 'RECORD SORBATE FILEOUT SORBATEFILE', &
498 'EXPORT_ARRAY_ASCII', &
502 'export array variables to layered ascii files.', &
516 'EXPORT_ARRAY_NETCDF', &
520 'export array variables to netcdf output files.', &
538 'porosity of the immobile domain', &
556 'volume fraction of this immobile domain', &
574 'mass transfer rate coefficient between the mobile and immobile domains', &
592 'initial concentration of the immobile domain', &
610 'first rate coefficient', &
628 'second rate coefficient', &
664 'distribution coefficient', &
682 'second sorption parameter', &
This module contains simulation constants.
integer(i4b), parameter lenvarname
maximum length of a variable name