GCC Code Coverage Report


Directory: ./
File: Ocean_skin/esat_m.f90
Date: 2022-01-11 19:19:34
Exec Total Coverage
Lines: 3 3 100.0%
Branches: 0 0 -%

Line Branch Exec Source
1 module esat_m
2
3 implicit none
4
5 contains
6
7 467812 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 467812 * exp(17.502 * (T - 273.15) / (T - 32.18))
19
20 467812 end function esat
21
22 end module esat_m
23