The TELEMAC-MASCARET system  trunk
vc04aa.f File Reference

Go to the source code of this file.

## Functions/Subroutines

subroutine vc04aa (XMUL, SU, SV, U, V, XEL, YEL, IKLE1, IKLE2, IKLE3, NELEM, NELMAX, W1, W2, W3, SPECAD)

## ◆ vc04aa()

 subroutine vc04aa ( double precision, intent(in) XMUL, type(bief_obj), intent(in) SU, type(bief_obj), intent(in) SV, double precision, dimension(*), intent(in) U, double precision, dimension(*), intent(in) V, double precision, dimension(nelmax,*), intent(in) XEL, double precision, dimension(nelmax,*), intent(in) YEL, integer, dimension(nelmax), intent(in) IKLE1, integer, dimension(nelmax), intent(in) IKLE2, integer, dimension(nelmax), intent(in) IKLE3, integer, intent(in) NELEM, integer, intent(in) NELMAX, double precision, dimension(nelmax), intent(inout) W1, double precision, dimension(nelmax), intent(inout) W2, double precision, dimension(nelmax), intent(inout) W3, logical, intent(in) SPECAD )
Parameters
 [in] nelem IKLE1 First point of triangles [in] IKLE2 Second point of triangles [in] IKLE3 Third point of triangles [in] NELEM Number of elements [in] NELMAX Maximum number of elements [in] SPECAD If yes, special advection field, see above [in] SU Bief_obj structure of u [in] SV Bief_obj structure of v [in] SURFAC Area of triangles [in] U Function used in the vector formula [in] V Function used in the vector formula [out] W1 Result in non assembled form [out] W2 Result in non assembled form [out] W3 Result in non assembled form [in] XEL Abscissae of points in the mesh, per element [in] XMUL Multiplication coefficient [in] YEL Ordinates of points in the mesh, per element [in] nelmax IKLE1 First point of triangles [in] IKLE2 Second point of triangles [in] IKLE3 Third point of triangles [in] NELEM Number of elements [in] NELMAX Maximum number of elements [in] SPECAD If yes, special advection field, see above [in] SU Bief_obj structure of u [in] SV Bief_obj structure of v [in] SURFAC Area of triangles [in] U Function used in the vector formula [in] V Function used in the vector formula [out] W1 Result in non assembled form [out] W2 Result in non assembled form [out] W3 Result in non assembled form [in] XEL Abscissae of points in the mesh, per element [in] XMUL Multiplication coefficient [in] YEL Ordinates of points in the mesh, per element

Definition at line 8 of file vc04aa.f.

Here is the caller graph for this function: