c     -----------------------------------------------------------------
c     file 'e2grid.inc'

c     This block common is contains variables used for a simulation run
c     for MAIN and EROSION.

c     + + + VARIABLE DECLARATIONS + + +

      integer          csr(0:mngdpt, 0:mngdpt)
      real      w0br(0:mngdpt,0:mngdpt,8)
c      real      w0hill(0:mngdpt, 0:mngdpt,8)




      common /e2grid/
     i                csr,
     i                     w0br
c    i                          w0hill
c
c     + + + VARIABLE DEFINITIONS + + +
c
c     csr    - index of current subregion at grid point x,y
c
c              range values      min       max
c              ------------   ---------  ---------
c              fixed              2        30
c              typical           20        20
c              ------------   ---------  ---------
c
c    w0br    - ratio of shelter to open, flat, field friction velocity
c              at each grid point x,y as influenced by barriers.
c
c               range values      min       max
c              ------------   ---------  ---------
c              fixed              0         1
c              typical            0.1       1
c              ------------   ---------  ---------
c
c
c   w0hill   - ratio of hill to open, flat, field friction velocity
c              at each grid point x,y as influenced by hills.
c
c               range values      min       max
c              ------------   ---------  ---------
c              fixed              0         2
c              typical           .2         1.3
c              ------------   ---------  ---------
c++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++