c$Author: fredfox $
c$Date: 2002-05-06 22:53:16 $
c$Revision: 1.3 $
c$Source: /weru/cvs/weps/weps.src/hydro/report_hydrobal.for,v $

      subroutine report_hydrobal( isr )

c     + + + ARGUMENT DECLARATIONS + + +
      integer isr

c     + + + ARGUMENT DEFINITIONS + + +
c     isr           - subregion number

c     + + + PARAMETERS AND COMMON BLOCKS + + +
      include 'p1werm.inc'
      include 'file.fi'
      include 'main/main.inc'
      include 'manage/oper.inc'
      include 'h1balance.inc

c     + + + FUNCTION DECLARATIONS + + +
      integer difdat

      if( difdat(prevday(isr),prevmon(isr),prevyr(isr),
     &           lopday,lopmon,lopyr).le.0 ) then
c         write newline
          write(unit=luohydrobal,fmt=1001) ''
      end if

      write(unit=luohydrobal,fmt=1000, advance='NO')
     &  lopday, lopmon, lopyr,
     &  opname(1:len_trim(opname)),
     &  'Start day,swc,snow', initday(isr), initswc(isr), initsnow(isr),
     &  'End day,swc,snow', presday(isr), presswc(isr), pressnow(isr),
     &  'rain,runoff,evap,trans,drain,check', cumprecip(isr),
     &  cumrunoff(isr),cumevap(isr), cumtrans(isr), cumdrain(isr),
     &  initswc(isr) + initsnow(isr) - presswc(isr) - pressnow(isr)
     &  + cumprecip(isr) - cumrunoff(isr) - cumevap(isr)
     &  - cumtrans(isr) - cumdrain(isr)

 1000 format(1x,i2,'/',i2,'/',i2,'|',a,'|',a,'|',f7.0,'|',2(f9.3,'|'),
     &       ,a,'|',f7.0,'|',2(f9.3,'|'),a,'|',6(f9.3,'|'))
 1001 format(a)

c     reset counters and accumulators
      initday(isr) = presday(isr)
      initswc(isr) = presswc(isr)
      initsnow(isr) = pressnow(isr)
      cumprecip(isr) = 0.0
      cumrunoff(isr) = 0.0
      cumevap(isr) = 0.0
      cumtrans(isr) = 0.0
      cumdrain(isr) = 0.0
      prevday(isr) = lopday
      prevmon(isr) = lopmon
      prevyr(isr) = lopyr

      end