1 |
|
|
module esat_m |
2 |
|
|
|
3 |
|
|
implicit none |
4 |
|
|
|
5 |
|
|
contains |
6 |
|
|
|
7 |
|
280418 |
elemental real function esat(T, P) |
8 |
|
|
|
9 |
|
|
! Saturation vapor pressure of water in Pa. Buck, 1981, |
10 |
|
|
! J. Appl. Meteor. 20, 1527-1532, equation (8). |
11 |
|
|
|
12 |
|
|
real, intent(in):: T ! temperature, in K |
13 |
|
|
real, intent(in):: P ! air pressure, in Pa |
14 |
|
|
|
15 |
|
|
!-------------------------------------------------------------------- |
16 |
|
|
|
17 |
|
|
esat = (1.0007 + 3.46e-8 * P) * 6.1121e2 & |
18 |
|
280418 |
* exp(17.502 * (T - 273.15) / (T - 32.18)) |
19 |
|
|
|
20 |
|
280418 |
end function esat |
21 |
|
|
|
22 |
|
|
end module esat_m |