!$Author: joelevin $
!$Date: 2011-03-24 11:33:26 -0500 (Thu, 24 Mar 2011) $
!$Revision: 11724 $
!$HeadURL: https://svn.weru.ksu.edu/weru/weps1/trunk/weps.src/src/lib_hydro/atmpreselev.for $

      real function atmpreselev( elevation )

!     returns the standard atmospheric pressure adjusted for elevation (kPa)
!     Approximation from Cuenca (1989) page 141

!*** Argument declarations ***
      real elevation
!     elevation - the elevation of the site above mean standard sea level (m)

!*** Include files ***
      include 'hydro/vapprop.inc'

      atmpreselev = atmstand                                            &
     &            * ((tempstand - templapse*elevation)/tempstand)       &
     &            ** (gravconst/(templapse*rair))

      return
      end