wlr Function

public elemental function wlr(w, l)

Wavelength to length ratio
波长与船长比

Arguments

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

Wave frequency
波频率
real(kind=rk), intent(in) :: l

Ship length
船舶特征长度

Return Value real(kind=rk)


Contents

Source Code

wlr

Source Code

    elemental real(rk) function wlr(w, l)
        real(rk), intent(in) :: w   !! Wave frequency <br>
                                    !! 波频率
        real(rk), intent(in) :: l   !! Ship length <br>
                                    !! 船舶特征长度

        wlr = pi2/(k01(w)*l)

    end function wlr