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

Go to the source code of this file.

Functions/Subroutines

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

Function/Subroutine Documentation

◆ rescue_gaia()

subroutine rescue_gaia ( 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, 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]THETAWWave direction (deg wrt ox axis)
[in]TROUVETrue if the variable i was found in the subroutine 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]THETAWWave direction (deg wrt ox axis)
[in]TROUVETrue if the variable i was found in the subroutine suite
[in,out]TWWave period
[in,out]ZFBed level

Definition at line 8 of file rescue_gaia.f.

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