WRITE IbfUZO) 

 *f20 FORMAT (51X» llHOUTPUT DATA* / » 5t*v » llh — »///) 



WRITE (6»260) POf PNf R» WXr VF»SE»BFF» WKC0R»C1 »C2»C3 

 f22 CONTINUE 



DO 125 L=1»LMM 

 C INCREMENTAL X-VALUES AND AVG. DEPTHS ARE COMPUTED. 



DELX(L) = OIST(L) - nIST(L+l) 



DAVG(L) =(D(L) + D(L+l))/2.0 

 'i2S CONTINUE 



DO 1+30 L=1»LM 



PHI(L) = (PHI(L) * PI)/180.0 

 C THE SINE OF THE LATITUDE IS EVALUATED. 



SINPHI(L) = SlN(PHI(L) ) 

 '♦30 CONTINUE 



TII = 0.0 



DO bOO N=1»NM 



IF (lOMIT .EQ. 1) GO TO 435 



WRITE (6.<+iO) 

 135 CONTINUE 



READ (39) DELT(n) 



SUMSX =0.0 



SUMSY =0.0 



IF (lOMiT .EQ. 1) GO TO 115 



TI = TII 



TII = TI + OELT(n) 



WRITE (6.360) TlrTlI 



WRITE (6.110) 

 110 FORMAT (1X.5HDIST. .3X.5HDEPTH.5x.6Hi) AVG. . 3X . 9HPRFS.RISE. ?X . 1 OHAST 

 lKO.TIDE»3Xf7HlNITlAL.5X.6HY-FLUX»5X.7HOriSHORE.1X.10HALONGSHORE.2)5» 

 210HTOTAL WIND' 3X »5HT0 TaL. /. lA UK (NM) . 3X ' 8H ( FT. MLW ) . 2X . 8H(FT. N'LW ) .1 

 3X.1H(FT) ,7X»1H(FT) .6X . lOtiLEVEL (f-T ) . IX . llH ( FT*FT/SFC ) .IX.lnHSFTUP ( 

 IFT) .2X.10HSETUP (FT) .2x. IOHSETUp (FT) .2X. lOHSURGE (FT).//) 

 fk5 CONTINUE 



DO 190 L=1.LMM 

 C ^TORM SURGE COMPUTATIONS BEGIN. 



READ (39) WWX(L+1) .WWX(L) .WWY(L + 1) .WWY(L) .SA(r^) »SP(L+1) .5P{L) .WK(L 

 1) 



AN = WK(L) * (WWX(L) + WwX(L+l)) * WKCOR 



BN = WK(L) * (WWY(L) + WWY(L+1)) * 0.5 * aKCOR 



SPN = (SP(L) + SP(L+l))/2.0 



IF (N .NE. 1) GO TO 150 

 C PR0BLEi»1 IS INIALIZFO for FIRST TIMF LEV/EL. 



SXP(L) = 0«0 



SYP(L) = 0.0 



SPP(L) = SPN 



VP(L) = 0.0 



BP(L) = BN 



SAP = SA(N) 

 150 UTS = DA\/G(L) + SE + SXP(L) + SyP(L) 



DTN = DTS + SA(n) + SPN 



DTH = DTS + ((SA(N) + SAP)/2.U) + ((SPP(L) + SPN)/2.0) 



UA = C3/(DrH) 



UEN = DA *DA *BFF * ABS(VP(L)) *OFLT(H) 



VN = ((bij + BP(L))* DELT(N) * O.b + VP(L))/{1.0 + DEN) 



BY = ABS(BN) 



VivlTEST = SQKT(BY/( BFF*DA*DA)) 



VNN = ABS(VN) 



c ft Check is iviade to insure that the alongshore dose not exceed the 

 c Limiting value. 



IF (VNTEST .gT. VNN) 60 TO 160 

 IF (VN) 456.157,457 



50 



