get_sound_speed Subroutine

private pure subroutine get_sound_speed(h, c, d)

Calculate sound speed
计算声速

Arguments

Type IntentOptional Attributes Name
real(kind=rk), intent(in) :: h

specific enthalpy
特定热量
real(kind=rk), intent(out) :: c
real(kind=rk), intent(out) :: d

Contents

Source Code

get_sound_speed

Source Code

    pure subroutine get_sound_speed(h, c, d)
        real(rk), intent(in) :: h       !! specific enthalpy <br>
                                        !! 特定热量
        real(rk), intent(out) :: c, d

        d = 2*g*h
        c = 2*sqrt(d)

    end subroutine get_sound_speed