- 209 



03050 

 03100 

 03150 

 03200 

 03250 

 03300 

 03350 

 03400 

 03450 

 03500 

 03550 

 03600 

 03650 

 03700 

 03750 

 03800 

 03850 

 03900 

 03950 

 04000 

 04050 

 04 100 

 04150 

 04200 

 04250 

 04300 

 04350 

 04400 

 04450 

 04500 

 04550 

 04600 

 04650 

 04700 

 04750 

 04800 

 04850 

 04900 

 04950 

 05000 

 05050 

 05100 

 05150 

 05200 

 05250 

 05300 

 05350 

 05400 

 05450 

 05500 

 05550 

 05600 

 05650 

 05700 

 05750 

 05800 

 05850 

 05900 

 05950 

 06000 



GAMMA = 64 . 18 



GAMMA = GAMMA/ 1728. 



N = 4096 



K=1 1 



N2 = N/2 



DT = 0.5 



MOST = N+4 



BLK = 8 



NUFF = 6 



Icut = 327 



DPG PHYSICAL DETAILS: 



ORIENT = compass heading of arm 3 w . r . t . true north 

 SGAGb = mean depth of sensors below mean water (ft) 

 DXInl = length of arm 1 diff. measurement (In) 

 DX1n2 = length of arm 2 diff. measurement (in) 

 DXin3 = length of arm 3 diff. measurement (in) 

 DX1n4 = length of arm 4 diff. measurement (in) 

 ARM13 = distance between DPI & DPS measurement (in) 

 ARM24 = distance between DP2 & DP4 measurement (in) 

 Pbf = fluid back-fill pressure on absolute (psi) 



ORIENT 





= 53. 



SGAGE 



= 



16 



49 



DXinI 



= 



47 



25 



DXin2 



= 



53 



75 



DXin3 



= 



47 



75 



DXin4 



= 



53 



875 



ARM13 



= 



53 



25 



ARM24 



= 



50 



94 



Pbf = 



1 



.23 





pi = 3. 14159265 

 twopi = 2.0 * pi 



Format( 14 ) 



WRITE(4,819) 



Format(//,40X. 'UNIVERSITY OF DELAWARE',/, 

 36X, 'DEPARTMENT OF CIVIL ENGINEERING',/, 

 29X.'DPG DIRECTIONAL WAVE MONITOR / ', 

 'FRF, DUCK, N.C. ' ,//) 



Load data arrays with zeroes for cleanliness. 

 DO 115 1=1, most 

 DP 1 ( i ) = . 00 

 DP2( 1 ) = 0.00 

 DP3( 1 ) = 0.00 

 DP4( i ) = 0.00 

 15 ABS( 1 ) = 0.00 



CALL INPUT (dpi .dp2.dp3,dp4,abs) 



WRITE(4,3055) N,dT 

 55 Format(/,35x. 15, ' POINTS ANALYZED AT ' , f 4 



