lAL PRLSSURt = »Fb.2»dH IIm. HG. // . 5X . 25HRADIUS TO MAXIMUM WlNH = .F 

 2h.1,5H N.M.f2'+X.^'+HMAXIMUM oRAiJIENT WIND = »F5.1r7H MI/HR . » //. lOX » 

 320HTRANSuATION SPEED = »F4.1r6H KMOTSr 32X » 15HINITI AL RISE = »F<*.?» 

 '^SH FEETf//»5X»25HB0rT0M FRICTIOim FACTOR = » F6. 4 r igX » 32HWlMn STRFSS 

 5 CORRECTION FACTOR = Fi+ .2 » // » 17X f 5HC1 = » F6. 1 . 21X . 5HC2 = ,F6.1i21X 

 6,5HC3 = »F7. !•///) 

 URITE (6»270) 

 270 FORf-iAT (40X » '+lHSf:AbE() PROFILE OVER THE CONTINENTAL SHELF* //. U6X . 13 

 iHDI STANCE FRO^^f HX r 5HDEPTHr / » 47X r 12HSH0RE (N.M.) »8X»6H(FEET) ) 

 UO 280 L=i»LW 

 WRITE (6.290) 0IST(L)»U(L) 

 2r..O CONTINUE 

 290 FORMAT ( 49X » F5,2 r 9X . F5 , 1 ) 



IF (IDaTA .NE. 1) GO TO 340 

 DO 330 N=1.NM 

 C STORM DATA IS READ FROM CARDS. THIS OPTION IS USED FOR SUPPLYINfi RAjJ 

 C DATA ASSOCIATED WITH ACTUAL STORES. 

 READ (5»3QU) DELT(N) 

 300 FORMAT (6XFb.2) 



rtRITE (39) DELT(N) 

 DO 320 LL=1»LMM 



READ (5»310) WWX(LL+1) »WWX(LL) rV.WYCLL+D »WWY(LL) rSA(N) »SP(LL + 1) . SP 

 1(LL) .l-.K(LL) 



WRITE (39) WwX(LL+i) »WWX(LL) rV.WY (LL+1) .WWY(LL) .SA(N) »SP(LL + 1) »SP(L 

 ID fKvK(LL) 

 310 FORMAT ('+F10.0r6X.3F6.2f5XrF10.9) 

 320 CONTINUE 

 330 CONTINUE 

 340 CONTINUE 

 REWIND 39 



rii = 0.0 



IF (lOMiTD .EQ. 1) GO TO 40b 

 C IF lOMlTD NOT EQUAL It INPUT COMPUTATIONAL DATA PRINTED OUT. 

 DO 40 NzlrNM 

 WRITE (6.350) 

 3h0 FORMAT (///. IX. i i9h* ********************************* ♦******♦«**** 



I****************!):**:*********************************************** 



2******) 

 READ (39) DElT(m) 

 TI = Til 



Til =TI + I-)ELT(n) 

 WRITE (6,360) Tl.TII 

 3f,0 FORMAT C IX » /IXIIHTIME (T) = .F6 .2. ftX » 16HTIME (T+DELT) = »F6.2»//) 



WRITE (6.370) 

 370 FORMAT ( lOX . 8HWWX ( I+l ) .7X,6HWWX(I) . 7X . 8HWWY ( I+l ) .fiX.6HWWY(I) .5X.11 

 IhASTRO, TIDE.4X.7HSP(I+1) ,8X,5HSP(I) .bXllHWIND STRESS . /.67X. 6H(FFE 

 2T) .9X.4H(FT) .10X.4h(FT) .oX . 9HPARAMETER.// ) 

 DO 390 LL=1»LMM 



READ (39) WWX(LL+1) . WWX (LD » WWY ( LL+1 ) » WWY (LL) . SA (N) . SP(LL+1) .SP(LL 

 l).WK(LL) 



WRITE (6.380) WKX(LL+1) .WWX(LL) .WWY(LL+1) »WWY(LL) .SA(N) .5P(Ll +1) .S 

 IP(LL) rWK(LL) 

 3pn FORMAT (10X»F7.1,8X.F7.1»7X.F7.1.8X.F7.1»7X.F4.2,10X.F4.2»10X»F4.2 



1.5X.F10.3) 

 390 CONTINUE 

 400 CONTINUE 

 405 CONTINUE 

 REWIND 39 

 WRITE (6.410) 



IF (lOMiT ,EQ. 1) GO TO 422 

 4rO FORMAT (iHl) 



49 



