Compute the temperature t
at pressure p
from the potential temperature theta
at reference pressure p0
by
Poisson equation. Essentially, .
(KCW, 2025-07-14)
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=real64), | intent(in) | :: | constant_cpd | |||
real(kind=real64), | intent(in) | :: | constant_p0 | |||
real(kind=real64), | intent(in) | :: | constant_rd | |||
real(kind=real64), | intent(in) | :: | theta | |||
real(kind=real64), | intent(in) | :: | p |
pure elemental function t_by_poisson_equation(constant_cpd, constant_p0, constant_rd, theta, p) result(t) use, intrinsic :: iso_fortran_env, only: real64 real(real64), intent(in) :: constant_cpd, constant_p0, constant_rd, theta, p real(real64) :: t t = theta * ((p / constant_p0) ** (constant_rd / constant_cpd)) end function t_by_poisson_equation