p_water_tait Subroutine

public pure subroutine p_water_tait(rho, p, c)

Suitable for free surface flow
Tait simplified equation of state, 适用于自由面流动
孙鹏楠, 2018, 博士毕业论文, equ(2-12)

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_tait

Source Code

    pure subroutine p_water_tait(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 - rho0)

    end subroutine p_water_tait