p_water_monaghan Subroutine

public pure subroutine p_water_monaghan(rho, p, c)

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_monaghan

Source Code

    pure subroutine p_water_monaghan(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>
                                        !! 声速

        p = B*((rho/rho0)**gamma - 1)
        c = spc_obj%c0*((rho/rho0)**3)

    end subroutine p_water_monaghan