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

Go to the source code of this file.

Functions/Subroutines

subroutine transf (FA, FR, XK, KNEW, NEWF, NEWF1, TAUX1, TAUX2, NPOIN2, NDIRE, NF)
 

Function/Subroutine Documentation

◆ transf()

subroutine transf ( double precision, dimension(npoin2,ndire,nf), intent(inout)  FA,
double precision, dimension(npoin2,ndire,nf), intent(in)  FR,
double precision, dimension(npoin2,nf), intent(in)  XK,
integer, dimension(npoin2), intent(inout)  KNEW,
integer, dimension(npoin2), intent(inout)  NEWF,
integer, dimension(npoin2), intent(inout)  NEWF1,
double precision, dimension(npoin2), intent(inout)  TAUX1,
double precision, dimension(npoin2), intent(inout)  TAUX2,
integer, intent(in)  NPOIN2,
integer, intent(in)  NDIRE,
integer, intent(in)  NF 
)
Parameters
[in]npoin2COSTET Cosine of teta angle
[in]DFREQFrequency steps between discretized frequencies
[out]FADirectional spectrum in absolute frequencies
[in]FRDirectional spectrum in relative frequencies
[in]FREQDiscretized frequencies
[in]GRADEBN.of first iteration for graphics printouts
[in]GRAPRDPeriod for graphic printouts
[in,out]KNEWWork table
[in]LTNumber of the time step currently solved
[in,out]NEWFWork table
[in,out]NEWF1Work table
[in]NFNumber of frequencies
[in]NDIRENumber of directions
[in]NPOIN2Number of points in 2d mesh
[in]RAISFRaison frequentielle
[in]SINTETSine of teta angle
[in,out]TAUX1Work table
[in,out]TAUX2Work table
[in]UCCurrent velocity along x at the mesh points
[in]VCCurrent velocity along y at the mesh points
[in]XKDiscretized wave number
[in]ndireCOSTET Cosine of teta angle
[in]DFREQFrequency steps between discretized frequencies
[out]FADirectional spectrum in absolute frequencies
[in]FRDirectional spectrum in relative frequencies
[in]FREQDiscretized frequencies
[in]GRADEBN.of first iteration for graphics printouts
[in]GRAPRDPeriod for graphic printouts
[in,out]KNEWWork table
[in]LTNumber of the time step currently solved
[in,out]NEWFWork table
[in,out]NEWF1Work table
[in]NFNumber of frequencies
[in]NDIRENumber of directions
[in]NPOIN2Number of points in 2d mesh
[in]RAISFRaison frequentielle
[in]SINTETSine of teta angle
[in,out]TAUX1Work table
[in,out]TAUX2Work table
[in]UCCurrent velocity along x at the mesh points
[in]VCCurrent velocity along y at the mesh points
[in]XKDiscretized wave number
[in]nfCOSTET Cosine of teta angle
[in]DFREQFrequency steps between discretized frequencies
[out]FADirectional spectrum in absolute frequencies
[in]FRDirectional spectrum in relative frequencies
[in]FREQDiscretized frequencies
[in]GRADEBN.of first iteration for graphics printouts
[in]GRAPRDPeriod for graphic printouts
[in,out]KNEWWork table
[in]LTNumber of the time step currently solved
[in,out]NEWFWork table
[in,out]NEWF1Work table
[in]NFNumber of frequencies
[in]NDIRENumber of directions
[in]NPOIN2Number of points in 2d mesh
[in]RAISFRaison frequentielle
[in]SINTETSine of teta angle
[in,out]TAUX1Work table
[in,out]TAUX2Work table
[in]UCCurrent velocity along x at the mesh points
[in]VCCurrent velocity along y at the mesh points
[in]XKDiscretized wave number

Definition at line 8 of file transf.f.

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