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

Go to the source code of this file.

Functions/Subroutines

subroutine sisyphe (PART, LOOPCOUNT, GRAFCOUNT, LISTCOUNT, TELNIT, U_TEL, V_TEL, H_TEL, HN_TEL, ZF_TEL, UETCAR, CF_TEL, KS_TEL, CONSTFLOW, NSIS_CFD, SISYPHE_CFD, CODE, PERICOU, U3D, V3D, T_TEL, VISC_TEL, DT_TEL, CHARR_TEL, SUSP_TEL, FLBOR_TEL, SOLSYS, DM1, UCONV_TEL, VCONV_TEL, ZCONV, THETAW_TEL, HW_TEL, TW_TEL, UW_TEL, YAGOUT, API_ITER, GRCOMP)
 

Function/Subroutine Documentation

◆ sisyphe()

subroutine sisyphe ( integer, intent(in)  PART,
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(in)  HN_TEL,
type(bief_obj), intent(inout)  ZF_TEL,
type(bief_obj), intent(inout)  UETCAR,
type(bief_obj), intent(inout)  CF_TEL,
type(bief_obj), intent(inout)  KS_TEL,
logical, intent(inout)  CONSTFLOW,
integer, intent(inout)  NSIS_CFD,
logical, intent(inout)  SISYPHE_CFD,
character(len=24), intent(in)  CODE,
integer, intent(in)  PERICOU,
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,
type(bief_obj), intent(in)  FLBOR_TEL,
integer, intent(in)  SOLSYS,
type(bief_obj), intent(in)  DM1,
type(bief_obj), intent(in)  UCONV_TEL,
type(bief_obj), intent(in)  VCONV_TEL,
type(bief_obj), intent(in)  ZCONV,
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]partUCONV_TEL Advection velocity from telemac2d (x-direction)
[in,out]UETCARSquare of the friction velocity (coupling with tel 3d)
[in]U_TELU velocity from telemac
[in]VCONV_TELAdvection velocity from telemac2d (y-direction)
[in]VISC_TELVelocity diffusivity (telemac-2d)
[in]V_TELV velocity from telemac
[in]ZCONVThe piece-wise constant part of advection field 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_sisyphe
[in]YAGOUTLogical: if yes graphic output (steered by t2d)
[in]loopcountUCONV_TEL Advection velocity from telemac2d (x-direction)
[in,out]UETCARSquare of the friction velocity (coupling with tel 3d)
[in]U_TELU velocity from telemac
[in]VCONV_TELAdvection velocity from telemac2d (y-direction)
[in]VISC_TELVelocity diffusivity (telemac-2d)
[in]V_TELV velocity from telemac
[in]ZCONVThe piece-wise constant part of advection field 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_sisyphe
[in]YAGOUTLogical: if yes graphic output (steered by t2d)
[in]grafcountUCONV_TEL Advection velocity from telemac2d (x-direction)
[in,out]UETCARSquare of the friction velocity (coupling with tel 3d)
[in]U_TELU velocity from telemac
[in]VCONV_TELAdvection velocity from telemac2d (y-direction)
[in]VISC_TELVelocity diffusivity (telemac-2d)
[in]V_TELV velocity from telemac
[in]ZCONVThe piece-wise constant part of advection field 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_sisyphe
[in]YAGOUTLogical: if yes graphic output (steered by t2d)

Definition at line 12 of file sisyphe.F.

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