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

Go to the source code of this file.

Functions/Subroutines

subroutine qtria1 (F, XK, NF, NDIRE, NPOIN2, TSTOT, FTOT, FMOY)
 

Function/Subroutine Documentation

◆ qtria1()

subroutine qtria1 ( double precision, dimension(npoin2,ndire,nf), intent(in)  F,
double precision, dimension(npoin2,nf), intent(in)  XK,
integer, intent(in)  NF,
integer, intent(in)  NDIRE,
integer, intent(in)  NPOIN2,
double precision, dimension(npoin2,ndire,nf), intent(inout)  TSTOT,
double precision, dimension(npoin2), intent(in)  FTOT,
double precision, dimension(npoin2), intent(in)  FMOY 
)
Parameters
[in]nfALFLTA Coefficient alpha of lta triad interaction model
[in]DEPTHWater depth
[in]FDirectional spectrum
[in]FMOYMean frequencies f-10
[in]FREQDiscretized frequencies
[in]FTOTSpectrum variance
[in]GRAVITGravity acceleration
[in]NFNumber of frequencies
[in]NDIRENumber of directions
[in]NPOIN2Number of points in 2d mesh
[in]RFMLTACoefficient of lta triad interaction model
[in,out]TSTOTTotal part of the source term contribution
[in]XKDiscretized wave number
[in]ndireALFLTA Coefficient alpha of lta triad interaction model
[in]DEPTHWater depth
[in]FDirectional spectrum
[in]FMOYMean frequencies f-10
[in]FREQDiscretized frequencies
[in]FTOTSpectrum variance
[in]GRAVITGravity acceleration
[in]NFNumber of frequencies
[in]NDIRENumber of directions
[in]NPOIN2Number of points in 2d mesh
[in]RFMLTACoefficient of lta triad interaction model
[in,out]TSTOTTotal part of the source term contribution
[in]XKDiscretized wave number
[in]npoin2ALFLTA Coefficient alpha of lta triad interaction model
[in]DEPTHWater depth
[in]FDirectional spectrum
[in]FMOYMean frequencies f-10
[in]FREQDiscretized frequencies
[in]FTOTSpectrum variance
[in]GRAVITGravity acceleration
[in]NFNumber of frequencies
[in]NDIRENumber of directions
[in]NPOIN2Number of points in 2d mesh
[in]RFMLTACoefficient of lta triad interaction model
[in,out]TSTOTTotal part of the source term contribution
[in]XKDiscretized wave number
Parameters
[in]ALFLTACoefficient alpha of lta triad interaction model
[in]RFMLTACoefficient of lta triad interaction model
[in]RAISFFrequential ratio

JR @ ADJOINTWARE: ALGORITHMIC DIFFERENTIATION

JR @ ADJOINTWARE: ALGORITHMIC DIFFERENTIATION

Definition at line 7 of file qtria1.f.

+ Here is the call graph for this function:
+ Here is the caller graph for this function: