wenergy Function

public elemental function wenergy(rho, a)

Wave energy
波能：动能 + 势能,

Arguments

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

Water density
水密度
real(kind=rk), intent(in) :: a

Wave amplitude
波幅

Return Value real(kind=rk)


Contents

Source Code

wenergy

Source Code

    elemental real(rk) function wenergy(rho, a)
        real(rk), intent(in) :: rho !! Water density <br>
                                    !! 水密度
        real(rk), intent(in) :: a   !! Wave amplitude <br>
                                    !! 波幅

        wenergy = rho*g*a*a/2

    end function wenergy