c**********************************************************************
c     block data
c**********************************************************************
c
c + + +  PURPOSE + + +
c     To provide initial default values to wx station variables
c     in the common block 'p1const'
c
c     The anemom. ht. and awwzo may be changed by read inputs in the
c     stand-alone erosion code. If anem. at the field  i.e flag =1,
c     then awwzo is set equal to the field zo in sbwus.
c
c + + + VARIABLE DEFINITIONS + + +
c     anemht = anemometer height (m)
c     awzzo  = aerodynamic roughness at anemometer (mm)
c     wzoflg = flag = 0 for anem. and fixed awwzo at wx station
c              flag = 1 for anem. and variable awzzo at field
c     pi =  math parameter value is also in p1const.inc
c
c     + + + GLOBAL COMMON BLOCKS + + +

c
c + + + END SPECIFICATIONS + + +
c
c
      block data anemometer
       real anemht, awzzo, wzoflg
       common /p1const/ anemht, awzzo, wzoflg
        data anemht, awzzo, wzoflg /10.0, 25.0, 0.0 /
c
      end block data anemometer
c++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++