p_by_hypsometric_equation Function

public pure elemental function p_by_hypsometric_equation(constant_g, constant_rd, p1, z1, tv, z2) result(p2)

Uses

  • proc~~p_by_hypsometric_equation~~UsesGraph proc~p_by_hypsometric_equation p_by_hypsometric_equation iso_fortran_env iso_fortran_env proc~p_by_hypsometric_equation->iso_fortran_env

Compute the pressure p2 at height z2 from the pressure p1 at height z1 by hypsometric equation. tv is the mean virtual temperature between z1 and z2. Essentially, . (KCW, 2024-07-02)

Arguments

Type IntentOptional Attributes Name
real(kind=real64), intent(in) :: constant_g
real(kind=real64), intent(in) :: constant_rd
real(kind=real64), intent(in) :: p1
real(kind=real64), intent(in) :: z1
real(kind=real64), intent(in) :: tv
real(kind=real64), intent(in) :: z2

Return Value real(kind=real64)


Called by

proc~~p_by_hypsometric_equation~~CalledByGraph proc~p_by_hypsometric_equation p_by_hypsometric_equation none~set_mpas_state_rho_base_theta_base set_mpas_state_rho_base_theta_base none~set_mpas_state_rho_base_theta_base->proc~p_by_hypsometric_equation none~set_mpas_state_rho_theta set_mpas_state_rho_theta none~set_mpas_state_rho_theta->proc~p_by_hypsometric_equation proc~set_analytic_initial_condition set_analytic_initial_condition proc~set_analytic_initial_condition->none~set_mpas_state_rho_base_theta_base proc~set_analytic_initial_condition->none~set_mpas_state_rho_theta proc~dyn_init dyn_init proc~dyn_init->proc~set_analytic_initial_condition interface~dyn_init dyn_init interface~dyn_init->proc~dyn_init

Source Code

    pure elemental function p_by_hypsometric_equation(constant_g, constant_rd, p1, z1, tv, z2) result(p2)
        use, intrinsic :: iso_fortran_env, only: real64

        real(real64), intent(in) :: constant_g, constant_rd, p1, z1, tv, z2
        real(real64) :: p2

        p2 = p1 * exp(-(z2 - z1) * constant_g / (constant_rd * tv))
    end function p_by_hypsometric_equation