block data
! ******************************************************************* wjr
! Initializes variables in common blocks
!
      include 'p1werm.inc'
      include 'h1et.inc'
      include 'm1flag.inc'
      include 'm1subr.inc'
      include 'main/main.inc'
      include 'manage/asd.inc'
      include 'manage/man.inc'

! main/weps.for
      data mcur /mnsub*0/
      data mbeg /mnsub*0, 0/
      data daysim /0/, outcnt /0/
      data maxper /1/
      data amnryr /mnsub*1/
      data amnrotcycle /mnsub*1/

!     set initialization flags
      data am0dif /.true./, am0eif /.true./, am0sif /.true./
!     no crop growing at start of simulation
      data am0cgf /.false./, am0ifl /.true./, subflg /.true./
!     set grid flag until first gridding is done
      data am0gdf /.false./
!     set output flag to initialize output arrays
      data am0oif /.true./
!     set initialization, calibration, and report loop flags
      data init_loop /.false./
      data calib_loop /.false./
      data report_loop /.false./

! asd/asdinit.for
!      data logcas / 3 /
!      data nsieve / 13 /
!      data sdia / 0.018, 0.037, 0.075, 0.15, 0.42, 0.84, 2.0,
!     &            6.35, 19.05, 44.45, 76.2, 150.4, 300.8 /
!      data mnsize, mxsize / 0.009, 601.2 /

! main/input.for
      data clifil /"cli_gen.cli"/
      data simout /"out.out"/
      data runfil /"weps.run"/
      data winfil /"win_gen.win"/
!
!      character        dinfil*80
!      character        hinfil*80
!      character        sinfil*80
!      character        subfil*80
!      character        tinfil*80
!
! initializing a previously un-init'd variable
      data ahzpta /0/
      end