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

!
! + + + END SPECIFICATIONS + + +
!
!
      block data anemometer

       real anemht, awzzo, awzdisp
       integer wzoflg

! NOTE:  I added the "awzdisp" variable here to match what is now
!        in the include file.  I also set the initial value to zero.  - LEW
! Why are we using a block data statement here anyway?

       common /p1const/ anemht, awzzo, awzdisp, wzoflg
       data anemht, awzzo, awzdisp, wzoflg /10.0, 25.0, 0.0, 0 /
!
      end block data anemometer
!++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++