dimensionless stability functions needed to correct deviations from the exponential wind profile under non-neutral conditions.
stability.correction(zeta, formulation = c("Dyer_1970", "Businger_1971"))a data.frame with the following columns:
the value of the stability function for heat and water vapor (-)
the value of the stability function for momentum (-)
Stability parameter zeta (-)
Formulation for the stability function. Either "Dyer_1970",
or "Businger_1971"
The functions give the integrated form of the universal functions. They
depend on the value of the stability parameter \(\zeta\),
which can be calculated from the function stability.parameter.
The integration of the universal functions is:
$$\psi = -x * zeta$$
for stable atmospheric conditions (\(\zeta\) >= 0), and
$$\psi = 2 * log( (1 + y) / 2) $$
for unstable atmospheric conditions (\(\zeta\) < 0).
The different formulations differ in their value of x and y.
Dyer, A.J., 1974: A review of flux-profile relationships. Boundary-Layer Meteorology 7, 363-372.
Dyer, A. J., Hicks, B.B., 1970: Flux-Gradient relationships in the constant flux layer. Quart. J. R. Meteorol. Soc. 96, 715-721.
Businger, J.A., Wyngaard, J. C., Izumi, I., Bradley, E. F., 1971: Flux-Profile relationships in the atmospheric surface layer. J. Atmospheric Sci. 28, 181-189.
Paulson, C.A., 1970: The mathematical representation of wind speed and temperature profiles in the unstable atmospheric surface layer. Journal of Applied Meteorology 9, 857-861.
Foken, T, 2008: Micrometeorology. Springer, Berlin, Germany.
zeta <- seq(-2,0.5,0.05)
stability.correction(zeta)
stability.correction(zeta,formulation="Businger_1971")
Run the code above in your browser using DataLab