speed_of_sound_lower Function

private pure function speed_of_sound_lower(T, M)

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: T
real(kind=wp), intent(in) :: M

Return Value real(kind=wp)


Called by

proc~~speed_of_sound_lower~~CalledByGraph proc~speed_of_sound_lower speed_of_sound_lower proc~coesa_atmosphere COESA_atmosphere proc~coesa_atmosphere->proc~speed_of_sound_lower proc~speed_of_sound_86km speed_of_sound_86km proc~coesa_atmosphere->proc~speed_of_sound_86km proc~speed_of_sound_86km->proc~speed_of_sound_lower

Source Code

pure real(wp) function speed_of_sound_lower(T, M)
    real(wp),intent(in) :: T, M
    speed_of_sound_lower = sqrt(gamma * Rstar * T / M)
end function speed_of_sound_lower