***********************************************************************
*     subroutine sbigrd
***********************************************************************
      subroutine sbigrd
c
c     + + + PURPOSE + + +
c     To set the grid output arrays to zero
c
c     + + + ARGUMENT DECLARATIONS
c
c     + + + GLOBAL COMON BLOCKS + + +
c     compiler instr.- no warn of unreferenced symbols in include files
*$noreference
      include 'p1werm.inc'
c
c     + + + LOCAL COMMON BLOCKS + + +
      include 'erosion/m2geo.inc'
      include 'erosion/e2erod.inc'
*$reference
c
c     + + + ARGUMENT DEFINITIONS + + +
c
c     + + + SUBROUTINES CALLED + + +
c
c     + + + LOCAL VARIABLES + + +
      integer i, j
c
c     + + + END SPECIFICATIONS + + +
c
      do 20 j = 0, jmax
      do 10 i = 0, imax
      egt(i,j) = 0
      egtss(i,j) = 0
      egt10(i,j) = 0
   10 continue
   20 continue
c
      return
      end
c++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++