15 logical :: continue = .false.
16 logical :: nocheck = .false.
17 logical :: prmem = .false.
18 logical :: prprof = .false.
19 logical :: maxerrors = .false.
20 logical :: print_input = .false.
21 logical :: hpc_filerecord = .false.
22 logical :: hpc6 = .false.
23 logical :: filein = .false.
24 logical :: hpc6_filename = .false.
25 logical :: tdis6 = .false.
26 logical :: mtype = .false.
27 logical :: mfname = .false.
28 logical :: mname = .false.
29 logical :: exgtype = .false.
30 logical :: exgfile = .false.
31 logical :: exgmnamea = .false.
32 logical :: exgmnameb = .false.
33 logical :: mxiter = .false.
34 logical :: slntype = .false.
35 logical :: slnfname = .false.
36 logical :: slnmnames = .false.
41 character(len=16),
parameter :: &
57 'continue if not converged', &
76 'turn off checking', &
91 'MEMORY_PRINT_OPTION', &
95 'memory print option', &
114 'profiling option', &
133 'maximum number of errors', &
152 'print input to listing file', &
169 'RECORD HPC6 FILEIN HPC6_FILENAME', &
228 'file name of time series information', &
247 'name of tdis input file', &
285 'file name for model name file', &
342 'input file for exchange', &
399 'maximum solution group iterations', &
418 'type of solution', &
437 'file name for solution input', &
456 'array of model names in this solution', &
500 'RECARRAY MTYPE MFNAME MNAME', &
519 'RECARRAY EXGTYPE EXGFILE EXGMNAMEA EXGMNAMEB', &
521 'list of exchanges', &
538 'RECARRAY SLNTYPE SLNFNAME SLNMNAMES', &
540 'solution type and models in the solution', &
This module contains simulation constants.
integer(i4b), parameter lenvarname
maximum length of a variable name