95e9467e84
Capabilities include: - Wave generation - Solitary wave using Boussinesq theory - Cnoidal wave theory - StokesI, StokesII, StokesV wave theory - Active wave absorption at the inflow/outflow boundaries based on shallow water theory Authors: - Javier Lopez Lara (jav.lopez@unican.es) - Gabriel Barajas (barajasg@unican.es) - Inigo Losada (losadai@unican.es)
77 lines
2.2 KiB
C
77 lines
2.2 KiB
C
/*---------------------------------------------------------------------------*\
|
|
IH-Cantabria 2015 (http://www.ihcantabria.com/en/)
|
|
IHFOAM 2015 (http://ihfoam.ihcantabria.com/)
|
|
|
|
Author(s): Javier Lopez Lara (jav.lopez@unican.es)
|
|
Gabriel Barajas (barajasg@unican.es)
|
|
\*---------------------------------------------------------------------------*/
|
|
|
|
if ( waveTheory_ == "StokesI" )
|
|
{
|
|
calculatedLevel = RealwaterDepth_
|
|
+ timeMult * StokesIFun :: eta
|
|
(
|
|
waveHeight_,
|
|
waveKx,
|
|
xGroup[1],
|
|
waveKy,
|
|
yGroup[1],
|
|
waveOmega,
|
|
currTime,
|
|
wavePhase_
|
|
);
|
|
}
|
|
else if ( waveTheory_ == "StokesII" )
|
|
{
|
|
calculatedLevel = RealwaterDepth_
|
|
+ timeMult * StokesIIFun :: eta
|
|
(
|
|
waveHeight_,
|
|
RealwaterDepth_,
|
|
waveKx,
|
|
xGroup[1],
|
|
waveKy,
|
|
yGroup[1],
|
|
waveOmega,
|
|
currTime,
|
|
wavePhase_
|
|
);
|
|
}
|
|
else if ( waveTheory_ == "StokesV" )
|
|
{
|
|
calculatedLevel = RealwaterDepth_
|
|
+ timeMult * stokesVFun :: eta
|
|
(
|
|
RealwaterDepth_,
|
|
waveKx,
|
|
waveKy,
|
|
lambdaStokesV_,
|
|
wavePeriod_,
|
|
xGroup[1],
|
|
yGroup[1],
|
|
currTime,
|
|
wavePhase_
|
|
);
|
|
}
|
|
else if ( waveTheory_ == "Cnoidal" )
|
|
{
|
|
calculatedLevel = RealwaterDepth_
|
|
+ timeMult * cnoidalFun :: eta
|
|
(
|
|
waveHeight_,
|
|
mCnoidal_,
|
|
waveKx,
|
|
waveKy,
|
|
wavePeriod_,
|
|
xGroup[1],
|
|
yGroup[1],
|
|
currTime
|
|
);
|
|
}
|
|
else
|
|
{
|
|
FatalError << "Wave theory not supported, use:\n"
|
|
<< "StokesI, StokesII, StokesV, Cnoidal, SolitaryBoussinesq."
|
|
<< exit(FatalError);
|
|
}
|