waveFunctionsModule.f90 File Reference

Data Types
interface	wavefunctionsmodule::initfunc4

Modules
module	wavefunctionsmodule

Functions/Subroutines
subroutine	wavefunctionsmodule::initfunc4fromfile (FNAME, G, D, RFUNC, IERR, RSEED)
subroutine	wavefunctionsmodule::initspectrumof (IOP, H3, T1, Gamma, Omega0, dOmega, g, D, RFUNC, IERR, RSEED)
subroutine	wavefunctionsmodule::initspectrumdnv (Hs, Tp, Gamma, Omega0, dOmega, g, D, RFUNC, IERR, RSEED, NWdir, SprExp)
real(dp) function	piersonmoskowitz (Hs, omega, omega_p)
real(dp) function	jonswap (Hs, omega, omega_p, Gamma)
real(dp) function, public	wavefunctionsmodule::wavenumber (omega, g, d)
logical function, public	wavefunctionsmodule::checkdepth (d, k)
subroutine, public	wavefunctionsmodule::deepwave (RFUNC, g, x, z, t, atSurface, noWheelerStretching, h, u, w, du, dw, p)
subroutine, public	wavefunctionsmodule::deepwaves (RFUNC, g, x, y, z, t, atSurface, noWheelerStretching, h, u, v, w, du, dv, dw, p)
subroutine, public	wavefunctionsmodule::finitedepthwave (RFUNC, g, d, x, z, t, atSurface, noWheelerStretching, h, u, w, du, dw, p)
subroutine, public	wavefunctionsmodule::finitedepthwaves (RFUNC, g, d, x, y, z, t, atSurface, noWheelerStretching, h, u, v, w, du, dv, dw, p)
subroutine, public	wavefunctionsmodule::stokes2wave (RFUNC, g, d, x, z, t, atSurface, noWheelerStretching, h, u, w, du, dw)
subroutine, public	wavefunctionsmodule::initfunc7 (H, T, eps, g, D, RFUNC, ierr)
subroutine, public	wavefunctionsmodule::stokes5wave (RFUNC, d, x, z, t, atSurface, h, u, w, du, dw)
subroutine, public	wavefunctionsmodule::initfunc8 (H, T, eps, g, D, RFUNC, iOrder)
subroutine, public	wavefunctionsmodule::streamwave (RFUNC, d, x, z, t, atSurface, h, u, w, du, dw)
subroutine, public	wavefunctionsmodule::initfunc9 (IOP, NR, NC, H3, T1, Gamma, Omega0, dOmega, g, D, ramp, embSLW, IFUNC, RFUNC, IERR, RSEED)
real(dp) function, dimension(:,:), pointer	tomatrix (array, nr, nc)
subroutine, public	wavefunctionsmodule::embeddedwave (IFUNC, RFUNC, g, d, x, z, t, atSurf, noWS, h, u, w, du, dw)
subroutine, public	wavefunctionsmodule::userdefinedwave (ikf, IFUNC, RFUNC, g, d, Xt, atSurf, h, u, du, ierr)

Variables
integer, parameter, public	wavefunctionsmodule::dp = kind(1.0D0)
real(dp), parameter	wavefunctionsmodule::pi = 3.141592653589793238_dp
real(dp), parameter, public	wavefunctionsmodule::twopi = pi+pi

Function/Subroutine Documentation

jonswap()

real(dp) function initspectrumdnv::jonswap ( real(dp), intent(in)  Hs, real(dp), intent(in)  omega, real(dp), intent(in)  omega_p, real(dp), intent(in)  Gamma  )

private

piersonmoskowitz()

real(dp) function initspectrumdnv::piersonmoskowitz	(	real(dp), intent(in)	Hs,
		real(dp), intent(in)	omega,
		real(dp), intent(in)	omega_p
	)

tomatrix()

real(dp) function, dimension(:,:), pointer initfunc9::tomatrix	(	real(dp), dimension(nr,nc), intent(in), target	array,
		integer, intent(in)	nr,
		integer, intent(in)	nc
	)