C iJUASI-TlftO-DIMEiMSlOi. AL wPEN COAST STOKK SURGE PROGRAM 



C 



c NoTATiorj used: 



C XR = REFERENCE HORIZONTAL DISTANCE FOR RADII IN N.M. 



C XW = REFERENCE HORIZONTAL DISTANCE FOR WIND IN N.M. 



C XT r REFERENCE HORIZONTAL DISTANCE FOR THETA IN N.M. 



C IR = TOTAL NO. OF RADII VALUES READ FROM CURVE. 



C llV = TOTAL nO. OF WIND VALUES READ FROM CURVE. 



C IT = TOTAL NO. OF THETA VAi-UES READ FROM CURVE. 



C VR = RADII READ FROM CURVE IN N.M. 



C VW = WIND SPEED READ FROM CURVE irj MPH. 



C VT = THETA READ FROM CURVE IN DEGREES. 



C T = ANGLE MEASURED FROM THE POSTIVE X'AXlS COUNTER CLOCKWISE TO 



C THE WIND VECTORr (THETA) . ' 



C DlST = DISTANCE FROM COAST IN N.M. 



C DT = TOTAL WATER DEPTH IN FEET. 



C SA = SETUP DUE TO ASTRONOMICAL FORCES IN FEET. 



C SF = INITIAL SFTUP IN FEET. 



C SP = SETUP DUE rO PRESSURE IN FEET. 



C = DEPTH BELOW MEAN WAFER LEVEL IN FEET. 



C W = KIND SPEED IN mPH. 



C WWX = W <> W * COS(THETA) IN MPH SO. 



C WWY = W * W * SIN(THETA) IM MPH SQ. 



C NM -^ MAX. NO. OF TIME INCREMENTS. 



C LM = hAX. NO. OF SHELF REACHES. 



C PO = CENTRAL PRESSURE INCHES OF HG. 



C PN = PERIPHERAL PRESSUE IN INCHES OF HG. 



C R = RADIUS OF MAX. WINDS iH N.M. 



C R5 = RADII MEASURES FROM STORM CENTER TO POINT ON TRAVERSE TN NM. 



C HtLT = TIME INCREMENTS IN HOURS. 



C V = Y-COMPONEnT of VOLUME TRANSPORT, 



C PHI = GtOG;-JAPHlCAL LATITUDE IN DEGREES. 



c PI = a.imsg 



C VF = FOpwARU SPEED OF STORM IN KNOTS. 



C WKCOP = COi<«cCTlOM Factor for wIND STRESS COEFFIClEi.T. 



CCl,C2rC3 = DiMENSlON CORRECTION FACTORS. 



c wx = MAxiNiUiM Gradient wind spefd (mph). 



C aK = VA'J UORIJS WIND STRESS FACTOR. 

 C oFF = LJOTTUM FRICTION FACTOR. 

 C Df lSXN = INCREMENTAL X-COMP SETUP IN FEET. 

 C DrLSYN - INCREMENTAL Y-COMp SETUP IN FEET. 



c sx = IoTal x-comp setup at Shore irj feet. 



C SY - TOTAL Y-COMP SETUP AT SHORE IN FEET. 



c spp - pREssuRt" Setup at previous time level. 

 c spN = pressure Setup at new time level. 



UIMEtjbiOrl SP(bu) »hv.'X(bO) rWWYCbU) » WK ( 50 ) » D ( 50 ) .DIST(bO) rXR(lOn) ,Xrt( 

 1100)fXT(j.UO)»RS(150 0)'W(i5nu)»VH(10i))»VW(10U)fVT(10 0)»A(2n) »SA(t,'^) 

 2,uFLT(i:0u) rPHKSi;) » r(1500) »UAVG(L>0) »DtLX(50) » SX ( 1 00 ) » SY ( 100 ) .SWI^. (1 

 30 0) rSPKE-.dUu) » SI OKI 00) »SINPHl(bO) rSXPdOO) »SYP(10U) rSPP(lOn) .VP( 

 HlOO) fbP(lUO) 

 C READ STORM IDENTIFICATION TITLE. 

 KEAu (L)»l) (a( I) »I = 1.2u) 

 1 hORiVlAT (^OA^) 



READ (5»10) NlM.I.Mr IDaTa» lOf^ITr IDMITD 

 10 FORMAT (jIb) 



READ (b»l5) (uLlT(I) r 1=1»NM) 

 REAu (bub) ( OlST (L) » L=l »LM) 

 fvEAD (bub) (U(L) »L=1»LM) 

 KEAU (bflb) (PHI(L) rL=l.LM) 

 lb FOP,viAT (hFIO.K) 



46 



