p_water_morris Subroutine

public pure subroutine p_water_morris(rho, p, c)

Not suitable for free surface flow
不适用于自由面流动

Arguments

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

density
密度
real(kind=rk), intent(out) :: p

pressure
压力
real(kind=rk), intent(out) :: c

sound speed
声速

Contents

Source Code

p_water_morris

Source Code

    pure subroutine p_water_morris(rho, p, c)
        real(rk), intent(in) :: rho     !! density <br>
                                        !! 密度
        real(rk), intent(out) :: p      !! pressure <br>
                                        !! 压力
        real(rk), intent(out) :: c      !! sound speed <br>
                                        !! 声速

        c = spc_obj%c0
        p = c*c*rho

    end subroutine p_water_morris