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

Go to the source code of this file.

Functions/Subroutines

subroutine diffrac (CX, CY, CT, XK, CG, NPOIN2, NDIRE, IFF, NF, F, RX, RY, RXX, RYY, NEIGB)
 

Function/Subroutine Documentation

◆ diffrac()

subroutine diffrac ( double precision, dimension(npoin2,ndire), intent(inout)  CX,
double precision, dimension(npoin2,ndire), intent(inout)  CY,
double precision, dimension(npoin2,ndire), intent(inout)  CT,
double precision, dimension(npoin2,nf), intent(in)  XK,
double precision, dimension(npoin2,nf), intent(in)  CG,
integer, intent(in)  NPOIN2,
integer, intent(in)  NDIRE,
integer, intent(in)  IFF,
integer, intent(in)  NF,
double precision, dimension(npoin2,ndire,nf), intent(in)  F,
double precision, dimension(maxnsp,npoin2), intent(in)  RX,
double precision, dimension(maxnsp,npoin2), intent(in)  RY,
double precision, dimension(maxnsp,npoin2), intent(in)  RXX,
double precision, dimension(maxnsp,npoin2), intent(in)  RYY,
integer, dimension(npoin2,maxnsp), intent(in)  NEIGB 
)
Parameters
[in]nf[in, out] F Variance density directional spectrum
[in]FLTDIFIf true, local amplitudes are filtered
[in]FREQDiscretized frequencies
[in]IFFFrequency index
[in]MAXNSPConstant for meshfree technique
[in]NB_CLOSEArray used in the meshfree technique
[in]NBORGlobal number of boundary points
[in]NEIGBNeighbour points for meshfree method
[in]NFNumber of frequencies
[in]NDIRENumber of directions
[in]NPOIN2Number of points in 2d mesh
[in]NPTFRNumber of boundary points
[in]PROINFLogical indicating infinite depth assumption
[in]RXArray used in the meshfree technique
[in]RXXArray used in the meshfree technique
[in]RYArray used in the meshfree technique
[in]RYYArray used in the meshfree technique
[in]SINTETSine of teta angle
[in]SPHELogical indicating spherical coord assumption
[in]XKDiscretized wave number
[out]XKONPTArray used for computing diffraction parameter
[in]ndire[in, out] F Variance density directional spectrum
[in]FLTDIFIf true, local amplitudes are filtered
[in]FREQDiscretized frequencies
[in]IFFFrequency index
[in]MAXNSPConstant for meshfree technique
[in]NB_CLOSEArray used in the meshfree technique
[in]NBORGlobal number of boundary points
[in]NEIGBNeighbour points for meshfree method
[in]NFNumber of frequencies
[in]NDIRENumber of directions
[in]NPOIN2Number of points in 2d mesh
[in]NPTFRNumber of boundary points
[in]PROINFLogical indicating infinite depth assumption
[in]RXArray used in the meshfree technique
[in]RXXArray used in the meshfree technique
[in]RYArray used in the meshfree technique
[in]RYYArray used in the meshfree technique
[in]SINTETSine of teta angle
[in]SPHELogical indicating spherical coord assumption
[in]XKDiscretized wave number
[out]XKONPTArray used for computing diffraction parameter
[in]npoin2[in, out] F Variance density directional spectrum
[in]FLTDIFIf true, local amplitudes are filtered
[in]FREQDiscretized frequencies
[in]IFFFrequency index
[in]MAXNSPConstant for meshfree technique
[in]NB_CLOSEArray used in the meshfree technique
[in]NBORGlobal number of boundary points
[in]NEIGBNeighbour points for meshfree method
[in]NFNumber of frequencies
[in]NDIRENumber of directions
[in]NPOIN2Number of points in 2d mesh
[in]NPTFRNumber of boundary points
[in]PROINFLogical indicating infinite depth assumption
[in]RXArray used in the meshfree technique
[in]RXXArray used in the meshfree technique
[in]RYArray used in the meshfree technique
[in]RYYArray used in the meshfree technique
[in]SINTETSine of teta angle
[in]SPHELogical indicating spherical coord assumption
[in]XKDiscretized wave number
[out]XKONPTArray used for computing diffraction parameter
[in]iff[in, out] F Variance density directional spectrum
[in]FLTDIFIf true, local amplitudes are filtered
[in]FREQDiscretized frequencies
[in]IFFFrequency index
[in]MAXNSPConstant for meshfree technique
[in]NB_CLOSEArray used in the meshfree technique
[in]NBORGlobal number of boundary points
[in]NEIGBNeighbour points for meshfree method
[in]NFNumber of frequencies
[in]NDIRENumber of directions
[in]NPOIN2Number of points in 2d mesh
[in]NPTFRNumber of boundary points
[in]PROINFLogical indicating infinite depth assumption
[in]RXArray used in the meshfree technique
[in]RXXArray used in the meshfree technique
[in]RYArray used in the meshfree technique
[in]RYYArray used in the meshfree technique
[in]SINTETSine of teta angle
[in]SPHELogical indicating spherical coord assumption
[in]XKDiscretized wave number
[out]XKONPTArray used for computing diffraction parameter

Definition at line 8 of file diffrac.f.

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