The TELEMAC-MASCARET system  trunk
Functions/Subroutines
gaia_step.F File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine gaia_step (LOOPCOUNT, GRAFCOUNT, LISTCOUNT, TELNIT, U_TEL, V_TEL, H_TEL, ZF_TEL, UETCAR, DELTAR, CF_TEL, KS_TEL, CODE, U3D, V3D, T_TEL, VISC_TEL, DT_TEL, CHARR_TEL, SUSP_TEL, XMVE_TEL, GRAV_TEL, THETAW_TEL, HW_TEL, TW_TEL, UW_TEL, YAGOUT, API_ITER, GRCOMP)
 

Function/Subroutine Documentation

◆ gaia_step()

subroutine gaia_step ( integer, intent(in)  LOOPCOUNT,
integer, intent(in)  GRAFCOUNT,
integer, intent(in)  LISTCOUNT,
integer, intent(in)  TELNIT,
type(bief_obj), intent(in)  U_TEL,
type(bief_obj), intent(in)  V_TEL,
type(bief_obj), intent(in)  H_TEL,
type(bief_obj), intent(inout)  ZF_TEL,
type(bief_obj), intent(inout)  UETCAR,
type(bief_obj), intent(in)  DELTAR,
type(bief_obj), intent(inout)  CF_TEL,
type(bief_obj), intent(inout)  KS_TEL,
character(len=24), intent(in)  CODE,
type(bief_obj), intent(in)  U3D,
type(bief_obj), intent(in)  V3D,
double precision, intent(in)  T_TEL,
type(bief_obj), intent(in)  VISC_TEL,
double precision, intent(in)  DT_TEL,
logical, intent(inout)  CHARR_TEL,
logical, intent(inout)  SUSP_TEL,
double precision, intent(in)  XMVE_TEL,
double precision, intent(in)  GRAV_TEL,
type(bief_obj), intent(in)  THETAW_TEL,
type(bief_obj), intent(in)  HW_TEL,
type(bief_obj), intent(in)  TW_TEL,
type(bief_obj), intent(in)  UW_TEL,
logical, intent(in)  YAGOUT,
integer, intent(in), optional  API_ITER,
integer, intent(in), optional  GRCOMP 
)
Parameters
[in]loopcount[in,out] CF_TEL QUADRATIC FRICTION COEFFICIENT FROM TELEMAC
[in,out]CHARR_TELLOGICAL, BED LOAD OR NOT: Sent to TELEMAC-2D
[in]CODENAME OF CALLING PROGRAMME (TELEMAC2D OR 3D)
[in]DT_TELTIME STEP FROM TELEMAC
[in]GRAFCOUNTPERIOD OF GRAPHICAL OUTPUTS
[in]GRCOMPCOUNTER FOR GRAPHICAL OUTPUTS
[in]H_TELWATER DEPTH FROM TEL H (N+1)
[in]HW_TELSIGNIFICANT WAVE HEIGHT
[in,out]KS_TELBED ROUGHNESS SENT TO TELEMAC
[in]LISTCOUNTPERIODE DE SORTIE LISTING
[in]LOOPCOUNTNUMERO DE L'ITERATION
[in,out]SUSP_TELLOGICAL, SUSPENDED LOAD OR NOT: Sent to TELEMAC
[in]TELNITNUMBER OF TELEMAC ITERATIONS
[in]T_TELCURRENT TIME IN CALLING PROGRAMME
[in]THETAW_TELWAVE DURECTION (DEG WRT OX AXIS)
[in]TW_TELMEAN WAVE PERIOD
[in]U3D,V3D3D VELOCITY SENT BY TELEMAC 3D
[in,out]UETCARSQUARE OF THE FRICTION VELOCITY (COUPLING WITH TEL 3D)
[in]U_TELU VELOCITY FROM TELEMAC
[in]UW_TELORBITAL WAVE VELOCITY
[in]VISC_TELVELOCITY DIFFUSIVITY (TELEMAC-2D)
[in]V_TELV VELOCITY FROM TELEMAC IS DM1*GRAD(ZCONV), SEE SOLSYS.
[in,out]ZF_TELBOTTOM ELEVATION OF THE CALLING TELEMAC
[in,out]API_ITEROPTIONAL, CURRENT ITERATION NUMBER IN THE API_GAIA
[in]YAGOUTLOGICAL: IF YES GRAPHIC OUTPUT (STEERED BY T2D)
[in]grafcount[in,out] CF_TEL QUADRATIC FRICTION COEFFICIENT FROM TELEMAC
[in,out]CHARR_TELLOGICAL, BED LOAD OR NOT: Sent to TELEMAC-2D
[in]CODENAME OF CALLING PROGRAMME (TELEMAC2D OR 3D)
[in]DT_TELTIME STEP FROM TELEMAC
[in]GRAFCOUNTPERIOD OF GRAPHICAL OUTPUTS
[in]GRCOMPCOUNTER FOR GRAPHICAL OUTPUTS
[in]H_TELWATER DEPTH FROM TEL H (N+1)
[in]HW_TELSIGNIFICANT WAVE HEIGHT
[in,out]KS_TELBED ROUGHNESS SENT TO TELEMAC
[in]LISTCOUNTPERIODE DE SORTIE LISTING
[in]LOOPCOUNTNUMERO DE L'ITERATION
[in,out]SUSP_TELLOGICAL, SUSPENDED LOAD OR NOT: Sent to TELEMAC
[in]TELNITNUMBER OF TELEMAC ITERATIONS
[in]T_TELCURRENT TIME IN CALLING PROGRAMME
[in]THETAW_TELWAVE DURECTION (DEG WRT OX AXIS)
[in]TW_TELMEAN WAVE PERIOD
[in]U3D,V3D3D VELOCITY SENT BY TELEMAC 3D
[in,out]UETCARSQUARE OF THE FRICTION VELOCITY (COUPLING WITH TEL 3D)
[in]U_TELU VELOCITY FROM TELEMAC
[in]UW_TELORBITAL WAVE VELOCITY
[in]VISC_TELVELOCITY DIFFUSIVITY (TELEMAC-2D)
[in]V_TELV VELOCITY FROM TELEMAC IS DM1*GRAD(ZCONV), SEE SOLSYS.
[in,out]ZF_TELBOTTOM ELEVATION OF THE CALLING TELEMAC
[in,out]API_ITEROPTIONAL, CURRENT ITERATION NUMBER IN THE API_GAIA
[in]YAGOUTLOGICAL: IF YES GRAPHIC OUTPUT (STEERED BY T2D)

Definition at line 12 of file gaia_step.F.

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