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

Go to the source code of this file.

Functions/Subroutines

subroutine speini (F, SPEC, FRA, UV, VV, FREMAX, FETCH, SIGMAA, SIGMAB, GAMMA, FPIC, HM0, ALPHIL, TETA1, SPRED1, TETA2, SPRED2, XLAMDA, NPOIN2, NDIRE, NF, INISPE, DEPTH, FRABI)
 

Function/Subroutine Documentation

◆ speini()

subroutine speini ( double precision, dimension(npoin2,ndire,nf), intent(inout)  F,
double precision, dimension(nf), intent(inout)  SPEC,
double precision, dimension(ndire), intent(inout)  FRA,
double precision, dimension(*), intent(in)  UV,
double precision, dimension(*), intent(in)  VV,
double precision, intent(in)  FREMAX,
double precision, intent(in)  FETCH,
double precision, intent(in)  SIGMAA,
double precision, intent(in)  SIGMAB,
double precision, intent(in)  GAMMA,
double precision, intent(in)  FPIC,
double precision, intent(in)  HM0,
double precision, intent(in)  ALPHIL,
double precision, intent(in)  TETA1,
double precision, intent(in)  SPRED1,
double precision, intent(in)  TETA2,
double precision, intent(in)  SPRED2,
double precision, intent(in)  XLAMDA,
integer, intent(in)  NPOIN2,
integer, intent(in)  NDIRE,
integer, intent(in)  NF,
integer, intent(in)  INISPE,
double precision, dimension(npoin2), intent(in)  DEPTH,
integer, intent(in)  FRABI 
)
Parameters
[in]npoin2ALPHIL Initial phillips constant (alpha)
[in]DEPTHWater depth
[out]FVariance density directional spetcrum
[in]FETCHInitial mean fetch value
[in]FPICInitial peak frequency
[out]FRADirectional spreading function values
[in]FRABIInitial angular distribution function
[in]FREMAXInitial maximum peak frequency
[in]GAMMAInitial jonswap spectrum peak factor
[in]HM0Initial significant wave height
[in]INISPEType of initial directional spectrum
[in]NFNumber of frequencies
[in]NDIRENumber of directions
[in]NPOIN2Number of points in 2d mesh
[in]SIGMAAInitial value of sigma for jonswap spectrum (F<FP)
[in]SIGMABInitial value of sigma for jonswap spectrum (F>FP)
[out]SPECVariance density frequency spectrum
[in]SPRED1Initial directional spread 1
[in]SPRED2Initial directional spread 2
[in]TETA1Main direction 1
[in]TETA2Main direction 2
[in]UVWind velocity along x at the mesh points
[in]VVWind velocity along y at the mesh points
[in]XLAMDAWeighting factor for fra
[in]ndireALPHIL Initial phillips constant (alpha)
[in]DEPTHWater depth
[out]FVariance density directional spetcrum
[in]FETCHInitial mean fetch value
[in]FPICInitial peak frequency
[out]FRADirectional spreading function values
[in]FRABIInitial angular distribution function
[in]FREMAXInitial maximum peak frequency
[in]GAMMAInitial jonswap spectrum peak factor
[in]HM0Initial significant wave height
[in]INISPEType of initial directional spectrum
[in]NFNumber of frequencies
[in]NDIRENumber of directions
[in]NPOIN2Number of points in 2d mesh
[in]SIGMAAInitial value of sigma for jonswap spectrum (F<FP)
[in]SIGMABInitial value of sigma for jonswap spectrum (F>FP)
[out]SPECVariance density frequency spectrum
[in]SPRED1Initial directional spread 1
[in]SPRED2Initial directional spread 2
[in]TETA1Main direction 1
[in]TETA2Main direction 2
[in]UVWind velocity along x at the mesh points
[in]VVWind velocity along y at the mesh points
[in]XLAMDAWeighting factor for fra
[in]nfALPHIL Initial phillips constant (alpha)
[in]DEPTHWater depth
[out]FVariance density directional spetcrum
[in]FETCHInitial mean fetch value
[in]FPICInitial peak frequency
[out]FRADirectional spreading function values
[in]FRABIInitial angular distribution function
[in]FREMAXInitial maximum peak frequency
[in]GAMMAInitial jonswap spectrum peak factor
[in]HM0Initial significant wave height
[in]INISPEType of initial directional spectrum
[in]NFNumber of frequencies
[in]NDIRENumber of directions
[in]NPOIN2Number of points in 2d mesh
[in]SIGMAAInitial value of sigma for jonswap spectrum (F<FP)
[in]SIGMABInitial value of sigma for jonswap spectrum (F>FP)
[out]SPECVariance density frequency spectrum
[in]SPRED1Initial directional spread 1
[in]SPRED2Initial directional spread 2
[in]TETA1Main direction 1
[in]TETA2Main direction 2
[in]UVWind velocity along x at the mesh points
[in]VVWind velocity along y at the mesh points
[in]XLAMDAWeighting factor for fra
[in]inispeALPHIL Initial phillips constant (alpha)
[in]DEPTHWater depth
[out]FVariance density directional spetcrum
[in]FETCHInitial mean fetch value
[in]FPICInitial peak frequency
[out]FRADirectional spreading function values
[in]FRABIInitial angular distribution function
[in]FREMAXInitial maximum peak frequency
[in]GAMMAInitial jonswap spectrum peak factor
[in]HM0Initial significant wave height
[in]INISPEType of initial directional spectrum
[in]NFNumber of frequencies
[in]NDIRENumber of directions
[in]NPOIN2Number of points in 2d mesh
[in]SIGMAAInitial value of sigma for jonswap spectrum (F<FP)
[in]SIGMABInitial value of sigma for jonswap spectrum (F>FP)
[out]SPECVariance density frequency spectrum
[in]SPRED1Initial directional spread 1
[in]SPRED2Initial directional spread 2
[in]TETA1Main direction 1
[in]TETA2Main direction 2
[in]UVWind velocity along x at the mesh points
[in]VVWind velocity along y at the mesh points
[in]XLAMDAWeighting factor for fra
[in]frabiALPHIL Initial phillips constant (alpha)
[in]DEPTHWater depth
[out]FVariance density directional spetcrum
[in]FETCHInitial mean fetch value
[in]FPICInitial peak frequency
[out]FRADirectional spreading function values
[in]FRABIInitial angular distribution function
[in]FREMAXInitial maximum peak frequency
[in]GAMMAInitial jonswap spectrum peak factor
[in]HM0Initial significant wave height
[in]INISPEType of initial directional spectrum
[in]NFNumber of frequencies
[in]NDIRENumber of directions
[in]NPOIN2Number of points in 2d mesh
[in]SIGMAAInitial value of sigma for jonswap spectrum (F<FP)
[in]SIGMABInitial value of sigma for jonswap spectrum (F>FP)
[out]SPECVariance density frequency spectrum
[in]SPRED1Initial directional spread 1
[in]SPRED2Initial directional spread 2
[in]TETA1Main direction 1
[in]TETA2Main direction 2
[in]UVWind velocity along x at the mesh points
[in]VVWind velocity along y at the mesh points
[in]XLAMDAWeighting factor for fra

Definition at line 10 of file speini.f.

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