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

Go to the source code of this file.

Functions/Subroutines

subroutine tetmoy (TETAM, F, NDIRE, NF, NPOIN2)
 

Function/Subroutine Documentation

◆ tetmoy()

subroutine tetmoy ( double precision, dimension(npoin2), intent(inout)  TETAM,
double precision, dimension(npoin2,ndire,nf), intent(in)  F,
integer, intent(in)  NDIRE,
integer, intent(in)  NF,
integer, intent(in)  NPOIN2 
)
Parameters
[in]nf[in, out] COSMOY Work table
[in]COSTETCosine of teta angle
[in]DFREQFrequency steps between discretized frequencies
[in]FVariance density directional spectrum
[in]FREQDiscretized frequencies
[in]NFNumber of frequencies
[in]NDIRENumber of directions
[in]NPOIN2Number of points in 2d mesh
[in,out]SINMOYWork table
[in]SINTETSine of teta angle
[in]TAILFFacteur de queue du spectre
[in,out]TAUXCWork table
[in,out]TAUXSWork table
[out]TETAMDirectional spectrum mean direction
[in]ndire[in, out] COSMOY Work table
[in]COSTETCosine of teta angle
[in]DFREQFrequency steps between discretized frequencies
[in]FVariance density directional spectrum
[in]FREQDiscretized frequencies
[in]NFNumber of frequencies
[in]NDIRENumber of directions
[in]NPOIN2Number of points in 2d mesh
[in,out]SINMOYWork table
[in]SINTETSine of teta angle
[in]TAILFFacteur de queue du spectre
[in,out]TAUXCWork table
[in,out]TAUXSWork table
[out]TETAMDirectional spectrum mean direction
[in]npoin2[in, out] COSMOY Work table
[in]COSTETCosine of teta angle
[in]DFREQFrequency steps between discretized frequencies
[in]FVariance density directional spectrum
[in]FREQDiscretized frequencies
[in]NFNumber of frequencies
[in]NDIRENumber of directions
[in]NPOIN2Number of points in 2d mesh
[in,out]SINMOYWork table
[in]SINTETSine of teta angle
[in]TAILFFacteur de queue du spectre
[in,out]TAUXCWork table
[in,out]TAUXSWork table
[out]TETAMDirectional spectrum mean direction

Definition at line 7 of file tetmoy.f.

+ Here is the caller graph for this function: