c$Author: fredfox $
c$Date: 2001-08-15 17:18:51 $
c$Revision: 1.1.2.2 $
c$Source: /weru/cvs/weps/weps.src/inc/hydro/vapprop.inc,v $
c soil vapor properties required for calculations
      real  rgas, molewater, zerokelvin, denwat, gravconst, potwilt,
     &      diffuntp, atmstand, templapse, tempstand, rair
c     rgas       - universal gas constant (joules/(mole degree K)
c     molewater  - molecular weight of water (kg/mole)
c     zerokelvin - kelvin equivalent of zero degree centigrade
c     denwat     - density of the liquid (water) (kg/m^3)
c     gravconst  - acceleration due to gravity (m/s^2)
c     potwilt    - matric potential for wilting point (15 bar) in meters of water
c     diffuntp   - Binary diffusion coefficient for water vapor in air at
c                  normal temperature and pressure (0 C, 1 standard atmosphere) (m^2/s)
c     atmstand   - standard atmosphere (kilopascals)
c     templapse  - temperature lapse rate for troposphere (degree K/meter)
c     tempstand  - standard temperature used to find standard atmosphere (degree K)
c     rair       - gas constant for air (J/kg/K or m^2/s^2/K)

c*** Parameter Definitions ***
      parameter (rgas = 8.3143)
      parameter (molewater = 0.018)
      parameter (zerokelvin = 273.16)
      parameter (denwat = 1000.0)
      parameter (gravconst = 9.807)
      parameter (potwilt = -151.98) !in meters of water at max density
      parameter (diffuntp = 2.12e-5)
      parameter (atmstand = 101.3)
      parameter (templapse = 0.0065)
      parameter (tempstand = 288.0)
      parameter (rair = 287.0)