Go to the source code of this file.
Functions/Subroutines | |
| subroutine | lecsui (F, NDIRE, NF, NPOIN2, VENT, COURAN, NPRE, FFORMAT, MAREE, TRA01) |
Function/Subroutine Documentation
◆ lecsui()
| subroutine lecsui | ( | double precision, dimension(npoin2,ndire,nf), intent(inout) | F, |
| integer, intent(in) | NDIRE, | ||
| integer, intent(in) | NF, | ||
| integer, intent(in) | NPOIN2, | ||
| logical, intent(in) | VENT, | ||
| logical, intent(in) | COURAN, | ||
| integer, intent(in) | NPRE, | ||
| character(len=8), intent(in) | FFORMAT, | ||
| logical, intent(in) | MAREE, | ||
| double precision, dimension(npoin2*ndire), intent(inout) | TRA01 | ||
| ) |
- Parameters
-
[in] npre COURAN Logical indicating if there is a current [out] F Directional spectrum [in] MAREE Logical indicating consideration of tide [in] NF Number of frequencies [in] NDIRE Number of directions [in] NPOIN2 Number of points in 2d mesh [in] NPRE Loigcal unit number of previous computation file [out] TRA01 Double precision work table of size npoin2*ndire [in] VENT Logical indicating if there is a wind [in] nf COURAN Logical indicating if there is a current [out] F Directional spectrum [in] MAREE Logical indicating consideration of tide [in] NF Number of frequencies [in] NDIRE Number of directions [in] NPOIN2 Number of points in 2d mesh [in] NPRE Loigcal unit number of previous computation file [out] TRA01 Double precision work table of size npoin2*ndire [in] VENT Logical indicating if there is a wind [in] ndire COURAN Logical indicating if there is a current [out] F Directional spectrum [in] MAREE Logical indicating consideration of tide [in] NF Number of frequencies [in] NDIRE Number of directions [in] NPOIN2 Number of points in 2d mesh [in] NPRE Loigcal unit number of previous computation file [out] TRA01 Double precision work table of size npoin2*ndire [in] VENT Logical indicating if there is a wind [in] npoin2 COURAN Logical indicating if there is a current [out] F Directional spectrum [in] MAREE Logical indicating consideration of tide [in] NF Number of frequencies [in] NDIRE Number of directions [in] NPOIN2 Number of points in 2d mesh [in] NPRE Loigcal unit number of previous computation file [out] TRA01 Double precision work table of size npoin2*ndire [in] VENT Logical indicating if there is a wind
Definition at line 7 of file lecsui.f.
Here is the call graph for this function: Here is the caller graph for this function: