Go to the source code of this file.
|
subroutine | radiat (FX1, FY1, XK1, FS, CG1, CGSUC1, DSXXDX, DSXYDX, DSXYDY, DSYYDY) |
|
◆ radiat()
subroutine radiat |
( |
double precision, dimension(npoin2), intent(inout) |
FX1, |
|
|
double precision, dimension(npoin2), intent(inout) |
FY1, |
|
|
double precision, dimension(npoin2,nf), intent(in) |
XK1, |
|
|
double precision, dimension(npoin2,ndire,nf), intent(in) |
FS, |
|
|
double precision, dimension(npoin2,nf), intent(in) |
CG1, |
|
|
double precision, dimension(npoin2,nf), intent(inout) |
CGSUC1, |
|
|
double precision, dimension(npoin2), intent(inout) |
DSXXDX, |
|
|
double precision, dimension(npoin2), intent(inout) |
DSXYDX, |
|
|
double precision, dimension(npoin2), intent(inout) |
DSXYDY, |
|
|
double precision, dimension(npoin2), intent(inout) |
DSYYDY |
|
) |
| |
- Parameters
-
[in] | fs | CG1 Discretized group velocity |
[out] | CGSUC1 | Work table |
[in] | DEPTH1 | Water depth |
[in,out] | DSXXDX | Work table |
[in,out] | DSXYDX | Work table |
[in,out] | DSXYDY | Work table |
[in,out] | DSYYDY | Work table |
[in] | FS | Directional spectrum |
[out] | FX | Driving force along x |
[out] | FY | Driving force along y |
[in] | NPOIN2 | Number of points in 2d mesh |
[out] | SXX | Radiation stress along xx |
[out] | SXY | Radiation stress along xy |
[out] | SYY | Radiation stress along yy |
[in] | XK1 | Discretized wave number |
Definition at line 8 of file radiat.f.