The TELEMAC-MASCARET system
trunk
|
Go to the source code of this file.
Functions/Subroutines | |
subroutine | bedload_solvs_fe (MESH, S, EBOR, MASKEL, MASK, QSX, QSY, IELMT, NPOIN, NPTFR, KENT, KDIR, KDDL, LIMTEC, DT, MSK, ENTET, T1, T2, T3, T4, T8, ZFCL, HZ, HZN, GLOSEG, DIMGLO, FLODEL, FLULIM, NSEG, UNSV2D, CSF_SABLE, ICLA, FLBCLA, AVA, LIQBOR, QBOR, MAXADV) |
subroutine bedload_solvs_fe | ( | type(bief_mesh), intent(inout) | MESH, |
type(bief_obj), intent(in) | S, | ||
type(bief_obj), intent(inout) | EBOR, | ||
type(bief_obj), intent(in) | MASKEL, | ||
type(bief_obj), intent(in) | MASK, | ||
type(bief_obj), intent(in) | QSX, | ||
type(bief_obj), intent(in) | QSY, | ||
integer, intent(in) | IELMT, | ||
integer, intent(in) | NPOIN, | ||
integer, intent(in) | NPTFR, | ||
integer, intent(in) | KENT, | ||
integer, intent(in) | KDIR, | ||
integer, intent(in) | KDDL, | ||
type(bief_obj), intent(inout) | LIMTEC, | ||
double precision, intent(in) | DT, | ||
logical, intent(in) | MSK, | ||
logical, intent(in) | ENTET, | ||
type(bief_obj), intent(inout) | T1, | ||
type(bief_obj), intent(inout) | T2, | ||
type(bief_obj), intent(inout) | T3, | ||
type(bief_obj), intent(inout) | T4, | ||
type(bief_obj), intent(inout) | T8, | ||
type(bief_obj), intent(inout) | ZFCL, | ||
type(bief_obj), intent(inout) | HZ, | ||
type(bief_obj), intent(in) | HZN, | ||
integer, dimension(dimglo,2), intent(in) | GLOSEG, | ||
integer, intent(in) | DIMGLO, | ||
type(bief_obj), intent(inout) | FLODEL, | ||
double precision, dimension(nseg), intent(inout) | FLULIM, | ||
integer, intent(in) | NSEG, | ||
type(bief_obj), intent(in) | UNSV2D, | ||
double precision, intent(in) | CSF_SABLE, | ||
integer, intent(in) | ICLA, | ||
type(bief_obj), intent(inout) | FLBCLA, | ||
double precision, dimension(npoin), intent(in) | AVA, | ||
type(bief_obj), intent(in) | LIQBOR, | ||
type(bief_obj), intent(in) | QBOR, | ||
integer, intent(in) | MAXADV | ||
) |
[in,out] | mesh | [in] DIMGLO First dimension of gloseg |
[in] | DT | Time step |
[in,out] | EBOR | Boundary condition for bed evolution (dirichlet) |
[in] | ENTET | Logical, if yes information is given on mass conservation |
[in,out] | FLBCLA | Fluxes at boundary for the class |
[out] | FLODEL | Fluxes between points (per segment) |
[out] | FLULIM | Limitation of fluxes |
[in] | GLOSEG | Connectivity table for segments |
[out] | HZ | New available layer of sediment |
[in] | HZN | Old available layer of sediment |
[in] | ICLA | Class number |
[in] | IELMT | Number of elements |
[in] | KDDL | Convention for degree of freedom |
[in] | KDIR | Convention for dirichlet point |
[in] | KENT | Convention for liquid input with prescribed value |
[in] | LIMTEC | Type of boundary condition |
[in] | LIQBOR | Type of boundary condition on bedload discharge |
[in] | MASK | Block of masks, every one for a type of boundary SEE DIFFIN.F IN LIBRARY BIEF. |
[in] | MASKEL | Masking of elements |
[in] | MAXADV | Maximum number of iterations (in positive_depth) |
[in,out] | MESH | Mesh structure |
[in] | MSK | If yes, there is masked elements |
[in] | NPOIN | Number of points |
[in] | NPTFR | Number of boundary points |
[in] | NSEG | Number of segments per control section |
[in] | QBOR | Prescribed bedload discharges |
[in] | QSX | Solid discharge x |
[in] | QSY | Solid discharge y |
[in] | S | Void structure |
[in,out] | T1 | Work bief_obj structure |
[in,out] | T2 | Work bief_obj structure |
[in,out] | T3 | Work bief_obj structure |
[in,out] | T4 | Work bief_obj structure |
[in,out] | T8 | Work bief_obj structure |
[in] | UNSV2D | Inverse of integrals of test functions |
[out] | ZFCL | Zfcl=hz-hzn |
Definition at line 10 of file bedload_solvs_fe.f.