The TELEMAC-MASCARET system  trunk
Functions/Subroutines
moudiss2.f File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine moudiss2 (FWX, FWY, NPOIN2, XK, NDIRE, FS, NF, TAUX1, F_INT)
 

Function/Subroutine Documentation

◆ moudiss2()

subroutine moudiss2 ( 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,
double precision, dimension(npoin2), intent(inout)  TAUX1,
double precision, dimension(npoin2), intent(inout)  F_INT 
)
Parameters
[in]npoin2FS Variance density directional spectrum
[out]FWXSurface stress due to wind along x
[out]FWYSurface stress due to wind along y
[in]NFNumber of frequencies
[in]NDIRENumber of directions
[in]NPOIN2Number of points in 2d mesh
[in]XKDiscretized wave number
[in]ndireFS Variance density directional spectrum
[out]FWXSurface stress due to wind along x
[out]FWYSurface stress due to wind along y
[in]NFNumber of frequencies
[in]NDIRENumber of directions
[in]NPOIN2Number of points in 2d mesh
[in]XKDiscretized wave number
[in]nfFS Variance density directional spectrum
[out]FWXSurface stress due to wind along x
[out]FWYSurface stress due to wind along y
[in]NFNumber of frequencies
[in]NDIRENumber of directions
[in]NPOIN2Number of points in 2d mesh
[in]XKDiscretized wave number

Definition at line 6 of file moudiss2.f.

+ Here is the caller graph for this function: