c$Author: fredfox $
c$Date: 2001-11-21 22:38:05 $
c$Revision: 1.10 $
c$Source: /weru/cvs/weps/weps.src/hydro/hydrinit.for,v $

      subroutine hydrinit(isr)

C Contains init code from main

      include 'p1werm.inc'
      include 'h1db1.inc'
      include 'h1hydro.inc'
      include 'h1balance.inc'
      include 's1layr.inc'

      integer isr, idx

c  Initialize the water holding capacity variable
      do idx = 1, nslay(isr)
        ahrwca(idx,isr) = ahrwcf(idx, isr) - ahrwcw(idx,isr)
      end do

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

c     set hydrologic balance variables
      cumprecip(isr) = 0.0
      cumrunoff(isr) = 0.0
      cumevap(isr) = 0.0
      cumtrans(isr) = 0.0
      cumdrain(isr) = 0.0
      prevday(isr) = 1
      prevmon(isr) = 1
      prevyr(isr) = 1

      end