!*==sbigrd.spg  processed by SPAG 6.70Rc at 15:33 on 10 Dec 2012
!*------------------   SPAG Configuration Options   --------------------
!*--0323,76 000101,-1 000000102011332010100002000000210211210,136 10 --
!*--1100000011112111000000000000,10,10,10,10,10,10,900,100 200000000 --
!*--000000010000000000000,72,72 73,42,38,33 00011112110000100000000  --
!*----------------------------------------------------------------------
!++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
!$Author: joelevin $
!$Date: 2011-03-24 11:33:26 -0500 (Thu, 24 Mar 2011) $
!$Revision: 11724 $
!$HeadURL: https://eweru-dev1.eweru.ksu.edu/svn/code/weps1/branches/WEPS_F90_update/weps.src/src/lib_erosion/sbigrd.for $
!**********************************************************************
!     subroutine sbigrd
!**********************************************************************
      subroutine sbigrd
      use i_p1werm
      use i_m2geo
      use i_e2erod
      implicit none
!*--SBIGRD20
!
!*** Start of declarations rewritten by SPAG
!
! Local variables
!
      integer :: i,j
!
!*** End of declarations rewritten by SPAG
!
!
!     + + + PURPOSE + + +
!     To set the grid output arrays to zero
!
!     + + + ARGUMENT DECLARATIONS
!
!     + + + GLOBAL COMON BLOCKS + + +
!     compiler instr.- no warn of unreferenced symbols in include files
 
!
!     + + + LOCAL COMMON BLOCKS + + +
!
!     + + + ARGUMENT DEFINITIONS + + +
!
!     + + + SUBROUTINES CALLED + + +
!
!     + + + LOCAL VARIABLES + + +
!
!     + + + END SPECIFICATIONS + + +
!
      do j = 0,jmax
         do i = 0,imax
            egt(i,j) = 0
            egtss(i,j) = 0
            egt10(i,j) = 0
         end do
      end do
!
      end subroutine sbigrd