vdeep Function

public pure function vdeep(lambda)

深水波波速 $v = \sqrt{\frac{g\lambda}{2\pi}}$

Arguments

Return Value real(kind=rk)

    real(rk) pure function vdeep(lambda)
        real(rk), intent(in) :: lambda

        vdeep = sqrt(g*lambda/(pi2))

    end function vdeep