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', &
75 'turn off checking', &
89 'MEMORY_PRINT_OPTION', &
93 'memory print option', &
111 'profiling option', &
129 'maximum number of errors', &
147 'print input to listing file', &
163 'RECORD HPC6 FILEIN HPC6_FILENAME', &
219 'file name of time series information', &
237 'name of tdis input file', &
273 'file name for model name file', &
327 'input file for exchange', &
381 'maximum solution group iterations', &
399 'type of solution', &
417 'file name for solution input', &
435 'array of model names in this solution', &
478 'RECARRAY MTYPE MFNAME MNAME', &
496 'RECARRAY EXGTYPE EXGFILE EXGMNAMEA EXGMNAMEB', &
498 'list of exchanges', &
514 'RECARRAY SLNTYPE SLNFNAME SLNMNAMES', &
516 'solution type and models in the solution', &
This module contains simulation constants.
integer(i4b), parameter lenvarname
maximum length of a variable name