subroutine plotdata
C ***************************************************************** wjr
C Contains init code from main
C
C       Edit History
C       04-Mar-99       wjr     created
C
      include 'p1werm.inc'
      include 'm1sim.inc'
      include 'm1flag.inc'
      include 'c1glob.inc'
      include 'h1db1.inc'
      include 's1sgeo.inc'
      include 's1agg.inc'
      include 's1surf.inc'
      include 'w1clig.inc'
      include 'w1wind.inc'
      include 'file.fi'
      include 'main/plot.inc'

      integer day, month,year
C
      call caldat(am0jd,day,month,year)
      if (am0ifl .eqv. .true.) write (luoplt, 2050)
C
      write (LUOPLT, 2080) day, month, year,operat,
     &                    awudmx, awadir, awzdpt, ahrwc0(1, 1),
     &                    aszrgh(1), asargo(1), aslrr(1),
     &                    aslagm(1,1),asfcr(1), aseags(1,1),
     &                    acrlai(1), acrsai(1),
     &                    total, suspen, pmten

 2050 format (1x,'day',1x,'mon',1x,' yr',1x,' operation           ',1x,
     &        'max_wind ',1x,'dir_wind ',1x,'precip   ',1x,'Surf_H2O',
     &        1x,'ridge_ht ',1x,'ridge_or ',1x,'r_rough  ',1x,
     &        ' gmd     ',1x,'cr_fract ',1x,'ag_stab  ',1x,'  lai    ',
     &        1x,'  sai    ',1x,'tot_loss ',1x,'suspen   ',1x,' pm10')
 2080 format (1x, 3(i4,1x), a15,1x,
     &            15f10.3)

      end