The TELEMAC-MASCARET system  trunk
topogr.f File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine topogr (ZF, ZREF, ZFE, IKLE, IFABOR, NBOR, NELBOR, NULONE, ITRA05, ITRA02, ITRA03, NELEM, NPTFR, NPOIN, MXPTVS)

◆ topogr()

 subroutine topogr ( double precision, dimension(npoin), intent(in) ZF, double precision, dimension(npoin), intent(inout) ZREF, double precision, dimension(nelem), intent(inout) ZFE, integer, dimension(nelem,3), intent(in) IKLE, integer, dimension(nelem,3), intent(in) IFABOR, integer, dimension(nptfr), intent(in) NBOR, integer, dimension(nptfr), intent(in) NELBOR, integer, dimension(nptfr), intent(in) NULONE, integer, dimension(npoin), intent(inout) ITRA05, integer, dimension(npoin), intent(inout) ITRA02, integer, dimension(npoin), intent(inout) ITRA03, integer, intent(in) NELEM, integer, intent(in) NPTFR, integer, intent(in) NPOIN, integer, intent(in) MXPTVS )
Parameters
 [in] nelem IFABOR Elements behind the edges of a triangle IF NEGATIVE OR ZERO, THE EDGE IS A LIQUID BOUNDARY [in] IKLE Connectivity table. [out] ITRA02 Integer work array [out] ITRA03 Integer work array [out] ITRA05 Integer work array [in] MXPTVS Maximum number of neighbours of a point [in] NBOR Global number of boundary points [in] NELBOR For the kth boundary edge, gives the corresponding ELEMENT. [in] NELEM Number of elements [in] NPOIN Number of points [in] NPTFR Number of boundary points [in] NULONE Goes with array nelbor. nelbor gives the ADJACENT ELEMENT, NULONE GIVES THE LOCAL NUMBER OF THE FIRST NODE OF THE BOUNDARY EDGE I.E. 1, 2 OR 3 FOR TRIANGLES. [in] ZF Elevation of bottom, per point [out] ZFE Elevation of bottom, per element [out] ZREF Corrected bottom elevation [in] nptfr IFABOR Elements behind the edges of a triangle IF NEGATIVE OR ZERO, THE EDGE IS A LIQUID BOUNDARY [in] IKLE Connectivity table. [out] ITRA02 Integer work array [out] ITRA03 Integer work array [out] ITRA05 Integer work array [in] MXPTVS Maximum number of neighbours of a point [in] NBOR Global number of boundary points [in] NELBOR For the kth boundary edge, gives the corresponding ELEMENT. [in] NELEM Number of elements [in] NPOIN Number of points [in] NPTFR Number of boundary points [in] NULONE Goes with array nelbor. nelbor gives the ADJACENT ELEMENT, NULONE GIVES THE LOCAL NUMBER OF THE FIRST NODE OF THE BOUNDARY EDGE I.E. 1, 2 OR 3 FOR TRIANGLES. [in] ZF Elevation of bottom, per point [out] ZFE Elevation of bottom, per element [out] ZREF Corrected bottom elevation [in] npoin IFABOR Elements behind the edges of a triangle IF NEGATIVE OR ZERO, THE EDGE IS A LIQUID BOUNDARY [in] IKLE Connectivity table. [out] ITRA02 Integer work array [out] ITRA03 Integer work array [out] ITRA05 Integer work array [in] MXPTVS Maximum number of neighbours of a point [in] NBOR Global number of boundary points [in] NELBOR For the kth boundary edge, gives the corresponding ELEMENT. [in] NELEM Number of elements [in] NPOIN Number of points [in] NPTFR Number of boundary points [in] NULONE Goes with array nelbor. nelbor gives the ADJACENT ELEMENT, NULONE GIVES THE LOCAL NUMBER OF THE FIRST NODE OF THE BOUNDARY EDGE I.E. 1, 2 OR 3 FOR TRIANGLES. [in] ZF Elevation of bottom, per point [out] ZFE Elevation of bottom, per element [out] ZREF Corrected bottom elevation [in] mxptvs IFABOR Elements behind the edges of a triangle IF NEGATIVE OR ZERO, THE EDGE IS A LIQUID BOUNDARY [in] IKLE Connectivity table. [out] ITRA02 Integer work array [out] ITRA03 Integer work array [out] ITRA05 Integer work array [in] MXPTVS Maximum number of neighbours of a point [in] NBOR Global number of boundary points [in] NELBOR For the kth boundary edge, gives the corresponding ELEMENT. [in] NELEM Number of elements [in] NPOIN Number of points [in] NPTFR Number of boundary points [in] NULONE Goes with array nelbor. nelbor gives the ADJACENT ELEMENT, NULONE GIVES THE LOCAL NUMBER OF THE FIRST NODE OF THE BOUNDARY EDGE I.E. 1, 2 OR 3 FOR TRIANGLES. [in] ZF Elevation of bottom, per point [out] ZFE Elevation of bottom, per element [out] ZREF Corrected bottom elevation

Definition at line 8 of file topogr.f.

Here is the caller graph for this function: