we Function

public elemental function we(w, v, deg)

Encountered wave frequency
遭遇波频率

Arguments

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

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

Ship speed
船舶速度
real(kind=rk), intent(in), optional :: deg

Ship heading
船舶航向

Return Value real(kind=rk)


Contents

Source Code

we

Source Code

    elemental real(rk) function we(w, v, deg)
        real(rk), intent(in) :: w               !! Wave frequency <br>
                                                !! 波频率
        real(rk), intent(in) :: v               !! Ship speed <br>
                                                !! 船舶速度
        real(rk), intent(in), optional :: deg   !! Ship heading <br>
                                                !! 船舶航向

        if (present(deg)) then
            we = w + k01(w)*v*cos(deg)
        else
            we = w + k01(w)*v
        end if

    end function we