Go to the source code of this file.
Functions/Subroutines | |
| subroutine | predif (CX, CY, IKLE2, IFABOR, ELT, ETA, XK, CG, ITR01, NPOIN3, NPOIN2, NELEM2, NDIRE, NF, COURAN, F, RX, RY, RXX, RYY, NEIGB) |
Function/Subroutine Documentation
◆ predif()
| subroutine predif | ( | type(bief_obj), intent(inout) | CX, |
| type(bief_obj), intent(inout) | CY, | ||
| integer, dimension(nelem2,3), intent(in) | IKLE2, | ||
| integer, dimension(nelem2,7), intent(inout) | IFABOR, | ||
| integer, dimension(npoin3,nf), intent(inout) | ELT, | ||
| integer, dimension(npoin3,nf), intent(inout) | ETA, | ||
| double precision, dimension(npoin2,nf), intent(in) | XK, | ||
| double precision, dimension(npoin2,nf), intent(in) | CG, | ||
| integer, dimension(npoin3,3), intent(inout) | ITR01, | ||
| integer, intent(in) | NPOIN3, | ||
| integer, intent(in) | NPOIN2, | ||
| integer, intent(in) | NELEM2, | ||
| integer, intent(in) | NDIRE, | ||
| integer, intent(in) | NF, | ||
| logical, intent(in) | COURAN, | ||
| double precision, dimension(npoin2,ndire,nf), intent(in) | F, | ||
| double precision, dimension(maxnsp,npoin2), intent(in) | RX, | ||
| double precision, dimension(maxnsp,npoin2), intent(in) | RY, | ||
| double precision, dimension(maxnsp,npoin2), intent(in) | RXX, | ||
| double precision, dimension(maxnsp,npoin2), intent(in) | RYY, | ||
| integer, dimension(npoin2,maxnsp), intent(in) | NEIGB | ||
| ) |
- Parameters
-
[in] npoin3 CG Discretized group velocity [in] COURAN Logical indicating if there is a current [in,out] CX Advection field along x(or phi) [in,out] CY Advection field along y(or lambda) [in,out] ELT Numbers of the elements 2d of the POINTS TO BE ADVECTED [in,out] ETA Numbers of the layers of the POINTS TO BE ADVECTED [in,out] F Variance density directional spectrum [in] IFABOR Elements behind the edges of a triangle IF NEGATIVE OR ZERO, THE EDGE IS A LIQUID, SOLID OR PERIODIC BOUNDARY [in] IKLE2 Transition between local and global numbering OF THE 2D MESH [in,out] ITR01 Work table [in] NEIGB Neighbour points for meshfree method [in] NELEM2 Number of elements in 2d mesh [in] NF Number of frequencies [in] NDIRE Number of directions [in] NPOIN2 Number of points in 2d mesh [in] NPOIN3 Npoin2*ndire [in] RX Array used in the meshfree technique [in] RXX Array used in the meshfree technique [in] RY Array used in the meshfree technique [in] RYY Array used in the meshfree technique [in,out] SHP Barycentric coordinates of the nodes in THEIR ASSOCIATED 2D ELEMENT "ELT" [in,out] SHZ Barycentric coordinates along teta of the NODES IN THEIR ASSOCIATED LAYER "ETA" [in] SINTET Sine of teta angle [in] TETA Discretized directions [in,out] TRA01 Work table [in] XK Discretized wave number [in] npoin2 CG Discretized group velocity [in] COURAN Logical indicating if there is a current [in,out] CX Advection field along x(or phi) [in,out] CY Advection field along y(or lambda) [in,out] ELT Numbers of the elements 2d of the POINTS TO BE ADVECTED [in,out] ETA Numbers of the layers of the POINTS TO BE ADVECTED [in,out] F Variance density directional spectrum [in] IFABOR Elements behind the edges of a triangle IF NEGATIVE OR ZERO, THE EDGE IS A LIQUID, SOLID OR PERIODIC BOUNDARY [in] IKLE2 Transition between local and global numbering OF THE 2D MESH [in,out] ITR01 Work table [in] NEIGB Neighbour points for meshfree method [in] NELEM2 Number of elements in 2d mesh [in] NF Number of frequencies [in] NDIRE Number of directions [in] NPOIN2 Number of points in 2d mesh [in] NPOIN3 Npoin2*ndire [in] RX Array used in the meshfree technique [in] RXX Array used in the meshfree technique [in] RY Array used in the meshfree technique [in] RYY Array used in the meshfree technique [in,out] SHP Barycentric coordinates of the nodes in THEIR ASSOCIATED 2D ELEMENT "ELT" [in,out] SHZ Barycentric coordinates along teta of the NODES IN THEIR ASSOCIATED LAYER "ETA" [in] SINTET Sine of teta angle [in] TETA Discretized directions [in,out] TRA01 Work table [in] XK Discretized wave number [in] nelem2 CG Discretized group velocity [in] COURAN Logical indicating if there is a current [in,out] CX Advection field along x(or phi) [in,out] CY Advection field along y(or lambda) [in,out] ELT Numbers of the elements 2d of the POINTS TO BE ADVECTED [in,out] ETA Numbers of the layers of the POINTS TO BE ADVECTED [in,out] F Variance density directional spectrum [in] IFABOR Elements behind the edges of a triangle IF NEGATIVE OR ZERO, THE EDGE IS A LIQUID, SOLID OR PERIODIC BOUNDARY [in] IKLE2 Transition between local and global numbering OF THE 2D MESH [in,out] ITR01 Work table [in] NEIGB Neighbour points for meshfree method [in] NELEM2 Number of elements in 2d mesh [in] NF Number of frequencies [in] NDIRE Number of directions [in] NPOIN2 Number of points in 2d mesh [in] NPOIN3 Npoin2*ndire [in] RX Array used in the meshfree technique [in] RXX Array used in the meshfree technique [in] RY Array used in the meshfree technique [in] RYY Array used in the meshfree technique [in,out] SHP Barycentric coordinates of the nodes in THEIR ASSOCIATED 2D ELEMENT "ELT" [in,out] SHZ Barycentric coordinates along teta of the NODES IN THEIR ASSOCIATED LAYER "ETA" [in] SINTET Sine of teta angle [in] TETA Discretized directions [in,out] TRA01 Work table [in] XK Discretized wave number [in] ndire CG Discretized group velocity [in] COURAN Logical indicating if there is a current [in,out] CX Advection field along x(or phi) [in,out] CY Advection field along y(or lambda) [in,out] ELT Numbers of the elements 2d of the POINTS TO BE ADVECTED [in,out] ETA Numbers of the layers of the POINTS TO BE ADVECTED [in,out] F Variance density directional spectrum [in] IFABOR Elements behind the edges of a triangle IF NEGATIVE OR ZERO, THE EDGE IS A LIQUID, SOLID OR PERIODIC BOUNDARY [in] IKLE2 Transition between local and global numbering OF THE 2D MESH [in,out] ITR01 Work table [in] NEIGB Neighbour points for meshfree method [in] NELEM2 Number of elements in 2d mesh [in] NF Number of frequencies [in] NDIRE Number of directions [in] NPOIN2 Number of points in 2d mesh [in] NPOIN3 Npoin2*ndire [in] RX Array used in the meshfree technique [in] RXX Array used in the meshfree technique [in] RY Array used in the meshfree technique [in] RYY Array used in the meshfree technique [in,out] SHP Barycentric coordinates of the nodes in THEIR ASSOCIATED 2D ELEMENT "ELT" [in,out] SHZ Barycentric coordinates along teta of the NODES IN THEIR ASSOCIATED LAYER "ETA" [in] SINTET Sine of teta angle [in] TETA Discretized directions [in,out] TRA01 Work table [in] XK Discretized wave number [in] nf CG Discretized group velocity [in] COURAN Logical indicating if there is a current [in,out] CX Advection field along x(or phi) [in,out] CY Advection field along y(or lambda) [in,out] ELT Numbers of the elements 2d of the POINTS TO BE ADVECTED [in,out] ETA Numbers of the layers of the POINTS TO BE ADVECTED [in,out] F Variance density directional spectrum [in] IFABOR Elements behind the edges of a triangle IF NEGATIVE OR ZERO, THE EDGE IS A LIQUID, SOLID OR PERIODIC BOUNDARY [in] IKLE2 Transition between local and global numbering OF THE 2D MESH [in,out] ITR01 Work table [in] NEIGB Neighbour points for meshfree method [in] NELEM2 Number of elements in 2d mesh [in] NF Number of frequencies [in] NDIRE Number of directions [in] NPOIN2 Number of points in 2d mesh [in] NPOIN3 Npoin2*ndire [in] RX Array used in the meshfree technique [in] RXX Array used in the meshfree technique [in] RY Array used in the meshfree technique [in] RYY Array used in the meshfree technique [in,out] SHP Barycentric coordinates of the nodes in THEIR ASSOCIATED 2D ELEMENT "ELT" [in,out] SHZ Barycentric coordinates along teta of the NODES IN THEIR ASSOCIATED LAYER "ETA" [in] SINTET Sine of teta angle [in] TETA Discretized directions [in,out] TRA01 Work table [in] XK Discretized wave number
Definition at line 9 of file predif.f.
Here is the call graph for this function: Here is the caller graph for this function: