!*==aa0025.spg  processed by SPAG 6.70Rc at 21:09 on  9 Dec 2012
      implicit none
!*--AA00253
!
!*** Start of declarations rewritten by SPAG
!
! PARAMETER definitions
!
      real,parameter :: beamrise = 90.833,civilrise = 96.0,             &
                      & nautrise = 102.0,astrorise = 108.0
!
!*** End of declarations rewritten by SPAG
!
 
!     + + + VARIABLE DEFINITIONS + + +
 
!     pi      - The constant PI (radians)
!     SEC_PER_DAY - number of seconds per day
!     KG_per_M2_to_LBS_per_ACRE - unit conversion factor
!     anemht  - Standardized anemometer height (m)
!     awzzo   - Weather station aerodynamic roughness height (mm)
!     awzdisp - Weather station zero plane displacement height (mm)
!     wzoflg  - Flag = 0 for anem. and  constant awwzo at wx. stations
!               Flag = 1 for anem. and variable awwzo at field.
!$Author: joelevin $
!$Date: 2011-03-24 11:33:26 -0500 (Thu, 24 Mar 2011) $
!$Revision: 11724 $
!$HeadURL: https://eweru-dev1.eweru.ksu.edu/svn/code/weps1/branches/WEPS_F90_update/weps.src/src/inc/p1solar.inc $
 
!     parameters used to define sunrise and sunset (daylength) for different purposes