The TELEMAC-MASCARET system  trunk
Functions/Subroutines
vc04pp.f File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine vc04pp (XMUL, SU, SV, SW, U, V, W, F, H, X, Y, Z, IKLE1, IKLE2, IKLE3, IKLE4, IKLE5, IKLE6, NELEM, NELMAX, W1, W2, W3, W4, W5, W6, SPECAD, FORMUL, NELEM2)
 

Function/Subroutine Documentation

◆ vc04pp()

subroutine vc04pp ( double precision, intent(in)  XMUL,
type(bief_obj), intent(in)  SU,
type(bief_obj), intent(in)  SV,
type(bief_obj), intent(in)  SW,
double precision, dimension(*), intent(in)  U,
double precision, dimension(*), intent(in)  V,
double precision, dimension(*), intent(in)  W,
double precision, dimension(*), intent(in)  F,
double precision, dimension(nelem2,2), intent(in)  H,
double precision, dimension(nelmax,6), intent(in)  X,
double precision, dimension(nelmax,6), intent(in)  Y,
double precision, dimension(*), intent(in)  Z,
integer, dimension(nelmax), intent(in)  IKLE1,
integer, dimension(nelmax), intent(in)  IKLE2,
integer, dimension(nelmax), intent(in)  IKLE3,
integer, dimension(nelmax), intent(in)  IKLE4,
integer, dimension(nelmax), intent(in)  IKLE5,
integer, dimension(nelmax), intent(in)  IKLE6,
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,
double precision, dimension(nelmax), intent(inout)  W4,
double precision, dimension(nelmax), intent(inout)  W5,
double precision, dimension(nelmax), intent(inout)  W6,
logical, intent(in)  SPECAD,
character(len=16), intent(in)  FORMUL,
integer, intent(in)  NELEM2 
)
Parameters
[in]nelemF Function used in the vector formula
[in]HFunction used in the vector formula
[in]FORMULString with formula of vector
[in]IKLE1First point of prisms
[in]IKLE2Second point of prisms
[in]IKLE3Third point of prisms
[in]IKLE4Fourth point of prisms
[in]IKLE5Fifth point of prisms
[in]IKLE6Sixth point of prisms
[in]NELEMNumber of elements
[in]NELMAXMaximum number of elements
[in]NPLANNumber of planes in the mesh of prisms
[in]SPECADIf yes, special advection field, see above
[in]SUBief_obj structure of u
[in]SVBief_obj structure of v
[in]SWBief_obj structure of w
[in]UFunction used in the vector formula
[in]VFunction used in the vector formula
[in]WFunction used in the vector formula
[out]W1Result in non assembled form
[out]W2Result in non assembled form
[out]W3Result in non assembled form
[out]W4Result in non assembled form
[out]W5Result in non assembled form
[out]W6Result in non assembled form
[in]XAbscissae of points in the mesh, per element
[in]YOrdinates of points in the mesh, per element
[in]XMULMultiplication coefficient
[in]ZElevations of points in the mesh, per point !!!
[in]nelmaxF Function used in the vector formula
[in]HFunction used in the vector formula
[in]FORMULString with formula of vector
[in]IKLE1First point of prisms
[in]IKLE2Second point of prisms
[in]IKLE3Third point of prisms
[in]IKLE4Fourth point of prisms
[in]IKLE5Fifth point of prisms
[in]IKLE6Sixth point of prisms
[in]NELEMNumber of elements
[in]NELMAXMaximum number of elements
[in]NPLANNumber of planes in the mesh of prisms
[in]SPECADIf yes, special advection field, see above
[in]SUBief_obj structure of u
[in]SVBief_obj structure of v
[in]SWBief_obj structure of w
[in]UFunction used in the vector formula
[in]VFunction used in the vector formula
[in]WFunction used in the vector formula
[out]W1Result in non assembled form
[out]W2Result in non assembled form
[out]W3Result in non assembled form
[out]W4Result in non assembled form
[out]W5Result in non assembled form
[out]W6Result in non assembled form
[in]XAbscissae of points in the mesh, per element
[in]YOrdinates of points in the mesh, per element
[in]XMULMultiplication coefficient
[in]ZElevations of points in the mesh, per point !!!
[in]nelem2F Function used in the vector formula
[in]HFunction used in the vector formula
[in]FORMULString with formula of vector
[in]IKLE1First point of prisms
[in]IKLE2Second point of prisms
[in]IKLE3Third point of prisms
[in]IKLE4Fourth point of prisms
[in]IKLE5Fifth point of prisms
[in]IKLE6Sixth point of prisms
[in]NELEMNumber of elements
[in]NELMAXMaximum number of elements
[in]NPLANNumber of planes in the mesh of prisms
[in]SPECADIf yes, special advection field, see above
[in]SUBief_obj structure of u
[in]SVBief_obj structure of v
[in]SWBief_obj structure of w
[in]UFunction used in the vector formula
[in]VFunction used in the vector formula
[in]WFunction used in the vector formula
[out]W1Result in non assembled form
[out]W2Result in non assembled form
[out]W3Result in non assembled form
[out]W4Result in non assembled form
[out]W5Result in non assembled form
[out]W6Result in non assembled form
[in]XAbscissae of points in the mesh, per element
[in]YOrdinates of points in the mesh, per element
[in]XMULMultiplication coefficient
[in]ZElevations of points in the mesh, per point !!!

Definition at line 9 of file vc04pp.f.

+ Here is the caller graph for this function: