15 logical :: hhform_rhs = .false.
16 logical :: denseref = .false.
17 logical :: density_fr = .false.
18 logical :: density = .false.
19 logical :: fileout = .false.
20 logical :: densityfile = .false.
21 logical :: dev_efh_form = .false.
22 logical :: nrhospecies = .false.
23 logical :: irhospec = .false.
24 logical :: drhodc = .false.
25 logical :: crhoref = .false.
26 logical :: modelname = .false.
27 logical :: auxspeciesname = .false.
32 character(len=16),
parameter :: &
44 'HHFORMULATION_RHS', &
48 'hh formulation on right-hand side', &
66 'reference density', &
80 'DENSITY_FILERECORD', &
82 'RECORD DENSITY FILEOUT DENSITYFILE', &
152 'DEV_EFH_FORMULATION', &
156 'use equivalent freshwater head formulation', &
174 'number of species used in density equation of state', &
192 'species number for this entry', &
210 'slope of the density-concentration line', &
228 'reference concentration value', &
298 'RECARRAY IRHOSPEC DRHODC CRHOREF MODELNAME AUXSPECIESNAME', &
This module contains simulation constants.
integer(i4b), parameter lenvarname
maximum length of a variable name