wf Function

public elemental function wf(wlr, l)

Wave frequency from wlr
由波长与船长比计算波频率

Arguments

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

Wavelength to length ratio
波长与船长比
real(kind=rk), intent(in) :: l

Ship length
船舶特征长度

Return Value real(kind=rk)


Contents

Source Code

wf

Source Code

    elemental real(rk) function wf(wlr, l)
        real(rk), intent(in) :: wlr !! Wavelength to length ratio <br>
                                    !! 波长与船长比
        real(rk), intent(in) :: l   !! Ship length <br>
                                    !! 船舶特征长度

        wf = sqrt(g*k02(wlr*l))

    end function wf