Go to the source code of this file.
Functions/Subroutines | |
| subroutine | semimp (F, CF, XK, NF, NDIRE, NPOIN2, IANGNL, TSTOT, TSDER, TOLD, TNEW, Z0NEW, TWNEW, TAUX1, TAUX2, TAUX3, TAUX4, TAUX5, TAUX6, TAUX7, MDIA, IANMDI, COEMDI, FBOR) |
Function/Subroutine Documentation
◆ semimp()
| subroutine semimp | ( | double precision, dimension(npoin2,ndire,nf), intent(inout) | F, |
| double precision, dimension(*), intent(in) | CF, | ||
| double precision, dimension(npoin2,nf), intent(inout) | XK, | ||
| integer, intent(in) | NF, | ||
| integer, intent(in) | NDIRE, | ||
| integer, intent(in) | NPOIN2, | ||
| integer, dimension(*), intent(in) | IANGNL, | ||
| double precision, dimension(npoin2,ndire,nf), intent(inout) | TSTOT, | ||
| double precision, dimension(npoin2,ndire,nf), intent(inout) | TSDER, | ||
| double precision, dimension(npoin2,ndire), intent(inout) | TOLD, | ||
| double precision, dimension(npoin2,ndire), intent(inout) | TNEW, | ||
| double precision, dimension(npoin2), intent(inout) | Z0NEW, | ||
| double precision, dimension(npoin2), intent(inout) | TWNEW, | ||
| double precision, dimension(npoin2), intent(inout) | TAUX1, | ||
| double precision, dimension(npoin2), intent(inout) | TAUX2, | ||
| double precision, dimension(npoin2), intent(inout) | TAUX3, | ||
| double precision, dimension(npoin2), intent(inout) | TAUX4, | ||
| double precision, dimension(npoin2), intent(inout) | TAUX5, | ||
| double precision, dimension(npoin2), intent(inout) | TAUX6, | ||
| double precision, dimension(npoin2), intent(inout) | TAUX7, | ||
| integer, intent(in) | MDIA, | ||
| integer, dimension(*), intent(in) | IANMDI, | ||
| double precision, dimension(*), intent(in) | COEMDI, | ||
| double precision, dimension(nptfr,ndire,nf), intent(in) | FBOR | ||
| ) |
- Parameters
-
[in] npoin2 CF Advection field along frequency [in] COEMDI Coefficients used for mdia method [in,out] F Directional spectrum [in] FBOR Spectral variance density at the boundaries [out] FMOY Mean frequencies f-10 [in] FREQ Discretized frequencies [in] IANGNL Angular indices table [in] IANMDI Angular indices table for mdia [in] MDIA Number of configurations for mdia method [in] NBOR Global number of boundary points [in] NF Number of frequencies [in] NDIRE Number of directions [in] NPOIN2 Number of points in 2d mesh [in] NPTFR Number of boundary points [in,out] TAUX1 Work table [in,out] TAUX2 Work table [in,out] TAUX3 Work table [in,out] TAUX4 Work table [in,out] TAUX5 Work table [in,out] TAUX6 Work table [in,out] TAUX7 Work table [in,out] TNEW Work table [in,out] TOLD Work table [out] TSDER Derived part of the source term contribution [out] TSTOT Total part of the source term contribution [in,out] TWNEW Wind direction at time n+1 [in,out] USNEW Friction velocity at time n+1 [in] VARIAN Spectrum variance [in] XK Discretized wave number [out] XKMOY Average wave number [in,out] Z0NEW Surface roughness length at time n+1 [in] ndire CF Advection field along frequency [in] COEMDI Coefficients used for mdia method [in,out] F Directional spectrum [in] FBOR Spectral variance density at the boundaries [out] FMOY Mean frequencies f-10 [in] FREQ Discretized frequencies [in] IANGNL Angular indices table [in] IANMDI Angular indices table for mdia [in] MDIA Number of configurations for mdia method [in] NBOR Global number of boundary points [in] NF Number of frequencies [in] NDIRE Number of directions [in] NPOIN2 Number of points in 2d mesh [in] NPTFR Number of boundary points [in,out] TAUX1 Work table [in,out] TAUX2 Work table [in,out] TAUX3 Work table [in,out] TAUX4 Work table [in,out] TAUX5 Work table [in,out] TAUX6 Work table [in,out] TAUX7 Work table [in,out] TNEW Work table [in,out] TOLD Work table [out] TSDER Derived part of the source term contribution [out] TSTOT Total part of the source term contribution [in,out] TWNEW Wind direction at time n+1 [in,out] USNEW Friction velocity at time n+1 [in] VARIAN Spectrum variance [in] XK Discretized wave number [out] XKMOY Average wave number [in,out] Z0NEW Surface roughness length at time n+1 [in] nf CF Advection field along frequency [in] COEMDI Coefficients used for mdia method [in,out] F Directional spectrum [in] FBOR Spectral variance density at the boundaries [out] FMOY Mean frequencies f-10 [in] FREQ Discretized frequencies [in] IANGNL Angular indices table [in] IANMDI Angular indices table for mdia [in] MDIA Number of configurations for mdia method [in] NBOR Global number of boundary points [in] NF Number of frequencies [in] NDIRE Number of directions [in] NPOIN2 Number of points in 2d mesh [in] NPTFR Number of boundary points [in,out] TAUX1 Work table [in,out] TAUX2 Work table [in,out] TAUX3 Work table [in,out] TAUX4 Work table [in,out] TAUX5 Work table [in,out] TAUX6 Work table [in,out] TAUX7 Work table [in,out] TNEW Work table [in,out] TOLD Work table [out] TSDER Derived part of the source term contribution [out] TSTOT Total part of the source term contribution [in,out] TWNEW Wind direction at time n+1 [in,out] USNEW Friction velocity at time n+1 [in] VARIAN Spectrum variance [in] XK Discretized wave number [out] XKMOY Average wave number [in,out] Z0NEW Surface roughness length at time n+1 [in] iangnl CF Advection field along frequency [in] COEMDI Coefficients used for mdia method [in,out] F Directional spectrum [in] FBOR Spectral variance density at the boundaries [out] FMOY Mean frequencies f-10 [in] FREQ Discretized frequencies [in] IANGNL Angular indices table [in] IANMDI Angular indices table for mdia [in] MDIA Number of configurations for mdia method [in] NBOR Global number of boundary points [in] NF Number of frequencies [in] NDIRE Number of directions [in] NPOIN2 Number of points in 2d mesh [in] NPTFR Number of boundary points [in,out] TAUX1 Work table [in,out] TAUX2 Work table [in,out] TAUX3 Work table [in,out] TAUX4 Work table [in,out] TAUX5 Work table [in,out] TAUX6 Work table [in,out] TAUX7 Work table [in,out] TNEW Work table [in,out] TOLD Work table [out] TSDER Derived part of the source term contribution [out] TSTOT Total part of the source term contribution [in,out] TWNEW Wind direction at time n+1 [in,out] USNEW Friction velocity at time n+1 [in] VARIAN Spectrum variance [in] XK Discretized wave number [out] XKMOY Average wave number [in,out] Z0NEW Surface roughness length at time n+1
Definition at line 10 of file semimp.f.
Here is the call graph for this function: Here is the caller graph for this function: