!*==./Restructure/Modules/I_d1glob.f90  created by SPAG 6.70Rc at 15:33 on 10 Dec 2012
      module i_d1glob
      implicit none
!
! COMMON /D1GLOB/
!
      real,dimension(mnbpls,mnsub) :: addstm,adfcancov,adffcv,adfscv,   &
                                    & adftcv,adgrainf,adm,admbg,        &
                                    & admbgleaf,admbgrootfiber,         &
                                    & admbgrootstore,admbgstem,         &
                                    & admbgstore,admf,admflatleaf,      &
                                    & admflatrootfiber,admflatrootstore,&
                                    & admflatstem,admflatstore,admrt,   &
                                    & admst,admstandleaf,admstandstem,  &
                                    & admstandstore,adrcd,adrlai,adrsai,&
                                    & adxstmrep,adzht
      real,dimension(mnsub) :: addstmtot,adffcvtot,adfscvtot,adftcancov,&
                             & adftcvtot,admbgtot,admbgtotto4,admftot,  &
                             & admrttot,admrttotto4,admsttot,admtot,    &
                             & admtotto4,adrcdtot,adrlaitot,adrsaitot,  &
                             & adzht_ave
      integer,dimension(mnbpls,mnsub) :: adhyfg
      real,dimension(mnsz,mnbpls,mnsub) :: admbgleafz,admbgrootfiberz,  &
        & admbgrootstorez,admbgstemz,admbgstorez,admbgz,admrtz
      real,dimension(mncz,mnbpls,mnsub) :: adrlaz,adrsaz
      end module i_d1glob