Functions/Subroutines
subroutine	wipj (WIP, FS, NPOIN2, XK, WIPDX, WIPDY, NDIRE, NF)

Function/Subroutine Documentation

◆ wipj()

subroutine wipj	(	double precision, dimension(npoin2), intent(inout)	WIP,
		double precision, dimension(npoin2,ndire,nf), intent(in)	FS,
		integer, intent(in)	NPOIN2,
		double precision, dimension(npoin2,nf), intent(in)	XK,
		double precision, dimension(npoin2), intent(inout)	WIPDX,
		double precision, dimension(npoin2), intent(inout)	WIPDY,
		integer, intent(in)	NDIRE,
		integer, intent(in)	NF
	)

Parameters

[in]	npoin2	FS Variance density directional spectrum
[in]	NF	Number of frequencies
[in]	NDIRE	Number of directions
[in]	NPOIN2	Number of points in 2d mesh
[out]	WIP	Wave induced pressure
[out]	WIPDX	Derivative of wip along x
[out]	WIPDY	Derivative of wip along y
[in]	XK	Discretized wave number
[in]	ndire	FS Variance density directional spectrum
[in]	NF	Number of frequencies
[in]	NDIRE	Number of directions
[in]	NPOIN2	Number of points in 2d mesh
[out]	WIP	Wave induced pressure
[out]	WIPDX	Derivative of wip along x
[out]	WIPDY	Derivative of wip along y
[in]	XK	Discretized wave number
[in]	nf	FS Variance density directional spectrum
[in]	NF	Number of frequencies
[in]	NDIRE	Number of directions
[in]	NPOIN2	Number of points in 2d mesh
[out]	WIP	Wave induced pressure
[out]	WIPDX	Derivative of wip along x
[out]	WIPDY	Derivative of wip along y
[in]	XK	Discretized wave number

Definition at line 4 of file wipj.f.

Here is the call graph for this function:

Here is the caller graph for this function: