8 |
|
|
9 |
! From dyn3d/q_sat.F, version 1.1.1.1 2004/05/19 12:53:05 |
! From dyn3d/q_sat.F, version 1.1.1.1 2004/05/19 12:53:05 |
10 |
|
|
11 |
! Authors : Z. X. Li (LMD/CNRS). |
! Author: Z. X. Li (LMD/CNRS). |
12 |
! Réécriture vectorisée par F. Hourdin. |
! Récriture vectorisée par F. Hourdin. |
13 |
! This procedure computes the mass fraction of saturating water |
! This procedure computes the mass fraction of saturating water |
14 |
! vapor, with the formula of ECMWF. |
! vapor, with the formula of ECMWF. |
15 |
|
|
16 |
REAL, intent(in):: temp ! temperature, in K |
REAL, intent(in):: temp ! temperature, in K |
17 |
REAL, intent(in):: pres ! total pressure, in hPa |
REAL, intent(in):: pres ! total pressure, in Pa |
18 |
|
|
19 |
! Variables local to the procedure: |
! Variables local to the procedure: |
20 |
|
|