15     logical :: readasarrays = .false.
 
   16     logical :: fixed_cell = .false.
 
   17     logical :: auxiliary = .false.
 
   18     logical :: auxmultname = .false.
 
   19     logical :: iprpak = .false.
 
   20     logical :: iprflow = .false.
 
   21     logical :: ipakcb = .false.
 
   22     logical :: tas_filerecord = .false.
 
   23     logical :: tas6 = .false.
 
   24     logical :: filein = .false.
 
   25     logical :: tas6_filename = .false.
 
   26     logical :: obs_filerecord = .false.
 
   27     logical :: obs6 = .false.
 
   28     logical :: obs6_filename = .false.
 
   29     logical :: export_nc = .false.
 
   30     logical :: ievt = .false.
 
   31     logical :: surface = .false.
 
   32     logical :: rate = .false.
 
   33     logical :: depth = .false.
 
   34     logical :: auxvar = .false.
 
   39   character(len=16), 
parameter :: &
 
   55     'use array-based input', & 
 
   74     'if cell is dry do not apply evapotranspiration to underlying cell', & 
 
   93     'keyword to specify aux variables', & 
 
  112     'name of auxiliary variable for multiplier', & 
 
  131     'print input to listing file', & 
 
  150     'print evapotranspiration rates to listing file', & 
 
  169     'save CHD flows to budget file', & 
 
  186     'RECORD TAS6 FILEIN TAS6_FILENAME', & 
 
  245     'file name of time series information', & 
 
  262     'RECORD OBS6 FILEIN OBS6_FILENAME', & 
 
  302     'obs6 input filename', & 
 
  317     'EXPORT_ARRAY_NETCDF', & 
 
  321     'export array variables to netcdf output files.', & 
 
  340     'layer number for evapotranspiration', & 
 
  359     'evapotranspiration surface', & 
 
  378     'evapotranspiration surface', & 
 
  397     'extinction depth', & 
 
  416     'evapotranspiration auxiliary variable iaux', & 
 
This module contains simulation constants.
integer(i4b), parameter lenvarname
maximum length of a variable name