omega_of_w_rho Function

public pure elemental function omega_of_w_rho(constant_g, w, rho) result(omega)

Uses

  • proc~~omega_of_w_rho~~UsesGraph proc~omega_of_w_rho omega_of_w_rho iso_fortran_env iso_fortran_env proc~omega_of_w_rho->iso_fortran_env

Compute the vertical pressure velocity omega as a function of the vertical velocity w and the density rho. Essentially, . (KCW, 2025-07-10)

Arguments

Type IntentOptional Attributes Name
real(kind=real64), intent(in) :: constant_g
real(kind=real64), intent(in) :: w
real(kind=real64), intent(in) :: rho

Return Value real(kind=real64)


Called by

proc~~omega_of_w_rho~~CalledByGraph proc~omega_of_w_rho omega_of_w_rho none~update_shared_variables update_shared_variables none~update_shared_variables->proc~omega_of_w_rho proc~dynamics_to_physics_coupling dynamics_to_physics_coupling proc~dynamics_to_physics_coupling->none~update_shared_variables interface~dynamics_to_physics_coupling dynamics_to_physics_coupling interface~dynamics_to_physics_coupling->proc~dynamics_to_physics_coupling proc~stepon_timestep_init stepon_timestep_init proc~stepon_timestep_init->interface~dynamics_to_physics_coupling

Source Code

    pure elemental function omega_of_w_rho(constant_g, w, rho) result(omega)
        use, intrinsic :: iso_fortran_env, only: real64

        real(real64), intent(in) :: constant_g, w, rho
        real(real64) :: omega

        omega = -rho * constant_g * w
    end function omega_of_w_rho