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

Go to the source code of this file.

Functions/Subroutines

subroutine radiat (FX1, FY1, XK1, FS, CG1, CGSUC1, DSXXDX, DSXYDX, DSXYDY, DSYYDY)
 

Function/Subroutine Documentation

◆ radiat()

subroutine radiat ( double precision, dimension(npoin2), intent(inout)  FX1,
double precision, dimension(npoin2), intent(inout)  FY1,
double precision, dimension(npoin2,nf), intent(in)  XK1,
double precision, dimension(npoin2,ndire,nf), intent(in)  FS,
double precision, dimension(npoin2,nf), intent(in)  CG1,
double precision, dimension(npoin2,nf), intent(inout)  CGSUC1,
double precision, dimension(npoin2), intent(inout)  DSXXDX,
double precision, dimension(npoin2), intent(inout)  DSXYDX,
double precision, dimension(npoin2), intent(inout)  DSXYDY,
double precision, dimension(npoin2), intent(inout)  DSYYDY 
)
Parameters
[in]fsCG1 Discretized group velocity
[out]CGSUC1Work table
[in]DEPTH1Water depth
[in,out]DSXXDXWork table
[in,out]DSXYDXWork table
[in,out]DSXYDYWork table
[in,out]DSYYDYWork table
[in]FSDirectional spectrum
[out]FXDriving force along x
[out]FYDriving force along y
[in]NPOIN2Number of points in 2d mesh
[out]SXXRadiation stress along xx
[out]SXYRadiation stress along xy
[out]SYYRadiation stress along yy
[in]XK1Discretized wave number

Definition at line 8 of file radiat.f.

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