Compute the vertical velocity w as a function of the vertical pressure velocity omega and the density rho.
Essentially, .
(KCW, 2025-07-10)
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real(kind=real64), | intent(in) | :: | constant_g | |||
| real(kind=real64), | intent(in) | :: | omega | |||
| real(kind=real64), | intent(in) | :: | rho |
pure elemental function w_of_omega_rho(constant_g, omega, rho) result(w) use, intrinsic :: iso_fortran_env, only: real64 real(real64), intent(in) :: constant_g, omega, rho real(real64) :: w w = -omega / (rho * constant_g) end function w_of_omega_rho