Table F-4. Listing of the program OVER. 



1 PKU0H4M 0VeR(lNPUT,nUTPUTtT*P£5»INPUTf T*?E6»0UTPUT) 



Kt»L LfKTO 



OlMfMSION T4N4(iS)tC*(b)iCB(6)tCC(6) 



04TA TAN*/io,,2,tl,tt667f,«a«»Ot355/ 

 S OAT* CA/o,<J5B,l,280tl. 46911,991,1,611,1,166/ 



DATA CB/.?£tt,,jqOi,itt6,,«9tt,,a69,,3ti/ 



UATA CC/,0576,,,09l,-,ll)Sf«,»85i",0tt0»,0<t0/ 



nE*n(<i,i) hhm 



DO (00 IBwBtjNRw 

 10 NtAn(S,n Nt IfRONT.TANT.BtHS.RSiACiBC 



1 fUHMAT(ai?,aX,7Fin,5) 

 C N « NUMBfcH Jf HAVE CONUITIONS 

 C IFHONT B t F0» 1/15 hHONTiNG SLOPE 

 C TANT » TAN&fNT Of- FRONT hHkAK'«ATfcH SLOPE ANGLE 

 15 C B ■ STHlJCTuHt *»IOTh aT Tnfc CREST Cm) 



C HS • STrtuCTURt' HEIGHT (m) 



C 08 ■ "ATES OEPlM AT TUE OF STRUCTURE (M) 



C AC ■ AhWtNS ROUGH SLUPE RUNUP COEFFICIENT ("O ^OR SMOOTH SLOPES) 

 C eC ■ AHRENS ROUGH SLOPE HUNUP COEFFICIENT 

 BO F«M,S«DS 



BhaR/HS 



c^u.-ji-o,! i*aH 



'•WITE(6»2) N,lp90NT,TANTia,HbiDS»F,C 

 a F0HmaT(1H1,5X, (PREDICTION OF WAVt TRANSMISSION COEFFICIENTS FOHt.A 

 25 ♦i2X, IAN IMPfRMEABLE 8RE AkwATER [t //i 1 X| CnUMHER OF >*AVfc CONDIT 



♦lU^'S BltlSi /,1X.(IFRUNT B I»I2t/. IX. (TanCSLOPE )B t.f6,3»/t IXi [BREAK 

 »K«ATtR TOP -IDTHCM). 1,F6,3./.1X, (STRUCTURE HE IGHT ( M) * (, F6 , 3 1 / 1 1 X 



• .[i^ATER OEPTH(M)« (,F6,3i/ilX, tFREEH0ARD(M)»{iFb,3i/»iXi 



♦ tCOtFFICIENT OF OVENTUPPINO C«CF6,1,//) 



JO ifiac.lt. 0.001) 00 Tu ai 



»<RITt(6.22) AC,6C 

 22 F0RmAT(1X. (RUNUP COEFFICIENTS FOR ROUGH SL0P6 RUNUP AC»tiF6iSi 



* ( BCa [•F6,a) 

 CO TU H 



35 21 00 1 I«l,S 



IF (TANT.Ct.TANaC n ,OH,TANT,LT,TANA(I*l) ) OU TO J 

 P«(TAiNJA(I),TANT)/nANA(I)-rANA(I*l)) 



ci«c*cn-(CA(i).cA(i*i))»p 



c£ficn(n-(tH(i).cH(;tn)»p 



ao ci=cc(i)-fcc(i).cc(iti))»p 



3 LDNTINUF 



IHTANT.GT.lo.) C1=CA(1) 

 IF(TAUT,GT,10,) C?=CB(i) 

 IF(TANT,GT,10,) C3sCC(l) 

 «5 IFCTAnt.LT, 0.333) C1=Ca(6) 



JFCTANT.LT, 0,333) C2 = CB(b) 

 IF(tANT,LT, 0,533) C3»CCC6) 

 hRlTtfb.7) Cl,C2.C3 

 7 FOKMATdX. (Cl« (.F6,af/,lXt (C<i» I.F6,U»/»1X» IC !■ (J F6, « , //) 

 50 2i KRITE(6.1U) 



lU FOHMAT(/,lXf ( T(6EC) 0/CT2 M(h) H/GT2 R/H F/H KTO HT(M)l. 

 »/) 



00 a Ibi,n 



REAOCS.S) T,H 

 55 5 F0HMAT(2Fl0.b) 



0L0»US/tl,i6*T*T) 

 CALL LtNGTh(OLOiOL) 



173 



