|
Revision 168
(checked in by cbc, 16 years ago)
|
Adding diwasp customizations.
|
| Line | |
|---|
| 1 |
DIWASP format |
|---|
| 2 |
Directional Wave Spectrum |
|---|
| 3 |
|
|---|
| 4 |
Continuous ASCII stream: |
|---|
| 5 |
xaxisdir DOUBLE compass direction of x axis |
|---|
| 6 |
nspec INTEGER number of frequency bins |
|---|
| 7 |
ndir INTEGER number of direction bins |
|---|
| 8 |
spfreq(nspec) DOUBLE frequency bins in rad/s |
|---|
| 9 |
spdir(ndir) DOUBLE direction bins in radians |
|---|
| 10 |
999 INTEGER end of header marker |
|---|
| 11 |
spden(nspec,ndir) DOUBLE density of wave component with frequency:freq ; direction:dir |
|---|
| 12 |
|
|---|
| 13 |
Loop order for spectral densities:: |
|---|
| 14 |
do i=1,nspec |
|---|
| 15 |
do j=1,ndir |
|---|
| 16 |
read(##,*) spden(i,j) |
|---|
| 17 |
enddo |
|---|
| 18 |
enddo |
|---|
