seakeeping_wave Module

Seakeeping wave theory
耐波性波浪理论

参考

  1. 船舶原理（上）
  2. 如何让水中涟漪变成拍岸巨浪？水面波的形成原因和增强原理.

Uses


Contents

Functions

Subroutines


Functions

public elemental function k01(w) result(k0)

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

Arguments

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

Return Value real(kind=rk)

public elemental function k02(l) result(k0)

Wave number from wave length
波长计算波数

Arguments

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

Return Value real(kind=rk)

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)

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)

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)

public elemental function wenergy(rho, a)

Wave energy
波能：动能 + 势能,

Arguments

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

Water density
水密度
real(kind=rk), intent(in) :: a

Wave amplitude
波幅

Return Value real(kind=rk)

public pure function zeta(k, x, y, w, t, beta, phase)

单位波幅：\( \zeta = \sin(kx\cos\beta + ky\sin\beta + \omega t + phase) \)

Arguments

Type IntentOptional Attributes Name
real(kind=rk), intent(in) :: k
real(kind=rk), intent(in) :: x
real(kind=rk), intent(in) :: y
real(kind=rk), intent(in) :: w
real(kind=rk), intent(in) :: t
real(kind=rk), intent(in) :: beta
real(kind=rk), intent(in) :: phase

Return Value real(kind=rk)

public pure function vdeep(lambda)

深水波波速

Read more…

Arguments

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

Return Value real(kind=rk)


Subroutines

public pure subroutine ittc_tpwes_waveamplitude(omega, domega, t1, hs, wave_amplitude)

12th-ITTC (1969) 双参数波能谱模型计算频段有义波幅 ITTC two-parameter wave energy spectrum

Arguments

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

波浪角频率, rad/s
real(kind=rk), intent(in) :: domega

频率间隔, rad/s
real(kind=rk), intent(in) :: t1

平均周期, s, T1 = 2pim0/m1
real(kind=rk), intent(in) :: hs

有义波高, m
real(kind=rk), intent(out) :: wave_amplitude

频段有义波幅, m

public pure subroutine ittc_spwes_waveamplitude(omega, domega, hs, wave_amplitude)

11th-ITTC (1966) 单参数波能谱模型计算频段有义波幅 ITTC single-parameter wave energy spectrum

Arguments

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

波浪角频率, rad/s
real(kind=rk), intent(in) :: domega

频率间隔, rad/s
real(kind=rk), intent(in) :: hs

有义波高, m
real(kind=rk), intent(out) :: wave_amplitude

频段有义波幅, m

public pure subroutine ccwes_waveamplitude(omega, domega, hs, wave_amplitude)

中国沿海波能谱模型计算频段有义波幅 China Coastal Wave Energy Spectrum

Arguments

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

波浪角频率, rad/s
real(kind=rk), intent(in) :: domega

频率间隔, rad/s
real(kind=rk), intent(in) :: hs

有义波高, m
real(kind=rk), intent(out) :: wave_amplitude

频段有义波幅, m