Go to the source code of this file.
Functions/Subroutines | |
| subroutine | prepro (CX, CY, IKLE2, IFABOR, ELT, ETA, FRE, XK, CG, ITR01, NPOIN3, NPOIN2, NELEM2, NDIRE, NF, COURAN) |
Function/Subroutine Documentation
◆ prepro()
| subroutine prepro | ( | 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, | ||
| integer, dimension(*), intent(inout) | FRE, | ||
| 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 | ||
| ) |
- 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] FRE Number of the frequencies of the POINTS TO BE ADVECTED [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] ISUB Arrival sub-domain of characteristics [in,out] ITR01 Work table [in] MESH 2d mesh [in] MESH3D 3d mesh [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,out] SHF Barycentric coordinates along f of the NODES IN THEIR ASSOCIATED FREQUENCIES "FRE" [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] 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] FRE Number of the frequencies of the POINTS TO BE ADVECTED [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] ISUB Arrival sub-domain of characteristics [in,out] ITR01 Work table [in] MESH 2d mesh [in] MESH3D 3d mesh [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,out] SHF Barycentric coordinates along f of the NODES IN THEIR ASSOCIATED FREQUENCIES "FRE" [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] 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] FRE Number of the frequencies of the POINTS TO BE ADVECTED [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] ISUB Arrival sub-domain of characteristics [in,out] ITR01 Work table [in] MESH 2d mesh [in] MESH3D 3d mesh [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,out] SHF Barycentric coordinates along f of the NODES IN THEIR ASSOCIATED FREQUENCIES "FRE" [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] 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] FRE Number of the frequencies of the POINTS TO BE ADVECTED [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] ISUB Arrival sub-domain of characteristics [in,out] ITR01 Work table [in] MESH 2d mesh [in] MESH3D 3d mesh [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,out] SHF Barycentric coordinates along f of the NODES IN THEIR ASSOCIATED FREQUENCIES "FRE" [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] 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] FRE Number of the frequencies of the POINTS TO BE ADVECTED [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] ISUB Arrival sub-domain of characteristics [in,out] ITR01 Work table [in] MESH 2d mesh [in] MESH3D 3d mesh [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,out] SHF Barycentric coordinates along f of the NODES IN THEIR ASSOCIATED FREQUENCIES "FRE" [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] XK Discretized wave number
Definition at line 9 of file prepro.f.
Here is the call graph for this function: Here is the caller graph for this function: