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

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

c     set initialization flags
      data am0dif /.true./, am0eif /.true./, am0sif /.true./
c     no crop growing at start of simulation
      data am0cgf /.false./, am0ifl /.true./, subflg /.true./
c     set grid flag until first gridding is done
      data am0gdf /.false./
c     set output flag to initialize output arrays
      data am0oif /.true./
C
C main/input.for
      data am0irr /mnsub*0/
      data ahzirr /mnsub*0.0/

C these lines came out of input but probably should be listed as
C coming from crop init

c     Following 10 lines added by A. Retta on 7/19/1996. The flag am0drlfl
c     should be set to 1 or 0 by the user. For now it is set to 1 here, but
c     should eventually be placed in the data base.
c     Set am0drfl to 1 for regions where a crop may experience dormancy
c     and to 0 where it will not (eg. tropical climes).
      data am0drlfl /1/
c     set am0drmfl to 0 during periods of crop growth. It will be set
c     to 1 during periods of dormancy.
      data am0drmfl /0/
C
C asd/asdinit.for
      data logcas / 3 /
      data nsieve / 9 /
      data sdia / 0.07, 0.15, 0.42, 0.84, 2.0, 6.35,
     &           19.05, 44.45, 76.2, 0.0 /
      data mnsize, mxsize / 0.05, 101.6 /
C
C main/input.for
      data clifil /"cli_gen.cli"/
      data simout /"out.out"/
      data runfil /"weps.run"/
      data winfil /"win_gen.win"/
C
C      character        dinfil*80
C      character        hinfil*80
C      character        sinfil*80
C      character        subfil*80
C      character        tinfil*80
C
C initializing a previously un-init'd variable
      data ahzpta /0/
      end