The TELEMAC-MASCARET system
trunk
|
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) |
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 | ||
) |
[in] | part | UCONV_TEL Advection velocity from telemac2d (x-direction) |
[in,out] | UETCAR | Square of the friction velocity (coupling with tel 3d) |
[in] | U_TEL | U velocity from telemac |
[in] | VCONV_TEL | Advection velocity from telemac2d (y-direction) |
[in] | VISC_TEL | Velocity diffusivity (telemac-2d) |
[in] | V_TEL | V velocity from telemac |
[in] | ZCONV | The piece-wise constant part of advection field IS DM1*GRAD(ZCONV), SEE SOLSYS. |
[in,out] | ZF_TEL | Bottom elevation of the calling telemac |
[in,out] | API_ITER | Optional - current iteration number in the api_sisyphe |
[in] | YAGOUT | Logical: if yes graphic output (steered by t2d) |
[in] | loopcount | UCONV_TEL Advection velocity from telemac2d (x-direction) |
[in,out] | UETCAR | Square of the friction velocity (coupling with tel 3d) |
[in] | U_TEL | U velocity from telemac |
[in] | VCONV_TEL | Advection velocity from telemac2d (y-direction) |
[in] | VISC_TEL | Velocity diffusivity (telemac-2d) |
[in] | V_TEL | V velocity from telemac |
[in] | ZCONV | The piece-wise constant part of advection field IS DM1*GRAD(ZCONV), SEE SOLSYS. |
[in,out] | ZF_TEL | Bottom elevation of the calling telemac |
[in,out] | API_ITER | Optional - current iteration number in the api_sisyphe |
[in] | YAGOUT | Logical: if yes graphic output (steered by t2d) |
[in] | grafcount | UCONV_TEL Advection velocity from telemac2d (x-direction) |
[in,out] | UETCAR | Square of the friction velocity (coupling with tel 3d) |
[in] | U_TEL | U velocity from telemac |
[in] | VCONV_TEL | Advection velocity from telemac2d (y-direction) |
[in] | VISC_TEL | Velocity diffusivity (telemac-2d) |
[in] | V_TEL | V velocity from telemac |
[in] | ZCONV | The piece-wise constant part of advection field IS DM1*GRAD(ZCONV), SEE SOLSYS. |
[in,out] | ZF_TEL | Bottom elevation of the calling telemac |
[in,out] | API_ITER | Optional - current iteration number in the api_sisyphe |
[in] | YAGOUT | Logical: if yes graphic output (steered by t2d) |
Definition at line 12 of file sisyphe.F.