k01 Function

public elemental function k01(w) result(k0)

Wave number from wave frequency
波频率计算波数

Arguments

Return Value real(kind=rk)

    elemental real(rk) function k01(w) result(k0)
        real(rk), intent(in) :: w

        k0 = w*w/g

    end function k01