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

Go to the source code of this file.

Functions/Subroutines

subroutine rescue_sisyphe (H, S, ZF, ZR, ES, HW, TW, THETAW, NPOIN, NOMBLAY, NSICLA, TROUVE, ALIRE, PASS, ICF, LISTI, MAXVAR)
 

Function/Subroutine Documentation

◆ rescue_sisyphe()

subroutine rescue_sisyphe ( double precision, dimension(npoin), intent(inout)  H,
double precision, dimension(npoin), intent(inout)  S,
double precision, dimension(npoin), intent(inout)  ZF,
double precision, dimension(npoin), intent(inout)  ZR,
double precision, dimension(npoin,nomblay), intent(in)  ES,
double precision, dimension(npoin), intent(inout)  HW,
double precision, dimension(npoin), intent(inout)  TW,
double precision, dimension(npoin), intent(inout)  THETAW,
integer, intent(in)  NPOIN,
integer, intent(in)  NOMBLAY,
integer, intent(in)  NSICLA,
integer, dimension(maxvar), intent(inout)  TROUVE,
integer, dimension(maxvar), intent(in)  ALIRE,
logical, intent(in)  PASS,
integer, intent(in)  ICF,
logical, intent(in)  LISTI,
integer, intent(in)  MAXVAR 
)
Parameters
[in]maxvarALIRE List variables to be read
[in,out]HWater depth
[in,out]HWWave depth
[in]ICFBed-load or total load transport formulas
[in]LISTILogical, if yes print messages
[in]MAXVARMaximum number of output variables
[in]NPOINNumber of mesh nodes
[in]PASSLogical, if yes begin of computation
[in,out]SWater surface elevation
[in,out]THETAWAngle between wave and current
[in]TROUVELogique indiquant les variables trouvees DANS LE SOUS-PROGRAMME SUITE
[in,out]TWWave period
[in,out]ZFBed level
[in]nomblayALIRE List variables to be read
[in,out]HWater depth
[in,out]HWWave depth
[in]ICFBed-load or total load transport formulas
[in]LISTILogical, if yes print messages
[in]MAXVARMaximum number of output variables
[in]NPOINNumber of mesh nodes
[in]PASSLogical, if yes begin of computation
[in,out]SWater surface elevation
[in,out]THETAWAngle between wave and current
[in]TROUVELogique indiquant les variables trouvees DANS LE SOUS-PROGRAMME SUITE
[in,out]TWWave period
[in,out]ZFBed level
[in]nsiclaALIRE List variables to be read
[in,out]HWater depth
[in,out]HWWave depth
[in]ICFBed-load or total load transport formulas
[in]LISTILogical, if yes print messages
[in]MAXVARMaximum number of output variables
[in]NPOINNumber of mesh nodes
[in]PASSLogical, if yes begin of computation
[in,out]SWater surface elevation
[in,out]THETAWAngle between wave and current
[in]TROUVELogique indiquant les variables trouvees DANS LE SOUS-PROGRAMME SUITE
[in,out]TWWave period
[in,out]ZFBed level

Definition at line 8 of file rescue_sisyphe.f.

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