212 - 



12050 



12 100 

 12150 

 12200 

 12250 

 12300 

 12350 

 12400 

 12450 

 12500 

 12550 

 12G00 

 12650 

 12700 

 12750 

 12800 

 12850 

 12900 

 12950 

 13000 

 13050 

 13100 



13 150 

 13200 

 13250 

 13300 

 13350 

 13400 

 13450 

 13500 

 13550 

 13600 

 13650 

 13700 

 13750 

 13800 

 13850 

 13900 

 13950 

 14000 

 14050 



14 100 

 14150 

 14200 

 14250 

 14300 

 14350 

 14400 

 14450 

 14500 

 14550 

 14600 

 14650 

 14700 

 14750 

 14800 

 14850 

 14900 

 14950 

 15000 



67 



DYY(1) = 2.0*(dpyy( i )**2 + clyy1(i)**2) 

 Cont inue 



:; Store the raw power spectra, if desired 

 GO TO 4003 

 WRITE( 17,4007) 

 WRITE( 17,3098) 

 DO 4003 1=2, 1cut 



WRITE ( 17,914)freq( i ) , ab( i ) , d1 ( 1 ) , d2( i ) , d3( i ) , 

 1 d4( i ),dxx( i ),dyy( 1 ) 



4003 Continue 

 4007 Format(' RAW POWER SPECTRA') 



Calculate significant wave height from absolute gage. 

 E=0.0 



DO 405 j=2, icut 

 35 E = ab( j ) + E 



Hsig = (4.*sqrt(E))/12.0 

 WRITE(4.921) Hsig 

 21 Formate/,' Significant Wave Height (ABS gage) =',f6.2, 

 1 ' feet .',//) 



Determine effective period from all gauges. 



CALL PERIOD (ab , d1 . d2 , d3 , d4 . n . i cut , dT , prsp , wvnr , f req) 



C Estimate direction without absolute gage. 



GO TO 6002 



CALL SURF ( icut ,d1 ,d2.d3,d4, dpi ,dp2,dp3,dp4, 



1 d1i.d2i.d3i.d4i.d1r1.dir2.d1r3,dir4,blk. 



2 orient) 



CALL SURF2(ab,d1 ,d2 , d3, d4 , ang1 , ang2 , ang3.ang4 , icut, 

 1 wvnn , b) k , or ient ) 



6002 Continue 



Generate the directional Fourier coefficients 



CALL FCOEFS(ab.abs,abi ,d1 ,dp1 .d1 i ,d2,dp2,d2i .d3, 



1 dp3 . d3 i , d4 , dp4 , d4 i , dxx , dpxx , dxx i , dyy , dpyy , dyy i , 



2 wvnr, f req. thtal , thta2, thta3. 



3 aO,a1 ,a2,a3,b1 ,b2,b3,blk, icut) 



: Store the block-averged power spectra 

 WRITE( 17,3097) blk 

 WRITE( 17,3098) 



3097 Formate/,' BLOCK AVERAGED 8Y'.i3, 

 1 ' BANDS' ) 



3098 Format(' freq . ab . d1 . d2 . d3 . d4', 

 1 ' . dxx . dyy' , /) 



DO 77 1=2, icut 



