Hhfc VN s - vntest 

 GO TO «»6J 



Hbl VN = Vi-lTtlST 



HhO DELSYN = (C2 * nf-.LX(L) * C^lMPHlCL) + SlNPHI(L+l)) * VN)/DTM 



UELSXN = (CI ♦ nhLX(L) * AN)/CTi\; 



SUMSX = SUMSX + wELSXM 



SUMSY = SUMSY + ilELSYN 



VS = 774*+. * VI,! 



ST = SA(r4) + S£ + SUMSX + SUMS,Y + SPN 



Sw = SUMSX + SUmSY 



IF (lONfIT .E<i* 1) bO TO t85 

 C TF iOMIT NOT EQUAL L, OUTPUT RESULTS AkE PRINTED OUT Ih OFTATL F0« 



c Each tike level. 



WRITE (6.470) DIST(L)»U(L) 

 H70 FORMAT (lXrF5.1feiXrF5.1) 



WRITE (6»4aO) DAVG(L) 'SPiJ.SA(N) »SF»VS»SUMSX»SUN"SYrSW»ST 

 4f.n FORMAT (iUXfPS.lrbXfFH.Zf ax»F4.2»7X»F4.2»8X»F7.1.5XrF6.3»7X»F6.3,6 



lX»F6.3»5XfF5.2) 

 485 SXP{L) = SUMSX 



SYP(L) = SUMSY 



SPP(L) =, SPi>l 



VP(L) = \JH 



BP(L) = RN 

 490 CONTINUE 



IF (lOMir .£Q. 1) G.0 TO 495 



WHITE (b»470) UISl (Li-I) »D(LM) 

 C r.EW VALUES ARE SET EQUAL TO PRcVIOuS VALUES. 

 495 SX(rj) = SUiViSX 



SY(N) = SUmSY 



SWW(N) = SW 



SPRESdxl) = SPN 



STOT(N) = ST 

 50 CONTINUE 



K = 1 

 5C5 CONTINUE 



hRITE (6.410) 



WRITE (6.510) 

 C THE RFSULTS ARE SUMMARIZED FOR ALL TIMF LEVELS. 



510 FORMAT (38X»4iHGUMMAKY OF OPEN COAST STORM SURGE PROBLEM.///) 



WRITE (6.1) (A(T) . i=1.20) 



WHITE (b.2b0) P0.P^;.R.wX.VF.SE.hFF.ifJKC0R.Cl.C2»C3 



WRITE (6.520) 

 5?n FORMAT ( .///.2X.'+HTIME.6X.5hSETi.P»bX.5n5ETUP.4X.9HT0T. WlNn.3X.S<MA 

 1ST. TIDE.3X.l3Hl,iITIAL WATER. 4X .oMPkESSURE. 3X. IIHTOTAI. WATFR./»lx. 

 27H ( HOUKS ) » 3X . 7Hy-C0MP . . 3a . 7!lY-C0MP . . 4X . 5HSETUP . 7X . 5HLFVEL . 9X . 5HLFV 

 3EL»A0X»5HSFTUP»7X.5HLEVEL./.10X.9H(hT. .ILW) .lX.9H(FT. MLW) 9?X.9h(F 

 4T. MLW) .3X.9h(FT. ML.V ) » 4X . 9H ( FT . MLw ) . 7X . 9H ( FT . ML*'. ) . 3X » 9H ( FT . iv.LW 

 5).//) 



AHOUR =0.0 



DO 540 N=1.NM 



AHOUR = AHOUR + DELfCJ) 



rtKlTE (6.530) AHuUI<.SX(N) .SY(N) ,Si-rW(,M) .SA(N) .SE»SPRFS(N) .STOT(N) 

 530 FORr-iAT (2X.F6.2..6X»F5.2.5X.F5.r'.5X.F5.2.7X.F5.2.9X.F5.2.inx.F5.?. 



1BX.F5.2) 

 5A0 CONTINUE 



IF (K .E,5. 2) GO TO 550 



K = K + 1 



GO TO 505 

 550 CONTINUE 



END 



51 



