!$Author: fredfox $
!$Date: 2005-03-17 23:06:14 $
!$Revision: 1.1 $
!$Source: /weru/cvs/weps/weps.src/manage/poolmass.for,v $
      real function poolmass(                                           &
     &           mstandstem, mstandleaf, mstandstore,                   &
     &           mflatstem, mflatleaf, mflatstore,                      &
     &           mflatrootstore, mflatrootfiber,                        &
     &           mbgstemz, mbgleafz, mbgstorez,                         &
     &           mbgrootstorez, mbgrootfiberz )

!     + + + PARAMETERS AND COMMON BLOCKS + + +
      include 'p1werm.inc'

!     + + + VARIABLE DECLARATIONS + + +

      ! state variables
      real mstandstem
      real mstandleaf
      real mstandstore

      real mflatstem
      real mflatleaf
      real mflatstore

      real mflatrootstore
      real mflatrootfiber

      real mbgstemz(mnsz)
      real mbgleafz(mnsz)
      real mbgstorez(mnsz)

      real mbgrootstorez(mnsz)
      real mbgrootfiberz(mnsz)

!     + + + PURPOSE + + +
      ! sums the total biomass contained in a pool from some of the
      ! state variables and some of the derived variables

!     + + + VARIABLE DEFINITIONS + + +

!     mstandstem  - standing stem mass (kg/m^2)
!     mstandleaf  - standing leaf mass (kg/m^2)
!     mstandstore - standing storage mass (kg/m^2)b

!     mflatstem  - flat stem mass (kg/m^2)
!     mflatleaf  - flat leaf mass (kg/m^2)
!     mflatstore - flat storage mass (kg/m^2)

!     mflatstore - flat storage root mass (kg/m^2)
!     mflatfiber - flat fibrous root mass (kg/m^2)

!     mbgstemz  - buried stem mass by layer (kg/m^2)
!     mbgleafz  - buried leaf mass by layer (kg/m^2)
!     mbgstorez - buried (from above ground) storage mass by layer (kg/m^2)

!     mbgrootstorez - buried storage root mass by layer (kg/m^2)
!     mbgrootfiberz - buried fibrous root mass by layer (kg/m^2)

!     + + + LOCAL VARIABLES + + +
      integer idx
      real mass

!     + + + LOCAL VARIABLE DEFINITIONS + + +
!     idx     - layer counter
!     mass    - summation variable for poolmass

      ! sum all above ground biomass pools
      mass = mstandstem + mstandleaf + mstandstore                      &
     &     + mflatstem + mflatleaf + mflatstore                         &
     &     + mflatrootstore + mflatrootfiber

      ! add in below ground biomass pools
      do idx = 1, mnsz
          mass = mass + mbgstemz(idx) + mbgleafz(idx) + mbgstorez(idx)  &
     &         + mbgrootstorez(idx) + mbgrootfiberz(idx)
      end do
      poolmass = mass

      return
      end