c$Author: fredfox $
c$Date: 2001-11-21 22:38:06 $
c$Revision: 1.1 $
c$Source: /weru/cvs/weps/weps.src/hydro/set_prevday_blk.for,v $

      subroutine set_prevday_blk( nlay, bsdblk, bsdblk0 )

c     + + + PURPOSE + + +
c     This subroutine sets the previous day bulk density to the present
c     day bulk density

c     + + + KEYWORDS + + +
c     bulk density

c     + + + ARGUMENT DECLARATIONS + + +
      integer nlay
      real bsdblk(*), bsdblk0(*)

c     + + + ARGUMENT DEFINITIONS + + +
c     nlay     - number of soil layers to be updated
c     bsdblk   - bulk density (Mg/m^3)

c     + + + LOCAL VARIABLES + + +
      integer lay

c     + + + END SPECIFICATIONS + + + 

      do lay = 1,nlay
          bsdblk0(lay) = bsdblk(lay)
      end do

      end