c$Author: fredfox $
c$Date: 2001-07-03 19:00:00 $
c$Revision: 1.1.2.1 $
c$Source: /weru/cvs/weps/weps.src/hydro/atmpreselev.for,v $
      real*4 function atmpreselev( elevation )

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

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

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

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

      return
      end