Go to the source code of this file.
Functions/Subroutines | |
| subroutine | derive (U, V, W, DT, AT, X, Y, Z, IKLE, IFABOR, LT, IELM, IELMU, NDP, NDP2, NPOIN, NPOIN2, NELEM, NELMAX, SURDET, XFLOT, YFLOT, ZFLOT, SHPFLO, SHZFLO, TAGFLO, CLSFLO, ELTFLO, ETAFLO, NFLOT, NFLOT_MAX, MESH, ISUB, DX, DY, DZ, ELTBUF, SHPBUF, SHZBUF, SIZEBUF, STOCHA, VISC, NPLAN, ZSTAR, TRANSF, AALGAE, DALGAE, RALGAE, EALGAE, TALGAE, YALGAE, REL_ALGAE, TW1_ALGAE, TW2_ALGAE, A_ALGAE, ORBVEL, AK, EP, H) |
Function/Subroutine Documentation
◆ derive()
| subroutine derive | ( | double precision, dimension(*), intent(in) | U, |
| double precision, dimension(*), intent(in) | V, | ||
| double precision, dimension(*), intent(in) | W, | ||
| double precision, intent(in) | DT, | ||
| double precision, intent(in) | AT, | ||
| double precision, dimension(npoin), intent(in) | X, | ||
| double precision, dimension(npoin), intent(in) | Y, | ||
| double precision, dimension(npoin), intent(in) | Z, | ||
| integer, dimension(nelmax,ndp2), intent(in) | IKLE, | ||
| integer, dimension(*), intent(in) | IFABOR, | ||
| integer, intent(in) | LT, | ||
| integer, intent(in) | IELM, | ||
| integer, intent(in) | IELMU, | ||
| integer, intent(in) | NDP, | ||
| integer, intent(in) | NDP2, | ||
| integer, intent(in) | NPOIN, | ||
| integer, intent(in) | NPOIN2, | ||
| integer, intent(in) | NELEM, | ||
| integer, intent(in) | NELMAX, | ||
| double precision, dimension(nelem), intent(in) | SURDET, | ||
| double precision, dimension(nflot_max), intent(inout) | XFLOT, | ||
| double precision, dimension(nflot_max), intent(inout) | YFLOT, | ||
| double precision, dimension(nflot_max), intent(inout) | ZFLOT, | ||
| double precision, dimension(ndp,nflot_max), intent(inout) | SHPFLO, | ||
| double precision, dimension(nflot_max), intent(inout) | SHZFLO, | ||
| integer, dimension(nflot_max), intent(inout) | TAGFLO, | ||
| integer, dimension(nflot_max), intent(inout) | CLSFLO, | ||
| integer, dimension(nflot_max), intent(inout) | ELTFLO, | ||
| integer, dimension(nflot_max), intent(inout) | ETAFLO, | ||
| integer, intent(inout) | NFLOT, | ||
| integer, intent(in) | NFLOT_MAX, | ||
| type(bief_mesh), intent(inout) | MESH, | ||
| integer, dimension(nflot_max), intent(inout) | ISUB, | ||
| double precision, dimension(nflot_max), intent(inout) | DX, | ||
| double precision, dimension(nflot_max), intent(inout) | DY, | ||
| double precision, dimension(nflot_max), intent(inout) | DZ, | ||
| integer, dimension(sizebuf), intent(inout) | ELTBUF, | ||
| double precision, dimension(ndp,sizebuf), intent(inout) | SHPBUF, | ||
| double precision, dimension(sizebuf), intent(inout) | SHZBUF, | ||
| integer, intent(in) | SIZEBUF, | ||
| integer, intent(in) | STOCHA, | ||
| type(bief_obj), intent(in) | VISC, | ||
| integer, intent(in) | NPLAN, | ||
| double precision, dimension(nplan), intent(in) | ZSTAR, | ||
| integer, intent(in) | TRANSF, | ||
| logical, intent(in), optional | AALGAE, | ||
| double precision, dimension(*), intent(in), optional | DALGAE, | ||
| double precision, dimension(*), intent(in), optional | RALGAE, | ||
| double precision, dimension(*), intent(in), optional | EALGAE, | ||
| double precision, dimension(*), intent(in), optional | TALGAE, | ||
| integer, dimension(*), intent(in), optional | YALGAE, | ||
| integer, dimension(*), intent(in), optional | REL_ALGAE, | ||
| double precision, dimension(*), intent(in), optional | TW1_ALGAE, | ||
| double precision, dimension(*), intent(in), optional | TW2_ALGAE, | ||
| double precision, dimension(*), intent(in), optional | A_ALGAE, | ||
| double precision, dimension(*), intent(in), optional | ORBVEL, | ||
| double precision, dimension(*), intent(in), optional | AK, | ||
| double precision, dimension(*), intent(in), optional | EP, | ||
| double precision, dimension(npoin), intent(in), optional | H | ||
| ) |
- Parameters
-
[in] npoin A_ALGAE Rate of degradation for algae [in] CLSFLO Class of floats [in] DT Time step (i.e. time interval). [in,out] DX Work array (displacements along x) [in,out] DY Work array (displacements along y) [in,out] DZ Work array (displacements along z) [in,out] ELTBUF Work array [in,out] ELTFLO Numbers of elements where are the floats [in,out] ETAFLO Levels where are the floats FOR FLOATS POSITIONS. [in] IELM Type of element. [in] IELMU Type of element for velocities. [in] IFABOR Elements behind the edges of another element IF IFABOR NEGATIVE OR 0, THE EDGE IS A LIQUID OR PERIODIC BOUNDARY [in] IKLE Connectivity table. [in,out] ISUB Arrival sub-domain of particles. [in] LT Time step number. [in,out] MESH Mesh structure. [in] NDP Number of points per element for ielm [in] NDP2 Number of points per element for ielmu [in] NELEM Number of elements [in] NELMAX Maximum number of elements in 2d [in,out] NFLOT Number of floats. [in,out] NFLOT_MAX Maximum number of floats. [in] NPLAN Number of planes for 3d (1 for 2d) [in] NPOIN Number of points [in] NPOIN2 Number of points in 2d mesh [in] NSTAR Vertical distribution of planes [in] ORBVEL Wave orbital velocity [in] REL_ALGAE Algae release type [in,out] SHPBUF Work array [in,out] SHPFLO Barycentric coordinates of floats in their ELEMENTS. [in,out] SHZBUF Work array [in,out] SHZFLO Barycentric coordinate on vertical [in] SIZEBUF Dilmension of some work arrays [in] SURDET 1/determinant, used in isoparametric TRANSFORMATION. [in] TAGFLO Tags of floats [in] TALGAE Duration before algae release [in] TRANSF 3d mesh transformation [in] TW1_ALGAE Wave orbital velocity threshold for algae 1 [in] TW2_ALGAE Wave orbital velocity threshold for algae 2 [in] U X-component of velocity [in] V Y-component of velocity [in] W Z-component of velocity [in] X Abscissae of points in the mesh [in,out] XFLOT Abscissae of floats [in] Y Ordinates of points in the mesh [in] YALGAE Algae type [in,out] YFLOT Ordinates of floats [in] Z Elevations of points in the mesh [in,out] ZFLOT Elevations of floats [in] lt A_ALGAE Rate of degradation for algae [in] CLSFLO Class of floats [in] DT Time step (i.e. time interval). [in,out] DX Work array (displacements along x) [in,out] DY Work array (displacements along y) [in,out] DZ Work array (displacements along z) [in,out] ELTBUF Work array [in,out] ELTFLO Numbers of elements where are the floats [in,out] ETAFLO Levels where are the floats FOR FLOATS POSITIONS. [in] IELM Type of element. [in] IELMU Type of element for velocities. [in] IFABOR Elements behind the edges of another element IF IFABOR NEGATIVE OR 0, THE EDGE IS A LIQUID OR PERIODIC BOUNDARY [in] IKLE Connectivity table. [in,out] ISUB Arrival sub-domain of particles. [in] LT Time step number. [in,out] MESH Mesh structure. [in] NDP Number of points per element for ielm [in] NDP2 Number of points per element for ielmu [in] NELEM Number of elements [in] NELMAX Maximum number of elements in 2d [in,out] NFLOT Number of floats. [in,out] NFLOT_MAX Maximum number of floats. [in] NPLAN Number of planes for 3d (1 for 2d) [in] NPOIN Number of points [in] NPOIN2 Number of points in 2d mesh [in] NSTAR Vertical distribution of planes [in] ORBVEL Wave orbital velocity [in] REL_ALGAE Algae release type [in,out] SHPBUF Work array [in,out] SHPFLO Barycentric coordinates of floats in their ELEMENTS. [in,out] SHZBUF Work array [in,out] SHZFLO Barycentric coordinate on vertical [in] SIZEBUF Dilmension of some work arrays [in] SURDET 1/determinant, used in isoparametric TRANSFORMATION. [in] TAGFLO Tags of floats [in] TALGAE Duration before algae release [in] TRANSF 3d mesh transformation [in] TW1_ALGAE Wave orbital velocity threshold for algae 1 [in] TW2_ALGAE Wave orbital velocity threshold for algae 2 [in] U X-component of velocity [in] V Y-component of velocity [in] W Z-component of velocity [in] X Abscissae of points in the mesh [in,out] XFLOT Abscissae of floats [in] Y Ordinates of points in the mesh [in] YALGAE Algae type [in,out] YFLOT Ordinates of floats [in] Z Elevations of points in the mesh [in,out] ZFLOT Elevations of floats [in] ielm A_ALGAE Rate of degradation for algae [in] CLSFLO Class of floats [in] DT Time step (i.e. time interval). [in,out] DX Work array (displacements along x) [in,out] DY Work array (displacements along y) [in,out] DZ Work array (displacements along z) [in,out] ELTBUF Work array [in,out] ELTFLO Numbers of elements where are the floats [in,out] ETAFLO Levels where are the floats FOR FLOATS POSITIONS. [in] IELM Type of element. [in] IELMU Type of element for velocities. [in] IFABOR Elements behind the edges of another element IF IFABOR NEGATIVE OR 0, THE EDGE IS A LIQUID OR PERIODIC BOUNDARY [in] IKLE Connectivity table. [in,out] ISUB Arrival sub-domain of particles. [in] LT Time step number. [in,out] MESH Mesh structure. [in] NDP Number of points per element for ielm [in] NDP2 Number of points per element for ielmu [in] NELEM Number of elements [in] NELMAX Maximum number of elements in 2d [in,out] NFLOT Number of floats. [in,out] NFLOT_MAX Maximum number of floats. [in] NPLAN Number of planes for 3d (1 for 2d) [in] NPOIN Number of points [in] NPOIN2 Number of points in 2d mesh [in] NSTAR Vertical distribution of planes [in] ORBVEL Wave orbital velocity [in] REL_ALGAE Algae release type [in,out] SHPBUF Work array [in,out] SHPFLO Barycentric coordinates of floats in their ELEMENTS. [in,out] SHZBUF Work array [in,out] SHZFLO Barycentric coordinate on vertical [in] SIZEBUF Dilmension of some work arrays [in] SURDET 1/determinant, used in isoparametric TRANSFORMATION. [in] TAGFLO Tags of floats [in] TALGAE Duration before algae release [in] TRANSF 3d mesh transformation [in] TW1_ALGAE Wave orbital velocity threshold for algae 1 [in] TW2_ALGAE Wave orbital velocity threshold for algae 2 [in] U X-component of velocity [in] V Y-component of velocity [in] W Z-component of velocity [in] X Abscissae of points in the mesh [in,out] XFLOT Abscissae of floats [in] Y Ordinates of points in the mesh [in] YALGAE Algae type [in,out] YFLOT Ordinates of floats [in] Z Elevations of points in the mesh [in,out] ZFLOT Elevations of floats [in] ielmu A_ALGAE Rate of degradation for algae [in] CLSFLO Class of floats [in] DT Time step (i.e. time interval). [in,out] DX Work array (displacements along x) [in,out] DY Work array (displacements along y) [in,out] DZ Work array (displacements along z) [in,out] ELTBUF Work array [in,out] ELTFLO Numbers of elements where are the floats [in,out] ETAFLO Levels where are the floats FOR FLOATS POSITIONS. [in] IELM Type of element. [in] IELMU Type of element for velocities. [in] IFABOR Elements behind the edges of another element IF IFABOR NEGATIVE OR 0, THE EDGE IS A LIQUID OR PERIODIC BOUNDARY [in] IKLE Connectivity table. [in,out] ISUB Arrival sub-domain of particles. [in] LT Time step number. [in,out] MESH Mesh structure. [in] NDP Number of points per element for ielm [in] NDP2 Number of points per element for ielmu [in] NELEM Number of elements [in] NELMAX Maximum number of elements in 2d [in,out] NFLOT Number of floats. [in,out] NFLOT_MAX Maximum number of floats. [in] NPLAN Number of planes for 3d (1 for 2d) [in] NPOIN Number of points [in] NPOIN2 Number of points in 2d mesh [in] NSTAR Vertical distribution of planes [in] ORBVEL Wave orbital velocity [in] REL_ALGAE Algae release type [in,out] SHPBUF Work array [in,out] SHPFLO Barycentric coordinates of floats in their ELEMENTS. [in,out] SHZBUF Work array [in,out] SHZFLO Barycentric coordinate on vertical [in] SIZEBUF Dilmension of some work arrays [in] SURDET 1/determinant, used in isoparametric TRANSFORMATION. [in] TAGFLO Tags of floats [in] TALGAE Duration before algae release [in] TRANSF 3d mesh transformation [in] TW1_ALGAE Wave orbital velocity threshold for algae 1 [in] TW2_ALGAE Wave orbital velocity threshold for algae 2 [in] U X-component of velocity [in] V Y-component of velocity [in] W Z-component of velocity [in] X Abscissae of points in the mesh [in,out] XFLOT Abscissae of floats [in] Y Ordinates of points in the mesh [in] YALGAE Algae type [in,out] YFLOT Ordinates of floats [in] Z Elevations of points in the mesh [in,out] ZFLOT Elevations of floats [in] ndp A_ALGAE Rate of degradation for algae [in] CLSFLO Class of floats [in] DT Time step (i.e. time interval). [in,out] DX Work array (displacements along x) [in,out] DY Work array (displacements along y) [in,out] DZ Work array (displacements along z) [in,out] ELTBUF Work array [in,out] ELTFLO Numbers of elements where are the floats [in,out] ETAFLO Levels where are the floats FOR FLOATS POSITIONS. [in] IELM Type of element. [in] IELMU Type of element for velocities. [in] IFABOR Elements behind the edges of another element IF IFABOR NEGATIVE OR 0, THE EDGE IS A LIQUID OR PERIODIC BOUNDARY [in] IKLE Connectivity table. [in,out] ISUB Arrival sub-domain of particles. [in] LT Time step number. [in,out] MESH Mesh structure. [in] NDP Number of points per element for ielm [in] NDP2 Number of points per element for ielmu [in] NELEM Number of elements [in] NELMAX Maximum number of elements in 2d [in,out] NFLOT Number of floats. [in,out] NFLOT_MAX Maximum number of floats. [in] NPLAN Number of planes for 3d (1 for 2d) [in] NPOIN Number of points [in] NPOIN2 Number of points in 2d mesh [in] NSTAR Vertical distribution of planes [in] ORBVEL Wave orbital velocity [in] REL_ALGAE Algae release type [in,out] SHPBUF Work array [in,out] SHPFLO Barycentric coordinates of floats in their ELEMENTS. [in,out] SHZBUF Work array [in,out] SHZFLO Barycentric coordinate on vertical [in] SIZEBUF Dilmension of some work arrays [in] SURDET 1/determinant, used in isoparametric TRANSFORMATION. [in] TAGFLO Tags of floats [in] TALGAE Duration before algae release [in] TRANSF 3d mesh transformation [in] TW1_ALGAE Wave orbital velocity threshold for algae 1 [in] TW2_ALGAE Wave orbital velocity threshold for algae 2 [in] U X-component of velocity [in] V Y-component of velocity [in] W Z-component of velocity [in] X Abscissae of points in the mesh [in,out] XFLOT Abscissae of floats [in] Y Ordinates of points in the mesh [in] YALGAE Algae type [in,out] YFLOT Ordinates of floats [in] Z Elevations of points in the mesh [in,out] ZFLOT Elevations of floats [in] nelem A_ALGAE Rate of degradation for algae [in] CLSFLO Class of floats [in] DT Time step (i.e. time interval). [in,out] DX Work array (displacements along x) [in,out] DY Work array (displacements along y) [in,out] DZ Work array (displacements along z) [in,out] ELTBUF Work array [in,out] ELTFLO Numbers of elements where are the floats [in,out] ETAFLO Levels where are the floats FOR FLOATS POSITIONS. [in] IELM Type of element. [in] IELMU Type of element for velocities. [in] IFABOR Elements behind the edges of another element IF IFABOR NEGATIVE OR 0, THE EDGE IS A LIQUID OR PERIODIC BOUNDARY [in] IKLE Connectivity table. [in,out] ISUB Arrival sub-domain of particles. [in] LT Time step number. [in,out] MESH Mesh structure. [in] NDP Number of points per element for ielm [in] NDP2 Number of points per element for ielmu [in] NELEM Number of elements [in] NELMAX Maximum number of elements in 2d [in,out] NFLOT Number of floats. [in,out] NFLOT_MAX Maximum number of floats. [in] NPLAN Number of planes for 3d (1 for 2d) [in] NPOIN Number of points [in] NPOIN2 Number of points in 2d mesh [in] NSTAR Vertical distribution of planes [in] ORBVEL Wave orbital velocity [in] REL_ALGAE Algae release type [in,out] SHPBUF Work array [in,out] SHPFLO Barycentric coordinates of floats in their ELEMENTS. [in,out] SHZBUF Work array [in,out] SHZFLO Barycentric coordinate on vertical [in] SIZEBUF Dilmension of some work arrays [in] SURDET 1/determinant, used in isoparametric TRANSFORMATION. [in] TAGFLO Tags of floats [in] TALGAE Duration before algae release [in] TRANSF 3d mesh transformation [in] TW1_ALGAE Wave orbital velocity threshold for algae 1 [in] TW2_ALGAE Wave orbital velocity threshold for algae 2 [in] U X-component of velocity [in] V Y-component of velocity [in] W Z-component of velocity [in] X Abscissae of points in the mesh [in,out] XFLOT Abscissae of floats [in] Y Ordinates of points in the mesh [in] YALGAE Algae type [in,out] YFLOT Ordinates of floats [in] Z Elevations of points in the mesh [in,out] ZFLOT Elevations of floats
Definition at line 16 of file derive.f.
Here is the call graph for this function: Here is the caller graph for this function: