** COARE25_FLUX
PURPOSE
-------
** METHOD ------
EXTERNAL
--------
IMPLICIT ARGUMENTS
------------------
REFERENCE
---------
Fairall et al (2003), J. of Climate, vol. 16, 571-591
Fairall et al (1996), JGR, 3747-3764
Gosnell et al (1995), JGR, 437-442
Fairall et al (1996), JGR, 1295-1308
AUTHOR
------
C. Lebeaupin *Météo-France* (adapted from C. Fairall's code)
MODIFICATIONS
-------------
Original 1/06/2006
B. Decharme 06/2009 limitation of Ri
B. Decharme 09/2012 Bug in Ri calculation and limitation of Ri in surface_ri.F90
B. Decharme 06/2013 bug in z0 (output) computation
J.Escobar 06/2013 for REAL4/8 add EPSILON management
C. Lebeaupin 03/2014 bug if PTA=PSST and PEXNA=PEXNS: set a minimum value
add abort if no convergence
0. DECLARATIONS
------------
0.1 declarations of arguments
TYPE(SEAFLUX_t), INTENT(INOUT) :: S
!! secure COARE3.0 CODE
5.2 Aerodynamical conductance and resistance
5.3 Z0 and Z0H over sea
PZ0HSEA(:) = PZ0SEA(:)
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real, | intent(inout), | DIMENSION(klon) | :: | PZ0SEA | ||
| real, | intent(in), | DIMENSION(klon) | :: | PTA | ||
| real, | intent(in), | DIMENSION(klon) | :: | PSST | ||
| real, | intent(in), | DIMENSION(klon) | :: | PQA | ||
| real, | intent(in), | DIMENSION(klon) | :: | PVMOD | ||
| real, | intent(in), | DIMENSION(klon) | :: | PZREF | ||
| real, | intent(in), | DIMENSION(klon) | :: | PUREF | ||
| real, | intent(in), | DIMENSION(klon) | :: | PPS | ||
| real, | intent(in), | DIMENSION(klon) | :: | PQSATA | ||
| real, | intent(out), | DIMENSION(klon) | :: | PQSAT | ||
| real, | intent(out), | DIMENSION(klon) | :: | PSFTH | ||
| real, | intent(out), | DIMENSION(klon) | :: | PSFTQ | ||
| real, | intent(out), | DIMENSION(klon) | :: | PUSTAR | ||
| real, | intent(out), | DIMENSION(klon) | :: | PCD | ||
| real, | intent(out), | DIMENSION(klon) | :: | PCDN | ||
| real, | intent(out), | DIMENSION(klon) | :: | PCH | ||
| real, | intent(out), | DIMENSION(klon) | :: | PCE | ||
| real, | intent(out), | DIMENSION(klon) | :: | PRI | ||
| real, | intent(out), | DIMENSION(klon) | :: | PRESA | ||
| real, | intent(in), | DIMENSION(klon) | :: | PRAIN | ||
| real, | intent(in), | DIMENSION(klon) | :: | PPA | ||
| real, | intent(out), | DIMENSION(klon) | :: | PZ0HSEA | ||
| logical, | intent(in) | :: | LPRECIP | |||
| logical, | intent(in) | :: | LPWG | |||
| real, | intent(inout), | dimension(3) | :: | coeffs |
0.2 declarations of local variables |