270 HB "(K.*».<i)»<SHG2**.a)»(UtVG)»»,2 



Co«(G*HB/GBP)**,S 

 57 CUNTINUE 



C 



£ THIS PORTION or PROGRAM MODIFIES WaVE GAGE ANGLES TO BREAKING WAVE ANGLES 

 *T5 C AND COMPUTES LONGSHORE ENEHQV FLUX FAClOH$ 



DU 91 Iol,ND2 

 IF(I.GE.NSALFR) GO TO 996 

 SINTnfi(I)»5lN(THETAfI)}*C8/C(IJ 

 THETAH»A8IN(SINTHB(I)) 

 280 XKKS«((l,.SlN(THt TA(I))*»2.)/(1.-SINTHB(I)»»2,))*»,5 



XKSS»CG(I)/CB 



FMUUSUCI)«FMOOSO(I)»XKHS*XKSS 

 IFCTHETA(I).LF.O.O) Go TU 87 



PLH(JbrPLPOs + GAHMA*sIN(2.*THETAB )*CH*FMUDSO(I) 

 385 GO TU o fl 



B7 PLNE0=PLNEG+GAMMA»siN(2,»THf TAB )*CB*FMUD5QC I ) 

 88 CUNTINUB 



PL«GAMMA»CB*3IN(8.»THETAB )»FMODSQ{I) 

 PLNET«PLNET*PL 

 290 IFCJ.GE.NYFH) GO TO 998 



9t CONTINUE 

 996 CUNTINUE 



HSUDUaSODO/SUMEN 

 H5HFHU«SHFHE0/SUMEN 

 295 HSLFHUsSLFHEU/SUMEN 



RT0T«R80DD+RSHFRQ 

 R»1./(1..RTUT) 

 PLP08«PLP0S»R 

 PLNEG=PLNEG»R 

 JOO PLNET3PLNET*R 



wKITfc(6,201 JN8ALFH 

 20 1 FOKMATC//t[ NSALFR* (i2«X«Iq) 



w«ITt(6t200)DEPTH 

 200 FOHMAT(( DEPTH OF WATER AT GAUGE SITE* (»F1C , 1 ) 

 305 "R1TE(6<100) AvGI «AvG2 



100 FOKMAT(t AVGl»I,Fll,J.9X, IAVG2* t.FH.S) 

 "RlTECbi l?0)SUMli8UM2 



170 FUKMATfl 8UM1« [,Fll,Ji9X, (8UM2* [,Fj|,J) 

 «kITE(6.1 1 |)W8UMltWSUM2 

 JIO 111 FUHM»T(( WSUMH (,F10,J,9X» 1W8UM2« t.FlO.J) 



wRITE(6.112)RATI01,RATJ02 

 112 FUHMAT(( HATI01« 1»F9.J,9X« (RAT 102» [ t F°. J) 

 wHHt(6tI9)SUMEN 

 J9 FONMAT(( 8UMEN« |.2XiFtl.8) 

 SIS «H17fc(6.10tf)HB 



101 F0KMAT([ BREAKING WAVE HEIGHT HB« |, 6X . F 1 ,i ) 

 "WITfc(6il08)CB 



108 FUKMaTCI BREAKING WAVE CELEH1TY CB> [i«XiF 10,2) 

 WK1TE(6,106) RS0DD,R8HFRUfR8LFHQ 



J80 106 F0HMAT(f H80UO" I.Fll,a t 8X» IHSHFHO* (, Fl ,«» 8x i (NSLFRQa [fF| 0,0) 



wWITfc(6tl0J)PLP0SiPLNEG 

 10J FUHMAT(t PLP08»(»F11,«,8X. tPLNEG* t,Fl 1 .« J 

 WH1T6(6.109)PLNET 



109 FURMATC ( PLNET»(iFll,aj 

 J"? 60 TU no 



1 CONTINUE 

 8TUP 

 ENO 



Figure 2. Listing of main program. — Continued 



