1US 



BACKSPACE 9 



l»u TO 110 

 120 CONTINUE 



1M M 1»AQF1 ,NE,3i | ) CALL 8w I TCHC "CAGE 1 » M GAGE2 i F | R «F?R 



WWITE(6.«26> 

 UJb FUKMAT(//.[ GAUGE NO, |,6Xi IMONTMIt TXt IDA* t>8X, (TIME 



*HIT6(6» tl)MGAGEltMONTHI|MO*VllMTIHei 



"HITttfc.in^SAGEZjMONTMatMOAYj.MTtHEe 

 1) FUNMAT(ITiJ(5XiI7)) 



THIS Portion OF PROGRAM CALCULATES WATER DEPTH AT WAVE QaGIS A3 wELL «8 

 AVt"AGES ANQ SUM OF 80UARE8 OF TIME 8E«I£8 



DO <lj I«i,n 



AVG1«AVG1*F1R( I) 

 U2 AVU2»AvG2+F2H(I) 



AVGl»AvGl/FLOAT(N) 



AVK2«AVG2/FL0AT(N) 



DEPTM«(AVGl+AVG2)/2.tB 



CALL"hfC(DEPTH,8.DELTT,N,N8ALFH) 



OU ai I«1.N 



F1H(I)«FIR(I)-AVG1 



F2H(I)»F2R(I)»AVG2 



8UMlsSuMitFlR(I)*»2, 



8UM2»SUM2+F2R(I)*»2. 

 <ll L0NT1NOF 



8UMi»80Ml/FLUATtN) 



SUM?»9um^/fi.0«T(N) 



THIS PORTION OF PROGRAM APPLIES OATA winOO" TO TI"E SERIES--OATA wINUOw 



VALUES ARF REPWESENTtO BY W(I) 

 00 89 I»| t N 

 "(I)"0.S*tl.0-CnS(T w OPI«FLOAT(I)/FLOATCN))J 



FlR(I)»(FIRtl) 

 F2K(I)«fF2R(I) 



R9 CUNT1N0E 



)»w(I) 



>*W(I) 



175 



IBS 



THIS PORTION OF PROGRAM CUHPUTtS SUM OF 8UUARE8 OF DATA WINDOW MODIFIED 



TIME SERIE6 AS W ELL AS RATIO OF PRE WINDUWlo ENERGY TO WINDOWED ENtRCV 

 DO uj I»l ,N 



«SUMl«wgOMi+FiR(I)**2. 

 WSUM2»wSUM2+F?R(I)«»2, 

 43 CUNTINUE 



»SUMl«HSUMi/FLOAT(N) 

 i"SUM£bwsUM2/FL0AT(N) 

 HATIU1»SUM1/HSUM1 

 NAT I02«SUM2/WSUM2 

 CALL FFT(FlR,FlIiK,o) 

 CALL FFT(F2R,F2IiK,0) 

 MEAN1«F1R(D 

 MEANii«F2R(l) 



195 



THIS PORTION OF PROGRAM CALCULATES CO AND UUAD SPECTRA VALUES. AS WELL AS 

 WAVE ANGLE TO SHORELINE ANU ENERGY CONTRIBUTIONS OF EACH FREQUENCY, 

 BREAKING "AVE HEIGHT ANU BREAKING WAVE CELERITY ARE ALSO 

 CALCULATED IN THIS SECTION 



I«l 



DO 97 J»2.N 



F1R(I)»F1K( J) 



F1I(1)»F1ICJ) 



F2H(I)«F2R(J) 



F2I(I)«F2I(J) 



97 CONTINUE 



DO 96 ]3l ,M 



SuMFl«8UMFl*FlR{I)**a.*FlI(I)»»2. 



Figure 2. Listing of main program. — Continued 



16 



