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 |
---|