Go to the source code of this file.
Functions/Subroutines | |
| subroutine | gtsh41 (SHP, SHZ, SHF, WS, FS, ELT, ETA, FRE, IKLE, ELTCAR, NPOIN2, NELMAX2, NPLAN, JF, NF, YA4D) |
Function/Subroutine Documentation
◆ gtsh41()
| subroutine gtsh41 | ( | double precision, dimension(3,npoin2,nplan), intent(inout) | SHP, |
| double precision, dimension(npoin2,nplan), intent(inout) | SHZ, | ||
| double precision, dimension(npoin2,nplan), intent(inout) | SHF, | ||
| double precision, dimension(npoin2,nplan), intent(in) | WS, | ||
| double precision, dimension(npoin2,nplan), intent(in) | FS, | ||
| integer, dimension(npoin2,nplan), intent(inout) | ELT, | ||
| integer, dimension(npoin2,nplan), intent(inout) | ETA, | ||
| integer, dimension(npoin2,nplan), intent(inout) | FRE, | ||
| integer, dimension(nelmax2,*), intent(in) | IKLE, | ||
| integer, dimension(*), intent(in) | ELTCAR, | ||
| integer, intent(in) | NPOIN2, | ||
| integer, intent(in) | NELMAX2, | ||
| integer, intent(in) | NPLAN, | ||
| integer, intent(in) | JF, | ||
| integer, intent(in) | NF, | ||
| logical, intent(in) | YA4D | ||
| ) |
- Parameters
-
[in] npoin2 [out] ELT 2d element chosen for every point [in] ETA Level chosen for every point [in] ELTCAR Starting element for linear and quadratic points [in] IKLE Connectivity table [in] NELMAX2 Maximum number of 2d elements [in] NPLAN Number of planes [in] NPOIN Number of points [in] NSEG Number of segments [in] QUAB If yes, there are quasi-bubble variables [in] QUAD If yes, there are quadratic variables [out] SHP Barycentric coordinates of nodes in their ASSOCIATED ELEMENT "ELT" [out] SHZ Barycentric coordinates on the vertical [in] WS Vertical velocity in transformed mesh [in] nelmax2 [out] ELT 2d element chosen for every point [in] ETA Level chosen for every point [in] ELTCAR Starting element for linear and quadratic points [in] IKLE Connectivity table [in] NELMAX2 Maximum number of 2d elements [in] NPLAN Number of planes [in] NPOIN Number of points [in] NSEG Number of segments [in] QUAB If yes, there are quasi-bubble variables [in] QUAD If yes, there are quadratic variables [out] SHP Barycentric coordinates of nodes in their ASSOCIATED ELEMENT "ELT" [out] SHZ Barycentric coordinates on the vertical [in] WS Vertical velocity in transformed mesh [in] nplan [out] ELT 2d element chosen for every point [in] ETA Level chosen for every point [in] ELTCAR Starting element for linear and quadratic points [in] IKLE Connectivity table [in] NELMAX2 Maximum number of 2d elements [in] NPLAN Number of planes [in] NPOIN Number of points [in] NSEG Number of segments [in] QUAB If yes, there are quasi-bubble variables [in] QUAD If yes, there are quadratic variables [out] SHP Barycentric coordinates of nodes in their ASSOCIATED ELEMENT "ELT" [out] SHZ Barycentric coordinates on the vertical [in] WS Vertical velocity in transformed mesh [in] jf [out] ELT 2d element chosen for every point [in] ETA Level chosen for every point [in] ELTCAR Starting element for linear and quadratic points [in] IKLE Connectivity table [in] NELMAX2 Maximum number of 2d elements [in] NPLAN Number of planes [in] NPOIN Number of points [in] NSEG Number of segments [in] QUAB If yes, there are quasi-bubble variables [in] QUAD If yes, there are quadratic variables [out] SHP Barycentric coordinates of nodes in their ASSOCIATED ELEMENT "ELT" [out] SHZ Barycentric coordinates on the vertical [in] WS Vertical velocity in transformed mesh [in] nf [out] ELT 2d element chosen for every point [in] ETA Level chosen for every point [in] ELTCAR Starting element for linear and quadratic points [in] IKLE Connectivity table [in] NELMAX2 Maximum number of 2d elements [in] NPLAN Number of planes [in] NPOIN Number of points [in] NSEG Number of segments [in] QUAB If yes, there are quasi-bubble variables [in] QUAD If yes, there are quadratic variables [out] SHP Barycentric coordinates of nodes in their ASSOCIATED ELEMENT "ELT" [out] SHZ Barycentric coordinates on the vertical [in] WS Vertical velocity in transformed mesh
Definition at line 8 of file gtsh41.f.
Here is the caller graph for this function: