c***********************************************************************
c
c include file: htemp.inc
c
c***********************************************************************
c
c must include 'p1werm.inc'
c
c***********************************************************************
c
c Global hydro variables (local to hydro submodel)
c This arrays used for temporary storage of soil prperties when the
c HYDROLOGY submodel is called.  At that time, the thicknesses of the two
c uppermost simulation layers are 10 and 40 mm, respectively.  These two
c layers are combined in the so that the thickness of the uppermost
c is 50 mm.  This is done to incease the speed of computatiopns and to
c reduce the potential for errors.
c***********************************************************************

c                    Depth to bottom of soil layer from surface (m)
      real tdlayr(mnsz)
c                    Soil bulk density (mg/m^3)
      real tbd(mnsz)
c                    Soil water content (mg/mg)
      real tmc(mnsz)
c                    Soil water content at saturation (mg/mg)
      real tmcs(mnsz)
c                    Soil water content at field capacity (mg/mg)
      real tmcfc(mnsz)
c                    Soil water content at wilting point (mg/mg)
      real tmcwp(mnsz)
c                 Power of campbell's water release curve model (unitless)
      real tcb(mnsz)
c                   Soil air entry potential (j/kg)
      real tpote(mnsz)
c                   Sand fraction
      real tsand(mnsz)
c                   Saturated hydraulic conductivity (m/s)
      real tsatk(mnsz)
c                   Silt fraction
      real tsilt(mnsz)
c                   Clay fraction
      real tclay(mnsz)
c-----------------------------------------------------------------------
      common /sprop/ tdlayr, tbd, tmc, tmcs, tmcfc, tmcwp, tcb, tpote,
     &               tsatk, tsand, tsilt, tclay