Go to the source code of this file.
|
subroutine | tetmoy (TETAM, F, NDIRE, NF, NPOIN2) |
|
◆ tetmoy()
subroutine tetmoy |
( |
double precision, dimension(npoin2), intent(inout) |
TETAM, |
|
|
double precision, dimension(npoin2,ndire,nf), intent(in) |
F, |
|
|
integer, intent(in) |
NDIRE, |
|
|
integer, intent(in) |
NF, |
|
|
integer, intent(in) |
NPOIN2 |
|
) |
| |
- Parameters
-
[in] | nf | [in, out] COSMOY Work table |
[in] | COSTET | Cosine of teta angle |
[in] | DFREQ | Frequency steps between discretized frequencies |
[in] | F | Variance density directional spectrum |
[in] | FREQ | Discretized frequencies |
[in] | NF | Number of frequencies |
[in] | NDIRE | Number of directions |
[in] | NPOIN2 | Number of points in 2d mesh |
[in,out] | SINMOY | Work table |
[in] | SINTET | Sine of teta angle |
[in] | TAILF | Facteur de queue du spectre |
[in,out] | TAUXC | Work table |
[in,out] | TAUXS | Work table |
[out] | TETAM | Directional spectrum mean direction |
[in] | ndire | [in, out] COSMOY Work table |
[in] | COSTET | Cosine of teta angle |
[in] | DFREQ | Frequency steps between discretized frequencies |
[in] | F | Variance density directional spectrum |
[in] | FREQ | Discretized frequencies |
[in] | NF | Number of frequencies |
[in] | NDIRE | Number of directions |
[in] | NPOIN2 | Number of points in 2d mesh |
[in,out] | SINMOY | Work table |
[in] | SINTET | Sine of teta angle |
[in] | TAILF | Facteur de queue du spectre |
[in,out] | TAUXC | Work table |
[in,out] | TAUXS | Work table |
[out] | TETAM | Directional spectrum mean direction |
[in] | npoin2 | [in, out] COSMOY Work table |
[in] | COSTET | Cosine of teta angle |
[in] | DFREQ | Frequency steps between discretized frequencies |
[in] | F | Variance density directional spectrum |
[in] | FREQ | Discretized frequencies |
[in] | NF | Number of frequencies |
[in] | NDIRE | Number of directions |
[in] | NPOIN2 | Number of points in 2d mesh |
[in,out] | SINMOY | Work table |
[in] | SINTET | Sine of teta angle |
[in] | TAILF | Facteur de queue du spectre |
[in,out] | TAUXC | Work table |
[in,out] | TAUXS | Work table |
[out] | TETAM | Directional spectrum mean direction |
Definition at line 7 of file tetmoy.f.