subroutine hydrinit(isr)
C ***************************************************************** wjr
C Contains init code from main
C
C       Edit History
C       04-Mar-99       wjr     created
C
      include 'p1werm.inc'
      include 'h1db1.inc'
      include 'h1hydro.inc'
C
      integer isr, idx
C
c  Initialize the water holding capacity variable
      do 10 idx = 1, mnsz
        ahrwca(idx,isr) = ahrwcf(idx, isr) - ahrwcw(idx,isr)
   10 continue

C Set infiltration water depth to 0.0
      ahzwid(isr) = 0.0

      end