C ***************************************************************

      real function acplwu (
     i                      awcr,
     i                      wup)

c     + + + PURPOSE + + +

c     acplwu - Actual water use rate from soil layer (mm/day)

c     + + + ARGUMENT DECLARATIONS + + +

      real awcr, wup


c     + + + ARGUMENT DEFINITIONS + + +

c     awcr   - Relative available soil wc, fraction (0-1.0)
c     wup    - Potential water use rate from soil layer (mm/day)

c     + + + VARIABLE  DECLARATIONS + + +

      real awcr_crit
      parameter (awcr_crit = 0.70)

c     + + + VARIABLE  DEFINITIONS + + +

c     awcr_crit	- soil water content ratio below which
c                 plant transpiration is reduced 

c     + + + END SPECIFICATIONS + + +

      if (awcr .lt. awcr_crit) then
         acplwu = wup * awcr/awcr_crit
      else
         acplwu = wup
      endif

      end