16 logical :: continue = .false.
17 logical :: nocheck = .false.
18 logical :: prmem = .false.
19 logical :: prprof = .false.
20 logical :: maxerrors = .false.
21 logical :: print_input = .false.
22 logical :: hpc_filerecord = .false.
23 logical :: hpc6 = .false.
24 logical :: filein = .false.
25 logical :: hpc6_filename = .false.
26 logical :: tdis6 = .false.
27 logical :: mtype = .false.
28 logical :: mfname = .false.
29 logical :: mname = .false.
30 logical :: exgtype = .false.
31 logical :: exgfile = .false.
32 logical :: exgmnamea = .false.
33 logical :: exgmnameb = .false.
34 logical :: mxiter = .false.
35 logical :: slntype = .false.
36 logical :: slnfname = .false.
37 logical :: slnmnames = .false.
43 character(len=16),
parameter :: &
59 'continue if not converged', &
78 'turn off checking', &
93 'MEMORY_PRINT_OPTION', &
97 'memory print option', &
116 'profiling option', &
135 'maximum number of errors', &
154 'print input to listing file', &
171 'RECORD HPC6 FILEIN HPC6_FILENAME', &
230 'file name of time series information', &
249 'name of tdis input file', &
287 'file name for model name file', &
344 'input file for exchange', &
401 'maximum solution group iterations', &
420 'type of solution', &
439 'file name for solution input', &
458 'array of model names in this solution', &
502 'RECARRAY MTYPE MFNAME MNAME', &
521 'RECARRAY EXGTYPE EXGFILE EXGMNAMEA EXGMNAMEB', &
523 'list of exchanges', &
540 'RECARRAY SLNTYPE SLNFNAME SLNMNAMES', &
542 'solution type and models in the solution', &
This module contains simulation constants.
integer(i4b), parameter lenvarname
maximum length of a variable name