Go to the source code of this file.

subroutine  windiss1 (FWX, FWY, NPOIN2, XK, NDIRE, FS, NF) 

◆ windiss1()
subroutine windiss1 
( 
double precision, dimension(npoin2), intent(inout) 
FWX, 


double precision, dimension(npoin2), intent(inout) 
FWY, 


integer, intent(in) 
NPOIN2, 


double precision, dimension(npoin2,nf), intent(in) 
XK, 


integer, intent(in) 
NDIRE, 


double precision, dimension(npoin2,ndire,nf), intent(in) 
FS, 


integer, intent(in) 
NF 

) 
 
 Parameters

[in]  npoin2  FS Variance density directional spectrum 
[out]  FWX  Surface stress due to wind along x 
[out]  FWY  Surface stress due to wind along y 
[in]  NF  Number of frequencies 
[in]  NDIRE  Number of directions 
[in]  NPOIN2  Number of points in 2d mesh 
[in]  XK  Discretized wave number 
[in]  ndire  FS Variance density directional spectrum 
[out]  FWX  Surface stress due to wind along x 
[out]  FWY  Surface stress due to wind along y 
[in]  NF  Number of frequencies 
[in]  NDIRE  Number of directions 
[in]  NPOIN2  Number of points in 2d mesh 
[in]  XK  Discretized wave number 
[in]  nf  FS Variance density directional spectrum 
[out]  FWX  Surface stress due to wind along x 
[out]  FWY  Surface stress due to wind along y 
[in]  NF  Number of frequencies 
[in]  NDIRE  Number of directions 
[in]  NPOIN2  Number of points in 2d mesh 
[in]  XK  Discretized wave number 
Definition at line 6 of file windiss1.f.