C print out many of the biomass pool components (used for debugging purposes)

      subroutine bpools (cd,cm,cy,isr)

	  integer cd,cm,cy,isr

      include 'p1werm.inc'
      include 'file.fi'
      include 'm1flag.inc'
      include 'b1glob.inc'
      include 'd1glob.inc'
      include 'c1glob.inc'
      include 'c1db1.inc'
	  include 'decomp/decomp.inc'

1234     format (3i3,16f10.3)
2345     format (3i3,3f10.5,13f10.3)

      if ((am0dfl .eq. 1).or.(am0dfl.eq.3)) then
          write(luocrp1,2345) cd, cm, cy,
     &    acffcv(isr), acfscv(isr), acftcv(isr),
     &    accovfact(isr), acrsai(isr), acrlai(isr),
     &    acm(isr), 0.0, acmst(isr),
     &    acmrt(isr), 0.0, acmyld(isr),
     &    acdstm(isr), aczht(isr), aczrtd(isr), acxstmrep(isr)

          write(luobio1,2345) cd, cm, cy,
     &    abffcv(isr), abfscv(isr), abftcv(isr),
     &    0.0, abrsai(isr), abrlai(isr),
     &    abm(isr), abmf(isr), abmst(isr),
     &    abmrt(isr), abmbg(isr), abmyld(isr),
     &    abdstm(isr), abzht(isr), 0.0, 0.0
      endif

      if ((am0dfl .eq. 2).or.(am0dfl.eq.3)) then
          write(luodec1,2345) cd, cm, cy,
     &    adffcv(1,isr), adfscv(1,isr), adftcv(1,isr),
     &    covfact(1,isr), adrsai(1,isr), adrlai(1,isr),
     &    adm(1,isr), admf(1,isr), admst(1,isr),
     &    admrt(1,isr), admbg(1,isr), 0.0,
     &    addstm(1,isr), adzht(1,isr), 0.0, adxstmrep(1,isr)

          write(luodec2,2345) cd, cm, cy,
     &    adffcv(2,isr), adfscv(2,isr), adftcv(2,isr),
     &    covfact(2,isr), adrsai(2,isr), adrlai(2,isr),
     &    adm(2,isr), admf(2,isr), admst(2,isr),
     &    admrt(2,isr), admbg(2,isr), 0.0,
     &    addstm(2,isr), adzht(2,isr), 0.0, adxstmrep(2,isr)

          write(luodec3,2345) cd, cm, cy,
     &    adffcv(3,isr), adfscv(3,isr), adftcv(3,isr),
     &    covfact(3,isr), adrsai(3,isr), adrlai(3,isr),
     &    adm(3,isr), admf(3,isr), admst(3,isr),
     &    admrt(3,isr), admbg(3,isr), 0.0,
     &    addstm(3,isr), adzht(3,isr), 0.0, adxstmrep(3,isr)
      endif

      end