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

Go to the source code of this file.

Functions/Subroutines

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

Function/Subroutine Documentation

◆ gaia_init()

subroutine gaia_init ( 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,
double precision, intent(in)  DT_TEL,
logical, intent(inout)  CHARR_TEL,
logical, intent(inout)  SUSP_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,
double precision, intent(in)  XMVE_TEL,
double precision, intent(in)  GRAV_TEL 
)
Parameters
[in]grafcountGRAFCOUNT Period of graphical outputs
[in]LISTCOUNTPeriod of listing outputs
[in]TELNITNumber of telemac iterations
[in]U_TELU velocity from telemac
[in]V_TELV velocity from telemac
[in]H_TELWater depth from tel h (n+1)
[in,out]ZF_TELBottom elevation of the calling telemac
[in,out]UETCARSquare of the friction velocity (coupling with tel 3d)
[in]DELTARTODO
[in,out]CF_TELQuadratic friction coefficient from telemac
[in,out]KS_TELBed roughness sent to telemac
[in]CODEName of calling programme (telemac2d or 3d)
[in]U3D3D velocity sent by telemac 3d (u)
[in]V3D3D velocity sent by telemac 3d (v)
[in]T_TELCurrent time in calling programme
[in]DT_TELTime step from telemac
[in,out]CHARR_TELLogical, bed load or not: sent to telemac-2d
[in,out]SUSP_TELLogical, suspended load or not: sent to telemac-2d
[in]THETAW_TELTODO
[in]HW_TELTODO
[in]TW_TELTODO
[in]UW_TELOrbital velocity
[in]YAGOUTLogical: if yes graphic output (steered by t2d)
[in]XMVE_TELTODO
[in]GRAV_TELTODO
[in]listcountGRAFCOUNT Period of graphical outputs
[in]LISTCOUNTPeriod of listing outputs
[in]TELNITNumber of telemac iterations
[in]U_TELU velocity from telemac
[in]V_TELV velocity from telemac
[in]H_TELWater depth from tel h (n+1)
[in,out]ZF_TELBottom elevation of the calling telemac
[in,out]UETCARSquare of the friction velocity (coupling with tel 3d)
[in]DELTARTODO
[in,out]CF_TELQuadratic friction coefficient from telemac
[in,out]KS_TELBed roughness sent to telemac
[in]CODEName of calling programme (telemac2d or 3d)
[in]U3D3D velocity sent by telemac 3d (u)
[in]V3D3D velocity sent by telemac 3d (v)
[in]T_TELCurrent time in calling programme
[in]DT_TELTime step from telemac
[in,out]CHARR_TELLogical, bed load or not: sent to telemac-2d
[in,out]SUSP_TELLogical, suspended load or not: sent to telemac-2d
[in]THETAW_TELTODO
[in]HW_TELTODO
[in]TW_TELTODO
[in]UW_TELOrbital velocity
[in]YAGOUTLogical: if yes graphic output (steered by t2d)
[in]XMVE_TELTODO
[in]GRAV_TELTODO

Definition at line 10 of file gaia_init.F.

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