!*==aa0011.spg  processed by SPAG 6.70Rc at 21:09 on  9 Dec 2012
      use c_d1glob
      implicit none
!*--AA00114
!
!*** Start of declarations rewritten by SPAG
!
! Local variables
!
      integer :: mnbpls,mncz,mnsub,mnsz
!
!*** End of declarations rewritten by SPAG
!
 
!   + + + VARIABLE DEFINEITIONS + + +
 
!     ad0name - residue name
!     ad0sla - residue specific leaf area
!     ad0ck  - residue light extinction coeffficient (fraction)
!     adrbc  - residue burial class
!         1   o Fragile-very small (soybeans) residue
!         2   o Moderately tough-short (wheat) residue
!         3   o Non fragile-med (corn) residue
!         4   o Woody-large residue
!         5   o Gravel-rock
 
!     adxstm - Residue stem diameter (m)
!$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/d1glob.inc $
!     ------------------------------------------------------------------
!     file 'd1glob.inc'
 
!     This common block contains variables representing the daily
!     updated residue pool properties for each subregion.  These variables
!     may be used to estimate other residue geometric and mass properties.
 
!     The decomp submodel will maintain all of these variables
!     on a daily basis.  Any other processes that modify these
!     variables is responsible for making sure they are consistent,
!     ie., the total root mass equals the sum of the root mass in
!     each of the soil layers (admrt = sum [admrts(1-mnsz)] for each
!     residue pool.
!     The goal is to assume that these variables are always up-to-date
!     and that any routine can access them via read-only and not
!     need to initialize them.
 
!     Parameter include files required:  p1werm.inc
 
!     + + + VARIABLE DECLARATIONS + + +
                                                  !added state
                                                  !added state
 
                                                   !added state
                                                 !added state
                                                 !added state
 
                                                  !added state
                                                      !added state
 
                                                      !added state
                                                     !added state
                                                     !added state
 
                                                      !added state
                                                          !added state
 
                                                          !added state
                                           !state
                                            !state
                                               !state
                                              !added state
 
                                            ! added state
                                               !added
                                               !added
 
                                                !added
                                                    !added