!$Author: jhudd $
!$Date: 2007-01-27 20:15:21 $
!$Revision: 1.27 $
!$Source: /weru/cvs/weps/weps.src/main/plot.for,v $

      subroutine plotdata(sr)

      integer sr
!       Edit History
!       04-Mar-99       wjr     created

      include 'p1werm.inc'
! ***      include 'm1sim.inc'
      include 'm1flag.inc'
      include 'c1glob.inc'
      include 'd1glob.inc'
      include 'b1glob.inc'
      include 'h1db1.inc'
      include 's1layr.inc'
      include 's1phys.inc'
      include 's1sgeo.inc'
      include 's1agg.inc'
      include 's1surf.inc'
      include 'w1clig.inc'
      include 'w1wind.inc'
      include 'h1hydro.inc'
      include 'file.fi'
      include 'm1subr.inc'
      include 'manage/oper.inc'
      include 'main/main.inc'
      include 'main/plot.inc'

      integer day, month, year, doy, idx

      ! function declaration
      integer dayear

      call caldatw(day,month,year)
      doy = dayear (day, month, year)

      ! make operation name available for this day
      if ((lopday .eq. day) .and. (lopmon .eq. month) .and.             &
     &                            (lopyr .eq. amnryr(sr))) then
         operat = opname
      else
         operat = '                                               '
      end if

      ! insert double blank lines to demarcate years
      if( doy .eq. 1 ) then
          write (luoplt,*)
          write (luoplt,*)
      end if

      write (luoplt, 2080, ADVANCE="NO")                                &
     &                    daysim, doy, year,                            &
     &                    total, suspen, pmten,                         &
     &                    awudmx, awadir, awzdpt, ahrwc0(12, sr),       &
     &                    aszrgh(sr), asargo(sr), aslrr(sr),            &
     &                    aslagm(1,sr), aseags(1,sr), asfcr(sr),        &
     &                    asmlos(sr), asflos(sr), asdblk(1,sr),         &
     &                    abffcv(sr), abfscv(sr),                       &
     &                    acrlai(sr), acrsai(sr),                       &
     &                    acmst(sr), acfcancov(sr)

      write (luoplt, 2081, ADVANCE="NO")                                &
     &       aczht(sr), acxstmrep(sr), acrcd(sr), acftcv(sr)

      write (luoplt, 2082, ADVANCE="NO")                                &
     &       adzht_ave(sr), adrsaitot(sr), adrlaitot(sr),               &
     &       adrcdtot(sr), adftcancov(sr), adftcvtot(sr)

      write (luoplt, 2083, ADVANCE="YES") operat

 2080 format (' ',i6,' ',i3,' ',i4,' ',                                 &
     &            3(f10.3,' '),                                         &
     &            4(f10.3,' '),                                         &
     &            3(f10.3,' '),                                         &
     &            3(f10.3,' '),                                         &
     &            3(f10.3,' '),                                         &
     &            2(f10.3,' '),                                         &
     &            2(f10.3,' '),                                         &
     &            2(f10.3,' ') )

 2081 format ( 4(f10.4,' ') )
 2082 format ( 6(f10.4,' ') )
 2083 format ( a15,' ' )

! 2080 format (1x,3(i4,'|'),                                             &
!     &            3(f10.3,'|'),                                         &
!     &            4(f10.3,'|'),                                         &
!     &            3(f10.3,'|'),                                         &
!     &            3(f10.3,'|'),                                         &
!     &            3(f10.3,'|'),                                         &
!     &            2(f10.3,'|'),                                         &
!     &            2(f10.3,'|'),                                         &
!     &            2(f10.3,'|') )

! 2081 format ( 4(f10.4,'|') )
! 2082 format ( 6(f10.4,'|') )
! 2083 format ( a15,'|' )

      end