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

Go to the source code of this file.

Functions/Subroutines

subroutine ecrspe (F, NDIRE, NF, NPOIN2, LT, AUXIL, NOLEO, NLEO, DEBRES, DATE, TIME, KNOLG, MESH)
 

Function/Subroutine Documentation

◆ ecrspe()

subroutine ecrspe ( double precision, dimension(npoin2,ndire,nf), intent(in)  F,
integer, intent(in)  NDIRE,
integer, intent(in)  NF,
integer, intent(in)  NPOIN2,
integer, intent(in)  LT,
double precision, dimension(ndire,nf), intent(inout)  AUXIL,
integer, dimension(nleo), intent(in)  NOLEO,
integer, intent(in)  NLEO,
logical, intent(in)  DEBRES,
integer, dimension(3), intent(in)  DATE,
integer, dimension(3), intent(in)  TIME,
integer, dimension(*), intent(in)  KNOLG,
type(bief_mesh), intent(inout)  MESH 
)
Parameters
[in]npoin2[in, out] AUXIL Directional spectrum work table
[in]DATEStart date
[in]DEBRESLogical indicating the first time step to print
[in]FVariance density directional spectrum
[in]ISLEOArray of logical
[in]KNOLGArray linking local to global indexes in parall
[in]NFNumber of frequencies
[in]NKDummy variable
[in]NLEONumber of spectrum printout points
[in]NOLEOIndex array of spectrum printout points
[in]NDIRENumber of directions
[in]NPOIN2Number of points in 2d mesh
[in]TIMEStart time
[in]nleo[in, out] AUXIL Directional spectrum work table
[in]DATEStart date
[in]DEBRESLogical indicating the first time step to print
[in]FVariance density directional spectrum
[in]ISLEOArray of logical
[in]KNOLGArray linking local to global indexes in parall
[in]NFNumber of frequencies
[in]NKDummy variable
[in]NLEONumber of spectrum printout points
[in]NOLEOIndex array of spectrum printout points
[in]NDIRENumber of directions
[in]NPOIN2Number of points in 2d mesh
[in]TIMEStart time
[in]nf[in, out] AUXIL Directional spectrum work table
[in]DATEStart date
[in]DEBRESLogical indicating the first time step to print
[in]FVariance density directional spectrum
[in]ISLEOArray of logical
[in]KNOLGArray linking local to global indexes in parall
[in]NFNumber of frequencies
[in]NKDummy variable
[in]NLEONumber of spectrum printout points
[in]NOLEOIndex array of spectrum printout points
[in]NDIRENumber of directions
[in]NPOIN2Number of points in 2d mesh
[in]TIMEStart time
[in]ndire[in, out] AUXIL Directional spectrum work table
[in]DATEStart date
[in]DEBRESLogical indicating the first time step to print
[in]FVariance density directional spectrum
[in]ISLEOArray of logical
[in]KNOLGArray linking local to global indexes in parall
[in]NFNumber of frequencies
[in]NKDummy variable
[in]NLEONumber of spectrum printout points
[in]NOLEOIndex array of spectrum printout points
[in]NDIRENumber of directions
[in]NPOIN2Number of points in 2d mesh
[in]TIMEStart time
[in]lt[in, out] AUXIL Directional spectrum work table
[in]DATEStart date
[in]DEBRESLogical indicating the first time step to print
[in]FVariance density directional spectrum
[in]ISLEOArray of logical
[in]KNOLGArray linking local to global indexes in parall
[in]NFNumber of frequencies
[in]NKDummy variable
[in]NLEONumber of spectrum printout points
[in]NOLEOIndex array of spectrum printout points
[in]NDIRENumber of directions
[in]NPOIN2Number of points in 2d mesh
[in]TIMEStart time

Definition at line 8 of file ecrspe.f.

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