c     ------------------------------------------------------------------
c     file 'p1const'
c
c     These parameter variables are used in place of typical constant
c     values within WERM to make the coding more readable and
c     maintainable.  Generally, only common constants likely to be used
c     throughout the WERM coding should reside here.  Constants used
c     locally in the WERM coding should be defined in separate parameter
c     include files.
c
c     These parameter values may be consulted from within any sections
c     of the WERM code if this file has been included.
c
      real      pi
      real      anemht,    awzzo
      real      wzoflg
c
c     + + + VARIABLE DECLARATIONS + + +
c
      parameter (pi      = 3.1415927)
c
      common /p1const/
     &       anemht, awzzo, wzoflg

c
c     + + + VARIABLE DEFINITIONS + + +
c
c     pi     - The constant PI (radians)
c     anemht  - Standardized anemometer height (m)
c     awzzo  -  Weather station aerodynamic roughness height (mm)
c     wzoflg -  Flag = 0 for anem. and  constant awwzo at wx. stations
c               Flag = 1 for anem. and variable awwzo at field.
c     ------------------------------------------------------------------