FIELD RESEARCH FACILITY (DUCK , NC) EXAMPLE 



75 12.0 50 24.0 9.800 0.0 2 0.90 

 2.00 12.00 20.00 

 1.50 8.00 -35.00 

 1 50 1 11 41 



1 



Figure G3. DUCKDAT 



ID MODS 

 D PARAM.3 



PARAMETER (IG=75, JQ=50) 

 D DEPTH. 23, DEPTH. 26 

 DQ 14 J=1,N 



READ(8,60)(D(I,J),I=1,M) 

 DQ 315 1=1, H 

 D(I,J)=-D(I,J) 

 315 CONTINUE 

 60 FORMAT (5X/U5F8. 2)) 

 14 CONTINUE 

 D MAIN. 203 



DMULT=10.0 



Figure G4. DUCKUPD 



ID MODS 

 D PARAM.3 



PARAMETER (IQ=75,JQ=50) 

 D DEPTH. 23, DEPTH. 26 

 DO 14 J=1,N 



READ(8,60)(D(I,J),I=1,H) 

 DO 315 1=1, M 

 D(I,J)=-D(I,J) 

 315 CONTINUE 

 60 FORMAT (5X/U5FB. 2)) 

 14 CONTINUE 

 D MAIN. 203 



DMULT=10.0 

 D MAIN.2 



PROGRAM RCPWAVE (INPUT , OUTPUT , T APE7=TAPE7 , TAPE6=TAPE6 , TAPE8=TAPE8 

 *,TAPE3=TAPE3) 



Figure G5. DUCKUP2 



G4 



