The TELEMAC-MASCARET system  trunk
Functions/Subroutines
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)
 

Function/Subroutine Documentation

◆ 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]nelemIFABOR Elements behind the edges of a triangle IF NEGATIVE OR ZERO, THE EDGE IS A LIQUID BOUNDARY
[in]IKLEConnectivity table.
[out]ITRA02Integer work array
[out]ITRA03Integer work array
[out]ITRA05Integer work array
[in]MXPTVSMaximum number of neighbours of a point
[in]NBORGlobal number of boundary points
[in]NELBORFor the kth boundary edge, gives the corresponding ELEMENT.
[in]NELEMNumber of elements
[in]NPOINNumber of points
[in]NPTFRNumber of boundary points
[in]NULONEGoes 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]ZFElevation of bottom, per point
[out]ZFEElevation of bottom, per element
[out]ZREFCorrected bottom elevation
[in]nptfrIFABOR Elements behind the edges of a triangle IF NEGATIVE OR ZERO, THE EDGE IS A LIQUID BOUNDARY
[in]IKLEConnectivity table.
[out]ITRA02Integer work array
[out]ITRA03Integer work array
[out]ITRA05Integer work array
[in]MXPTVSMaximum number of neighbours of a point
[in]NBORGlobal number of boundary points
[in]NELBORFor the kth boundary edge, gives the corresponding ELEMENT.
[in]NELEMNumber of elements
[in]NPOINNumber of points
[in]NPTFRNumber of boundary points
[in]NULONEGoes 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]ZFElevation of bottom, per point
[out]ZFEElevation of bottom, per element
[out]ZREFCorrected bottom elevation
[in]npoinIFABOR Elements behind the edges of a triangle IF NEGATIVE OR ZERO, THE EDGE IS A LIQUID BOUNDARY
[in]IKLEConnectivity table.
[out]ITRA02Integer work array
[out]ITRA03Integer work array
[out]ITRA05Integer work array
[in]MXPTVSMaximum number of neighbours of a point
[in]NBORGlobal number of boundary points
[in]NELBORFor the kth boundary edge, gives the corresponding ELEMENT.
[in]NELEMNumber of elements
[in]NPOINNumber of points
[in]NPTFRNumber of boundary points
[in]NULONEGoes 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]ZFElevation of bottom, per point
[out]ZFEElevation of bottom, per element
[out]ZREFCorrected bottom elevation
[in]mxptvsIFABOR Elements behind the edges of a triangle IF NEGATIVE OR ZERO, THE EDGE IS A LIQUID BOUNDARY
[in]IKLEConnectivity table.
[out]ITRA02Integer work array
[out]ITRA03Integer work array
[out]ITRA05Integer work array
[in]MXPTVSMaximum number of neighbours of a point
[in]NBORGlobal number of boundary points
[in]NELBORFor the kth boundary edge, gives the corresponding ELEMENT.
[in]NELEMNumber of elements
[in]NPOINNumber of points
[in]NPTFRNumber of boundary points
[in]NULONEGoes 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]ZFElevation of bottom, per point
[out]ZFEElevation of bottom, per element
[out]ZREFCorrected bottom elevation

Definition at line 8 of file topogr.f.

+ Here is the caller graph for this function: