Go to the source code of this file.

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

◆ 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.