GO TO 95 

 C53 VTd) = 0.2832 



T(IK) = VT(I) 



KII = 

 c;5 II = XT(I) 



IKN = XT(I+1) + 1 



IIT = IKN - 1 



IF (II .EQ. Ill) GO TO HO 



I^ = IK + X 



RATIO = (VTd + l) - \/T(l) )/(XT(I + l) - XT(I)> 

 loo T(IK) = T(IK-l) + KATIO 



IK = IK + i 



iF (IK .&E. IKN) GO TO ItiO 



GO TO 100 

 llO IK = IK + 1 

 1?0 COMTIiiUE 



HOUR =0.0 

 C IN THE F0LLO.VING LOOP THE PERTINENT INTERPOLATED VALUES ARE llSEn To 

 C GENERATE THE BASIC lUPUT DATA FOR THE STORM SURGE PROBLEM. 



DO 210 U=1»NM 

 C THE STORMS POSITION RELATIVE TO THE SHuRELlNE IS DETERMINED. 



DISTC = HOUf< * VF 



DO 170 L=1»LM 



DI = UIST(L) + DiSTC + 1.0 



LU = DI 

 C ^fTUP due To THE ATi^IOSPHEkIC PRESSURE DIFFERENTIAL IS EVALUATFQ. 



5P(L) = 1.14 * (PN - PO) * (1.0 - ExP(-R/RS(Ln)) ) 



IF (DlST(Li -1.0) 130»14u»l*t5 

 C THE WliMD SPEED NEAR SHORE DUE TO THE STORMS INTERFERENCE WITH THE 

 C LAND NiASS. 



i?o WIND = w(ld) * o.ay 



GO TO loo 

 lt+0 WIND = Vj(LI)) * O.QHS 



GO TO 150 

 l45 InIND = W(LD) 

 150 WSO = WIND ♦ ^INO 



WWX(L) = WSQ * COS(T(LD)) 

 rtWY(L) = WSfcJ * S1N(T(LD)) 

 IF (W(LD) .LE. 16.0) GO TO 160 

 C VAN bORNS WIND STRFSS COEFFICIENT IS DFTERMIMFD. 



WK(L) = O.OOOUOll + 0.0000025 * (1.0 - 16. O/W ( LD) ) **2 

 GO TO 170 

 IfcO WK(L) = O.QOOOOll 

 170 CONTINUE 



WRITE (39) DELT(N) 

 DO 200 LL=1»LMM 



WRITE (39) WWX(LL+1) rWiNX(LL) »WWY(LL + l) »WWY(LL) »SA(N) »SP(LI +1) . SP ( L 

 iL)fWK(LL) 

 2(10 CONTINUE 



HOUR = HOUR + DELT(im) 

 210 CONTll'iUE 

 220 CONTINUE 



WRITE (o»230) 

 C THE BASIC INFORMATION OF THE STORM PROBLEM IS WRITTEN OUT. 



230 FORMAT ( Ihl » 30X » 52H&UASI-TW0-DIMENSI0NAL OPEN COAST STORM SURGE PR 

 lOGRAM///) 

 WRITE (6,1) (A(I) »l=lr20) 

 ,; WRITE (6r250) 



.2^0 FORMAT (S'+XflOHlNPUT DATA r / » 54X . lOH " ,///) 



~" WRITE (6,2bO) P0.PN,RrWXrVF»SE»hFF.WKC0R»Cl»C2»C3 

 2fc0 FORMAT ( llX » 19HCEKTRAL PRESSURE = rF5.2»8H IN. HG. »22X r 22HPERIPHFR 



48 



