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 '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)

      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), acxstm(isr)

      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, adxstm(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, adxstm(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, adxstm(3,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

      end