!$Author: joelevin $
!$Date: 2011-03-24 11:33:26 -0500 (Thu, 24 Mar 2011) $
!$Revision: 11724 $
!$HeadURL: https://svn.weru.ksu.edu/weru/weps1/trunk/weps.src/src/lib_hydro/set_prevday_blk.for $

      subroutine set_prevday_blk( nlay, bsdblk, bsdblk0 )

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

!     + + + KEYWORDS + + +
!     bulk density

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

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

!     + + + LOCAL VARIABLES + + +
      integer lay

!     + + + END SPECIFICATIONS + + + 

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

      end