c
c
      subroutine flat
     i              (fltcoef,
     i               dstand,dflat,
     i               stand,
     i               bflg)


c     + + + PURPOSE + + +
c
c     This subroutine performs the biomass manipulation process of transfering
c     standing biomass to flat biomass based upon a flatening coefficient.
c
c
c     + + + KEYWORDS + + +
c     flatten, biomass manipulation

*$noreference
      include 'p1werm.inc'
*$reference
c
c     + + + ARGUMENT DECLARATIONS + + +
      integer bflg
      real    fltcoef,stand
      real    dflat(mnbpls),dstand(mnbpls)
c
c
c     + + + ARGUMENT DEFINITIONS + + +
c
c     dflat     - (decomp) flat residue pools (kg / m^2)
c     dstand    - (decomp) standing residue pools (kg/ m^2)
c     fltcoef   - flattening coefficient of an implement
c
c     + + + ACCESSED COMMON BLOCK VARIABLE DEFINITIONS + + +
c
c     mnbpls        - max number of biomass pools
c
c     + + + PARAMETERS + + +
c
c     + + + LOCAL VARIABLES + + +
c
      integer  i
c
c     + + + LOCAL VARIABLE DEFINITIONS + + +
c
c     i         - biomass pools (1-3)
c
c     + + + END SPECIFICATIONS + + +
c
c     perform the flatting of standing residue based upon the flatten
c     coefficient (fltcoef)


c     perform the lifting and burying of biomass simulataneously


      if (BTEST(bflg,1)) then
c     okay, need to take standing crop and flatten it.  I will assume
c     that this kills it and transfer it to the 1'st residue pool.  This
c     is probably not quite right but I can't fing the correct variable
c     to put in into right now.  If we transfered the date of the biomass
c     this method would be correct (I think;-) ANH
        dflat(1) = dflat(1)+stand*fltcoef
        stand=stand*(1.0-fltcoef)
      endif
c
      do 100 i=2,mnbpls+1
       if (BTEST(bflg,i)) then
        dflat(i-1) = dflat(i-1)+dstand(i-1)*fltcoef
        dstand(i-1)=dstand(i-1)*(1.0-fltcoef)
       endif
100   continue

      end