!*==aa0001.spg  processed by SPAG 6.70Rc at 21:09 on  9 Dec 2012
      use c_b1glob
      implicit none
!*--AA00014
!
!*** Start of declarations rewritten by SPAG
!
! Local variables
!
      integer :: mncz,mnsub,mnsz
!
!*** End of declarations rewritten by SPAG
!
!$Author: joelevin $
!$Date: 2012-03-30 10:14:38 -0500 (Fri, 30 Mar 2012) $
!$Revision: 12163 $
!$HeadURL: https://eweru-dev1.eweru.ksu.edu/svn/code/weps1/branches/WEPS_F90_update/weps.src/src/inc/b1glob.inc $
!     ------------------------------------------------------------------
!     file 'b1glob.inc'
 
!     This common block contains variables representing the daily
!     updated biomass (live and dead) properties for each subregion.
!     These variables may be used to estimate other vegetative
!      geometric and mass properties.
!
!     All of these variables are updated within "main" on a daily
!     basis for erosion and outputs.  Only a "biomass update" process
!     is intended to modify these variables since they are all dependent
!     upon the individual live (crop) and dead (residue) biomass values.
 
!     Parameter include files:  p1werm.inc
 
!     + + + VARIABLE DECLARATIONS + + +
 
 
 
 
!      real             abmyld(mnsub) (removed)