210 - 



06050 

 06100 

 06150 

 06200 

 06250 

 06300 

 06350 

 06400 

 06450 

 06500 

 06550 

 06600 

 06650 

 06700 

 06750 

 06800 

 06850 

 06900 

 06950 

 O70OO 

 07050 

 07 100 

 07 150 

 07200 

 07250 

 07300 

 07350 

 07400 

 07450 

 07500 

 07550 

 07600 

 07650 

 07700 

 07750 

 07800 

 07850 

 07900 

 07950 

 08000 

 08050 

 08100 

 08150 

 08200 

 08250 

 08300 

 08350 

 08400 

 08450 

 08500 

 08550 

 08600 

 08650 

 08700 

 08750 

 08800 

 08850 

 08900 

 08950 

 09000 



' SAMPLING') 

 WRITE (4, 3056) blk 

 Format (57x, 12, ' BANDS BLOCK AVERAGED') 



C Scan each record, calculate std . deviat ion, truncate 



C unreasonable points, report them, calculate and subtract 



C mean from record, convert to psi. 



NGAGE = 1 



Ca 1 1 SCAN( dp 1 , n , ngage . avg 1 , dx 1 n 1 ) 



NGAGE = 2 



Cal 1 SCAN(dp2,n, ngage, avg2 ,dxin2 ) 



NGAGE = 3 



Call SCAN(dp3 , n, ngage, avg3,dx1n3) 



NGAGE = 4 



Cal 1 SCAN(dp4 , n, ngage, avg4 ,dx1n4) 



NGAGE = 5 



Cal 1 SCAN(abs . n , ngage . avgabs . dx i n4 ) 



N = N/2 

 N2 = N2/2 



C Reverse signs on DPI & DP2 for sign convention. 

 DO 1057 JJ=1,N 



DPI(jj) = -DPKjj ) 

 DP2(JJ) = -DP2(jj) 

 1057 Continue 



C Record portion of pressure signals In scratch file 

 C if desired. 

 C GO TO 1056 



DO 1056 1=1,600 



WRITE( 14,4096)1 . dp 1 ( i ),dp2( i ),dp3( i ) ,dp4( i ),abs( i ) 

 1056 Continue 

 4096 Formate 16, 5f 14.7) 



C Calculate tide and water depth. Neglect 



C temperature changes on back-filling fluid. 



DEPTH = ((AVGABS*10.-Pbf-atm)/gamma )/12. 



TILiE = (DEPTH - SGA3E) 

 717 Format(/,' TIDE LEVEL IS',F7.3,' FEET.') 



WRITE(4,717) TIDE 



C Compare record mean and no-wave condition tare 

 C to approximate instrument tilt. 



TARE1 = 7.5 

 TARE2 = 2.31 

 TARES =2.56 

 TARE4 = 3.825 



t1 = (avgl - tare1)/5. 

 t2 = (avg2 - tare2)/5. 

 t3 = (avg3 - tare3)/5. 

 t4 = (avg4 - tare4)/5. 

 g1 = gamma * dxinl 

 g2 = gamma * dx1n2 



