Compute the potential temperature theta at reference pressure p0 from the temperature t at pressure p by
Poisson equation. Essentially, .
(KCW, 2024-07-02)
| 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) | :: | t | |||
| real(kind=real64), | intent(in) | :: | p |
pure elemental function theta_by_poisson_equation(constant_cpd, constant_p0, constant_rd, t, p) result(theta) use, intrinsic :: iso_fortran_env, only: real64 real(real64), intent(in) :: constant_cpd, constant_p0, constant_rd, t, p real(real64) :: theta theta = t * ((constant_p0 / p) ** (constant_rd / constant_cpd)) end function theta_by_poisson_equation