SUbWUUTINE HUF REAOS IN NAVE GAGE DATE INFU AND TIME SERIES DYNAMIC 

 PRESSURE VALUES IN FEET HEAD UF HATER 



THIS SUBROUTINE READS U096 TIMt SERIES VALUES AND AVERAGES TO OBTAIN 

 10JU VALUES FOR MAIN PROGRAM ANALYSIS 



MGAGE«GAGF NUMBER 



MUNTHiMUNTH OF RECORDING 



MOAY»nAY OF RECOROING 



MTlMt«TIME OF RECORDING 



HEAL»ARRAY OF AVERAGED TIME SERIES VALUE* 



SUBROUTINE BUF(MCAGE» MONTH, MUATtMTIME»REAL»IOATE, END) 



DIMENS1UN CNTL(10')6}»IA(5000) 



DIMENSION REAL(lOJl) 



LOGICAL END 



OU \i J»l. liOtb 



CNTLU)»0.0 

 12 CONTINUE 



BUFFER IN(9.1)(IA(l)ilA(5000J) 



IFCUNITC9JJ 10,20,10 

 20 PRINT lli(IA(I),I»l,a) 

 11 FURMAT([ PARITY ERROJ ONt»<IIT) 

 10 CONTINUE 



MGAGt«IA(l j 



MUNTH»JA(2) 



MDAY»lA(3) 



MTIMfc«IA(<|) 



IOAT6«IA(2)+IA(l)*IA(aj 



DO 25 J»l.(l096 



K»K+1 



CN1L(J)»IA(K) 



25 CNTL(J)«CNTL(J)/1000. 

 DO 2fe J»i|OB8,«096 



26 CNTL(J)«CNTL(a08T) 

 J«l 



00 27 L'lMOSfl 



REAL(L)«tCNTL{J)*CNTt(J*l)+CNTL(J+J)*CNTLtJ*l))/«. 



J'J+1 



27 CONTINUE 

 RETURN 



30 ENQa, TRUE. 

 RETURN 

 END 



Figure 7. Listing of BUF subroutine. 



V. SAMPLE OUTPUT 



Three examples of output are presented for different dates for the wave 

 gage pair at Channel Islands Harbor (Fig. 8). The year the data was taken was 

 1975. 



The first set of frequencies lists amplitude modules squared of wave data 

 having impossible direction results. The sum total of this energy (in decimal 

 percent) is listed as the quantity RSODD in the variable output at the bottom 

 of the output. In the case of the wave data taken on 7-26-1600, the inco- 

 herent data amounted to 0.004 (0.4 percent) of the total energy in the wave 

 record. 



The second set of frequencies listed provides the wave direction for the 

 frequency bands having a significant part of the energy (>2.5 percent). In 

 the case of the wave record taken on 7-26-1600, it is seen that the wave angle 

 is reasonably consistent from the frequency-to-frequency band and is approxi- 

 mately 0.70 radian (40.1°). 



The variable list provided at the bottom of the sampled output gives 



values of most importance in the analysis of wave information for longshore 



energy flux. The longshore energy flux output is in pounds per second units; 

 the output in the first example is 89.23 pounds per second. 



29 



