100 C* *********** PROGRAM IMPLICIT SEDTRAN 



200 C*THIS PROGRAM IS SET-UP TO HANDLE MULTIPLE GROINS(M<= 10) . 



300 COMMON/ A/ C ( GO , 20 ) , RK( GO , 20 ) , Y ( 60 , 20 ) . DEEP ( 60 , 20 ) . ALPHAS ( 60 . 20) 



400 C0MMON/AA/YZER0(GO) 



500 C0MM0N/BB/WE0(6O,2O) 



600 COMMON/B/ THET A ( 60 , 20 ) , OXTOT ( GO ) , OLDANG( 60 , 20) , DY(60,20) 



700 COMMON/C/ H( GO. 20) . CG( 60, 20) , HOLD( 60, 20) , HB( 60, 20) , YB( 60) 



800 COMMON/N USED/JUSE , T , CO , CGEN , CGGEN , ANGGEN , DX , BERM , THETAO( 10) ,MMAX 



900 COMMDN/D/SIGMA,G,ELO,dMAX. IMAX.PI .TWOPI ,P.I02.HGEN, IdET(10) ,S JETTY 



1000 COMMON/F/ADEAN, REPOSE, DIAM 



1100 COMMON/AAA/DELT,NTIMES 



1200 COMMON/COUNT/NUNIV 



1300 COMM0N/EXPL/0YEXP(GO,2O),YIMP(6O,2O) 



1400 DIMENSION CHANGE ( 20) , HC( 10) , TC( 10) 



1500 DIMENSION YOR I G( 60 , 20 ) , YZEROO ( 60 ) . SANGLE ( 20) 



1600 NUNIV=0 



1700 JMAX=8 



1800 JUSE=JMAX+2 



1900 IMAX=50 



2000 PI=3. 141592654 



2100 TW0PI=PI*2. 



2200 PI02=PI/2.0 



2300 REP0SE=32. *TW0PI/360. 



2400 WRITE(6,732) 



2500 7 32 FORMAT ( '******************************************************') 



2600 WRITE(6,733) 



2700 733 F0RMAT(2X, 'TO WHAT DEPTH ARE THE WAVES TO BE TRANSFORMED') 



2800 C*WDEPTH MUST BE A DEPTH BEYOND THE END OF THE STRUCT, PREFERABLY AT 



2900 C**DEEP(>JMAX) OR GREATER(OR ELSE SNELL'S LAW OR SHOAL COULD BLOWUP IN 



3000 C***DEEPER WATER. IT'S IN METERS HERE! 



3100 READ(5,770) WDEPTH 



3200 770 FORMAT( 10X, F10. 3) 



3300 WDEPTH=WDEPTH*3. 28084 



3400 WRITE(G,762) WDEPTH 



3500 762 F0RMAT(2X, "THE DEPTH (IN FT) WAVES TRANSFORMED TO, WDEPTH= ", 



3600 * F10.3) 



3700 WRITE(6,732) 



3800 WRITE(6.777) 



3900 777 F0RMAT(2X, "ITS TIME FOR SJETTY, BERM. SFACE, AND DIAM"./) 



4000 C*SJETTY MUST BE MUCH LESS THAN Y(I,JMAX). 



4100 READ(5,776) SJETTY , BERM, SFACE , DIAM 



4200 776 F0RMAT(2F 10.3, F10.4, F10. 3) 



4300 WRITE(6,761) SJETTY 



4400 761 F0RMAT(2X, 'THE LENGTH OF THE STRUCTURE, SJETTY= ',F10.3) 



4500 WRITE(6,740) BERM 



4600 740 F0RMAT(2X. 'THE HEIGHT OF THE BERM, BERM= ',F10.3) 



4700 WRITE(6,739)SFACE 



4800 739 F0RMAT(2X, 'THE SLOPE OF THE BEACH FACE, SFACE= ',F10.4) 



4900 WRITE(6,738) DIAM 



5000 738 F0RMAT(2X, 'THE SEDIMENT DIAMETER. DIAM= '.F10.3) 



5100 WRITE(6,732) 



5200 780 F0RMAT(2X. 'SUPPLY MMAX( THE NO. OF GROINS) AND THEIR I-LOC'./) 



5300 UCRIT=16.3*S0RT(DIAM*O.00328) 



5400 C*THE NO, OF MULTIPLE GROINS. MMAX MUST BE GIVEN THEIR X LOCATIONS. 



5500 READ(5.779) MMAX 



5600 779 F0RMAT(I3) 



5700 DO 760 M=1,MMAX 



5800 C*IJET REPS LESSER I-VALUE ADJACENT TO STRUCTURE. 



5900 760 READ(5,779) IJET(M) 



6000 WRITE(6,759) ( M , I JET(M) , M= 1 , MMAX ) 



6100 759 F0RMAT(2X, 'THE NUMBER', 15,' GROIN IS LOCATED AT GRID', 15) 



6200 WRITE(6.732) 



6300 C*CONVERT TO RADIANS. 



6400 C*FIRST MUST GIVE Y COORS POSITIONS AND DEPTHS. 



6500 C*FIRST, MUST SET UP ALL OF THE DEEP-VALUES. 



6600 WRITE(G,773) 



6700 773 F0RMAT(2X, "NOW ENTER THE VALUE OF ADEAN") 



6800 READ(5,774)ADEAN 



6900 774 F0RMAT(F10.4 ) 



7000 WRITE(6,749) ADEAN 



7100 749 F0RMAT(2X, 'THE VALUE OF ADEAN= ',F10.4.' IN THE EQ. H = AY**2/3') 



7200 WRITE(6,732) 



66 



