source: LMDZ6/trunk/libf/phylmd/Ocean_skin/esat_m.F90 @ 4744

Last change on this file since 4744 was 3834, checked in by Laurent Fairhead, 4 years ago

Renaming module files so that makelmdz and create_make_gcm finds them

File size: 500 bytes
Line 
1module esat_m
2
3  implicit none
4
5contains
6
7  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         * exp(17.502 * (T - 273.15) / (T - 32.18))
19
20  end function esat
21
22end module esat_m
Note: See TracBrowser for help on using the repository browser.