subroutine plotdata
C ***************************************************************** wjr
C Contains init code from main
C
C       Edit History
C       04-Mar-99       wjr     created
C
      include 'p1werm.inc'
C ***      include 'm1sim.inc'
      include 'm1flag.inc'
      include 'c1glob.inc'
      include 'b1glob.inc'
      include 'h1db1.inc'
      include 's1layd.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 'main/plot.inc'

      integer day, month,year
C
      call caldatw(day,month,year)
C
      write (luoplt, 2080) day, month, year, operat,
     &                    total, suspen, pmten,
     &                    awudmx, awadir, awzdpt, ahrwc0(12, 1),
     &                    aszrgh(1), asargo(1), aslrr(1),
     &                    aslagm(1,1),asfcr(1), aseags(1,1),
     &                    acrlai(1), acrsai(1),
     *                    acmyld(1), acmst(1), acftcv(1),
     *                    abffcv(1), abfscv(1),
     &                    asmlos(1), asflos(1),
     *                    asdblk(1,1)

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

      end