15 logical :: continue = .false.
16 logical :: nocheck = .false.
17 logical :: prmem = .false.
18 logical :: maxerrors = .false.
19 logical :: print_input = .false.
20 logical :: hpc_filerecord = .false.
21 logical :: hpc6 = .false.
22 logical :: filein = .false.
23 logical :: hpc6_filename = .false.
24 logical :: tdis6 = .false.
25 logical :: mtype = .false.
26 logical :: mfname = .false.
27 logical :: mname = .false.
28 logical :: exgtype = .false.
29 logical :: exgfile = .false.
30 logical :: exgmnamea = .false.
31 logical :: exgmnameb = .false.
32 logical :: mxiter = .false.
33 logical :: slntype = .false.
34 logical :: slnfname = .false.
35 logical :: slnmnames = .false.
40 character(len=16),
parameter :: &
56 'continue if not converged', &
74 'turn off checking', &
88 'MEMORY_PRINT_OPTION', &
92 'memory print option', &
110 'maximum number of errors', &
128 'print input to listing file', &
144 'RECORD HPC6 FILEIN HPC6_FILENAME', &
200 'file name of time series information', &
218 'name of tdis input file', &
254 'file name for model name file', &
308 'input file for exchange', &
362 'maximum solution group iterations', &
380 'type of solution', &
398 'file name for solution input', &
416 'array of model names in this solution', &
458 'RECARRAY MTYPE MFNAME MNAME', &
476 'RECARRAY EXGTYPE EXGFILE EXGMNAMEA EXGMNAMEB', &
478 'list of exchanges', &
494 'RECARRAY SLNTYPE SLNFNAME SLNMNAMES', &
496 'solution type and models in the solution', &
This module contains simulation constants.
integer(i4b), parameter lenvarname
maximum length of a variable name