100 SUBROUTINE INDATA < IT, IT1 , IT2, H, Z, N, DT) 



HO C* SPECIFIES WAVE HEIGHTS AND ANGLES AT SPECIFIED TIME STEPS 



120 DIMENSION H (40) , Z (40) , A (40) 



130 C* 



140 C*IDUM=0: 



150 C*Detached breakwater version. The program gives representative 



160 C-X-wave data (H,Z) simulating e-f-fect o-f shore parallell detached 



170 C*breakwater 16*DX o-f-fshore and running from 1 = 12 to 1=28. 



180 Cfclnital beach is straight line. 



190 C* 



200 C*IDUM=l: 



210 C*Represents an initially circular beach with no o-f-fshore structures 



220 C* 



230 IDUM=1 



240 DTR=3. 141593/180. 



250 IFdT.EQ. IT1) GOTO 20 



260 IFdT.EQ. IT2) GOTO 30 



270 C* 



280 C*WAVE ANGLES 



290 C a-*********** 



300 C*Case 1: Una-f-fected breaking angle = deg. 



310 IFdDUM.EQ. 1) GOTO 14 



320 DO 10 1=1,12 



330 Z(I)=0. 



340 10 CONTINUE 



350 DO 11 1=13,19 



360 Z(I)=Z(I-1) +10. 17. 



370 11 CONTINUE 



380 Z(20)=-10. 



390 DO 12 1=21,28 



400 Z(I)=Z(I-1)+10. /8. 



410 12 CONTINUE 



420 DO 13 1=29, N 



430 Zd)=0. 



440 13 CONTINUE 



450 GOTO 50 



460 C*A1 ternat i ve case 1: Una-f-fected angle = -20 deg. 



470 14 CONTINUE 



480 DO 15 1=1, N 



490 Zd)=-20.*FL0AT(40-I) /40. 



500 15 CONTINUE 



510 GOTO 50 



520 C* 



530 C*Case 2: Una-f-fected breaking angle = -10 deg. 



540 20 CONTINUE 



550 IFdDUM.EQ. 1) GOTO 27 



560 DO 21 1=1,8 



570 Z(I)=-10. 



580 21 CONTINUE 



590 DO 22 1=9, 14 



600 Z(I)=Z(I-1)+10. /6. 



610 22 CONTINUE 



620 DO 23 1=15, 18 



630 Z(I)=Z(I-1) +2.5 



640 23 CONTINUE 



650 DO 24 1=19,20 



660 Zd)=Zd-l)-5. 



670 24 CONTINUE 



680 DO 25 1=21,23 



690 Z(I)=Z(I-1) -2.5 



700 25 CONTINUE 



710 DO 26 1=24,40 



720 Z(I)=-10. 



730 26 CONTINUE 



A11 



