10 REM GREAT LAKES STORM SURGE PLANNING PROGRAM 20 REM VERSION 1.4 - 3/3/87 30 REM 40 REM DAVID J. SCHWAB 50 REM NOAA - GREAT LAKES ENVIRONMENTAL RESEARCH LABORATORY 60 REM ANN ARBOR, MICHIGAN 70 REM 80 CLS 90 PRINT 100 PRINT " GREAT LAKES STORM SURGE PLANNING PROGRAM" 110 PRINT " VERSION 1.4 - 3/3/87" 120 PRINT 130 PRINT "NOAA - GREAT LAKES ENVIRONMENTAL RESEARCH LABORATORY" 140 PRINT " ANN ARBOR, MICHIGAN" 150 PRINT 160 PRINT "Enter file name for listing ('LPT1:' for printer)" 170 INPUT " or just hit RETURN for screen output only: ",F$ 180 IF F$="" THEN F$="NUL" 190 OPEN F$ FOR OUTPUT AS #1 200 REM 210 REM NUMBER OF GRID POINTS FOR EACH AREA = 15 220 REM 230 NR = 15: DIM TX(NR,12), TY(NR,12), SMAX(NR), SMIN(NR), IH(NR), NA$(11) 240 REM 250 CLS 260 PRINT 270 PRINT 280 PRINT "Area Selections:" 290 PRINT 300 PRINT "[1] Lake Ontario" 310 PRINT "[2] Central and Eastern Lake Erie" 320 PRINT "[3] Western Lake Erie" 330 PRINT "[4] Lake St. Clair" 340 PRINT "[5] Lake Huron (except Saginaw Bay)" 350 PRINT "[6] Saginaw Bay" 360 PRINT "[7] Eastern Shore of Lake Michigan" 370 PRINT "[8] Western Shore of Lake Michigan" 380 PRINT "[9] Green Bay" 390 PRINT "[10] Lake Superior" 400 PRINT "[0] End Program" 410 PRINT 420 INPUT "Enter Area Selection: ",NA 430 PRINT 440 IF (NA<0) OR (NA>10) THEN CLS: GOTO 250 450 REM 460 REM SET POINTER TO DATA AREA FOR THIS SELECTION 470 REM 480 IF NA = 1 THEN RESTORE 3750 490 IF NA = 2 THEN RESTORE 4040 500 IF NA = 3 THEN RESTORE 1440 510 IF NA = 4 THEN RESTORE 1770 520 IF NA = 5 THEN RESTORE 4330 530 IF NA = 6 THEN RESTORE 2100 540 IF NA = 7 THEN RESTORE 2760 550 IF NA = 8 THEN RESTORE 3090 560 IF NA = 9 THEN RESTORE 2430 570 IF NA = 10 THEN RESTORE 3420 580 IF NA = 0 THEN SYSTEM 590 NA$(1) = "Lake Ontario" 600 NA$(2) = "Central and Eastern Lake Erie" 610 NA$(3) = "Western Lake Erie" 620 NA$(4) = "Lake St. Clair" 630 NA$(5) = "Lake Huron (except Saginaw Bay)" 640 NA$(6) = "Saginaw Bay" 650 NA$(7) = "Eastern Shore of Lake Michigan" 660 NA$(8) = "Western Shore of Lake Michigan" 670 NA$(9) = "Green Bay" 680 NA$(10) = "Lake Superior" 690 FOR J=1 TO 12:FOR I=1 TO NR: READ TX(I,J):NEXT:NEXT 700 FOR J=1 TO 12:FOR I=1 TO NR: READ TY(I,J):NEXT:NEXT 710 READ X: IF X <> -999 THEN PRINT "DATA READ ERROR X= ";X: STOP 720 CLS 730 REM 740 CLS 750 PRINT 760 PRINT "Storm Surge Planning Program for ";NA$(NA) 770 PRINT#1,"Storm Surge Planning Program for ";NA$(NA) 780 PRINT 790 PRINT#1, 800 INPUT " Enter mean lake level in feet (-999 to pick another area): ",ST 810 IF ST=-999 THEN CLS:GOTO 250 820 PRINT 830 INPUT " Enter wind speed in miles per hour: ",WS 840 PRINT 850 INPUT " Enter direction wind is coming from in degrees (0 = North): ",WD 860 CLS 870 PRINT "Maximum and minimum water level elevation for ";NA$(NA) 880 PRINT#1,"Maximum and minimum water level elevation for ";NA$(NA) 890 PRINT " with a mean lake level of ";ST;" feet" 900 PRINT#1," with a mean lake level of ";ST;" feet" 910 PRINT " and wind speed of ";WS;" mph from ";WD;" degrees" 920 PRINT#1," and wind speed of ";WS;" mph from ";WD;" degrees" 930 PRINT 940 PRINT#1, 950 PRINT "Point Number Maximum Elevation (Feet) Minimum Elevation (Feet)" 960 PRINT#1,"Point Number Maximum Elevation (Feet) Minimum Elevation (Feet)" 970 REM 980 REM CONVERT WIND SPEED TO METERS PER SECOND 990 REM 1000 WS = .447 * WS 1010 REM 1020 REM CONVERT WIND TO EASTWARD AND NORTHWARD STRESS COMPONENTS 1030 REM 1040 SX = -10000! * .00125 * .0032 * SIN(WD*3.14159/180!) * WS * WS 1050 SY = -10000! * .00125 * .0032 * COS(WD*3.14159/180!) * WS * WS 1060 REM 1070 REM CALCULATE STORM SURGE HEIGHT FOR EACH REACH ,ADD TO LAKE LEVEL 1080 REM AND FIND MAXIMUM AND MINIMUM 1090 REM 1100 FOR I=1 TO NR: SMAX(I)=ST: SMIN(I)=ST: IH(I)=0: NEXT 1110 FOR J=1 TO 12 1120 FOR I = 1 TO NR 1130 SS = SX * TX(I,J) + SY * TY(I,J) 1140 REM 1150 REM CONVERT TO FEET AND ADD TO MEAN LAKE LEVEL 1160 REM 1170 SS = .00328 * SS + ST 1180 IF SS > SMAX(I) THEN SMAX(I) = SS: IH(I) = J 1190 IF SS < SMIN(I) THEN SMIN(I) = SS 1200 NEXT: NEXT 1210 FOR I=1 TO NR 1220 REM 1230 PRINT TAB(5);I;TAB(22); 1240 PRINT#1,TAB(5);I;TAB(22); 1250 PRINT USING "####.#";SMAX(I); 1260 PRINT#1,USING "####.#";SMAX(I); 1270 PRINT TAB(48); 1280 PRINT#1,TAB(48); 1290 PRINT USING "####.#";SMIN(I); 1300 PRINT#1,USING "####.#";SMIN(I); 1310 REM 1320 REM USE THESE STATEMENTS TO PRINT HOUR THAT MAX OCCURS 1330 REM 1340 REM PRINT TAB(60);IH(I) 1350 REM PRINT#1,TAB(60);IH(I) 1360 NEXT 1370 PRINT 1380 PRINT#1, 1390 PRINT 1400 PRINT#1, 1410 PRINT "Hit any key to continue ..."; 1420 A$=INKEY$:IF A$="" GOTO 1420 1430 GOTO 730 1440 REM 1450 REM DATA FOR WESTERN LAKE ERIE 1460 REM 1470 REM SURGE IN MM AT HOURS 1 TO 12 FOR 1 DYNE/CM**2 EASTWARD STRESS 1480 REM 1490 DATA -12,-23,-32,-43,-53,-51,-49,-48,-26,-14,-14,-6,-1,-6,-13 1500 DATA -64,-71,-77,-81,-92,-94,-96,-97,-71,-59,-54,-24,-12,-3,-8 1510 DATA -106,-112,-115,-112,-122,-121,-120,-116,-98,-91,-86,-73,-74,-40,-26 1520 DATA -134,-141,-147,-153,-171,-173,-172,-169,-149,-139,-119,-109,-110,-81,-72 1530 DATA -177,-181,-185,-193,-212,-212,-210,-207,-179,-167,-146,-130,-123,-108,-92 1540 DATA -190,-200,-206,-211,-216,-217,-219,-219,-198,-195,-187,-168,-158,-130,-106 1550 DATA -195,-205,-216,-224,-228,-233,-238,-240,-214,-205,-195,-184,-182,-145,-119 1560 DATA -186,-194,-207,-219,-229,-231,-232,-228,-208,-197,-175,-160,-154,-138,-119 1570 DATA -159,-164,-174,-185,-197,-200,-201,-198,-181,-174,-163,-157,-154,-119,-96 1580 DATA -127,-140,-148,-157,-165,-169,-172,-172,-152,-144,-134,-127,-124,-98,-80 1590 DATA -85,-99,-108,-114,-126,-129,-133,-134,-112,-105,-93,-79,-71,-69,-75 1600 DATA -54,-59,-63,-66,-79,-81,-81,-79,-66,-66,-69,-68,-64,-56,-46 1610 REM 1620 REM SURGE IN MM AT HOURS 1 TO 12 FOR 1 DYNE/CM**2 NORTHWARD STRESS 1630 REM 1640 DATA 48,37,27,20,12,-6,-24,-42,-29,-33,-37,-46,-52,-19,-30 1650 DATA 47,33,22,18,15,0,-11,-28,-17,-20,-28,-51,-69,-44,-55 1660 DATA 22,19,21,27,27,21,15,9,2,-12,-16,-9,-9,-33,-36 1670 DATA 27,19,11,4,-12,-22,-31,-41,-28,-34,-51,-62,-71,-48,-49 1680 DATA -3,-22,-33,-33,-38,-47,-54,-68,-59,-65,-70,-71,-77,-49,-53 1690 DATA -18,-24,-26,-26,-42,-54,-67,-83,-58,-58,-53,-47,-53,-43,-46 1700 DATA 0,-4,-6,-10,-21,-27,-31,-40,-46,-66,-89,-94,-106,-69,-70 1710 DATA -19,-28,-33,-41,-43,-51,-57,-69,-62,-66,-76,-88,-106,-67,-73 1720 DATA 0,-13,-24,-37,-48,-61,-76,-94,-69,-63,-53,-38,-31,-48,-52 1730 DATA 13,8,3,3,4,-4,-11,-24,-28,-44,-78,-91,-98,-56,-51 1740 DATA 11,6,0,-5,-11,-20,-28,-40,-33,-39,-54,-65,-79,-70,-53 1750 DATA 24,12,2,-9,-23,-33,-43,-56,-40,-36,-18,-7,-14,-18,-18 1760 DATA -999 1770 REM 1780 REM DATA FOR LAKE ST. CLAIR 1790 REM 1800 REM SURGE IN MM AT HOURS 1 TO 12 FOR 1 DYNE/CM**2 EASTWARD STRESS 1810 REM 1820 DATA -59,-50,-42,-46,-42,-31,-27,-29,-10,8,25,48,26,17,63 1830 DATA -48,-39,-42,-50,-47,-38,-39,-50,-33,-1,17,29,1,7,5 1840 DATA -16,-12,-8,-11,-9,-4,-18,-42,-34,-42,-39,-32,-29,36,-5 1850 DATA -43,-39,-36,-43,-50,-37,-28,-27,-7,13,35,52,34,13,26 1860 DATA -67,-48,-37,-37,-35,-24,-14,-20,-2,23,33,46,23,7,52 1870 DATA -23,-12,-13,-17,-17,-9,-22,-25,-17,-21,-11,-2,2,2,11 1880 DATA -45,-36,-32,-36,-38,-28,-28,-42,-25,-6,5,17,1,15,26 1890 DATA -52,-41,-39,-42,-39,-31,-28,-42,-22,1,15,29,9,15,13 1900 DATA -29,-22,-19,-24,-21,-8,-18,-27,-18,-11,-3,6,6,21,11 1910 DATA -38,-32,-31,-34,-35,-24,-19,-25,-8,9,21,33,17,9,33 1920 DATA -46,-38,-35,-36,-36,-28,-22,-28,-14,4,19,33,19,-2,27 1930 DATA -32,-24,-21,-26,-24,-14,-20,-36,-23,-17,-8,1,-5,8,17 1940 REM 1950 REM SURGE IN MM AT HOURS 1 TO 12 FOR 1 DYNE/CM**2 NORTHWARD STRESS 1960 REM 1970 DATA -42,-25,-3,10,27,34,29,23,37,50,44,40,17,36,34 1980 DATA -17,-7,-9,-11,10,21,52,88,97,117,120,120,100,52,31 1990 DATA -32,-23,1,19,40,45,75,87,93,99,95,95,80,77,69 2000 DATA -21,-14,-3,4,9,12,27,45,55,78,75,73,46,11,-20 2010 DATA -21,-11,-3,-1,18,28,23,26,25,20,12,5,10,43,54 2020 DATA -18,-5,3,9,24,26,25,30,44,61,57,54,33,32,13 2030 DATA -39,-25,-9,5,20,23,50,71,78,88,86,82,74,65,45 2040 DATA -16,-12,-2,8,22,28,46,72,81,95,90,86,71,59,36 2050 DATA -27,-11,-2,5,20,28,29,46,56,69,64,59,45,41,21 2060 DATA -24,-14,-2,6,21,25,28,37,42,46,41,36,30,51,41 2070 DATA -25,-15,-2,7,15,20,26,41,51,68,64,61,42,32,11 2080 DATA -24,-13,-2,7,22,30,43,59,65,72,68,63,54,64,50 2090 DATA -999 2100 REM 2110 REM DATA FOR SAGINAW BAY 2120 REM 2130 REM SURGE IN MM AT HOURS 1 TO 12 FOR 1 DYNE/CM**2 EASTWARD STRESS 2140 REM 2150 DATA 5,14,23,51,46,28,5,-32,-51,-56,-54,-30,-23,-29,-26 2160 DATA 0,-4,-5,35,6,-2,-28,-57,-66,-68,-74,-42,-33,-36,-30 2170 DATA 9,7,9,-20,-37,-52,-80,-85,-84,-81,-66,-62,-61,-19,-13 2180 DATA 0,-1,8,3,-16,-54,-77,-118,-137,-146,-146,-92,-69,-42,-35 2190 DATA -19,-30,-37,-44,-61,-88,-108,-118,-120,-111,-95,-79,-81,-52,-44 2200 DATA -16,-18,-19,-51,-65,-76,-103,-109,-119,-121,-126,-95,-87,-51,-46 2210 DATA -9,-10,-22,-13,-30,-56,-84,-122,-135,-141,-137,-88,-73,-33,-27 2220 DATA -1,1,-7,-31,-55,-79,-105,-102,-95,-91,-66,-45,-46,-26,-21 2230 DATA 1,-1,-7,-7,-9,-27,-51,-65,-78,-83,-90,-56,-49,-23,-19 2240 DATA -6,-6,-4,16,9,-5,-19,-45,-59,-63,-68,-34,-32,-26,-22 2250 DATA 7,7,11,19,12,-13,-47,-48,-48,-44,-31,-12,-16,-18,-13 2260 DATA 15,21,23,41,26,9,-7,-34,-48,-61,-69,-31,-24,-6,-4 2270 REM 2280 REM SURGE IN MM AT HOURS 1 TO 12 FOR 1 DYNE/CM**2 NORTHWARD STRESS 2290 REM 2300 DATA -11,-19,-23,-17,-29,-41,-67,-46,-20,9,45,29,20,13,9 2310 DATA -16,-16,-8,-6,-44,-65,-92,-68,-48,-26,0,-13,-18,-7,-10 2320 DATA -19,-22,-39,-65,-74,-76,-86,-83,-75,-66,-61,-55,-53,-15,-17 2330 DATA -31,-39,-57,-79,-111,-146,-163,-146,-116,-86,-50,-57,-53,-32,-26 2340 DATA -30,-34,-43,-91,-124,-152,-175,-165,-145,-129,-93,-95,-80,-26,-22 2350 DATA -30,-43,-71,-128,-153,-159,-174,-160,-133,-117,-92,-93,-77,-21,-20 2360 DATA -34,-45,-69,-101,-129,-161,-177,-163,-134,-110,-63,-73,-62,-35,-32 2370 DATA -30,-38,-53,-94,-108,-123,-142,-128,-107,-93,-70,-67,-52,-11,-10 2380 DATA -27,-35,-47,-76,-99,-109,-121,-102,-76,-55,-22,-32,-30,-10,-7 2390 DATA -29,-35,-42,-48,-58,-77,-103,-84,-62,-42,-20,-19,-16,-17,-14 2400 DATA -27,-37,-42,-43,-57,-63,-73,-58,-40,-26,-11,-19,-21,-13,-13 2410 DATA -14,-22,-24,-43,-53,-69,-92,-74,-52,-32,-10,-19,-21,0,1 2420 DATA -999 2430 REM 2440 REM DATA FOR GREEN BAY 2450 REM 2460 REM SURGE IN MM AT HOURS 1 TO 12 FOR 1 DYNE/CM**2 EASTWARD STRESS 2470 REM 2480 DATA -7,7,-2,1,-30,-29,-12,1,-3,-13,-21,-17,-4,37,11 2490 DATA -16,2,-18,-16,-61,-74,-29,-17,-20,-24,-42,-41,-8,41,11 2500 DATA -18,-27,-49,-46,-81,-83,-65,-47,-43,-29,-39,-12,-27,-9,-10 2510 DATA -27,-52,-70,-88,-108,-104,-83,-69,-55,-36,-36,-30,-29,-9,-5 2520 DATA -32,-57,-79,-114,-148,-134,-90,-68,-55,-39,-32,-35,-13,39,15 2530 DATA -24,-49,-85,-108,-146,-139,-94,-64,-55,-25,-26,-14,-3,29,17 2540 DATA -22,-39,-68,-78,-112,-111,-78,-50,-48,-22,-27,-20,-15,7,-2 2550 DATA -31,-23,-34,-43,-73,-66,-41,-28,-30,-33,-36,-37,-26,-2,-12 2560 DATA -25,-19,-11,-14,-27,-22,-17,-21,-23,-31,-34,-47,-29,-1,-13 2570 DATA -15,-11,-9,0,-14,-12,-20,-19,-18,-21,-29,-19,-20,-2,-3 2580 DATA -10,0,-11,-12,-45,-52,-24,-12,-15,-16,-34,-18,-13,23,8 2590 DATA -9,-8,-25,-34,-76,-73,-37,-19,-15,-19,-32,-21,-10,20,8 2600 REM 2610 REM SURGE IN MM AT HOURS 1 TO 12 FOR 1 DYNE/CM**2 NORTHWARD STRESS 2620 REM 2630 DATA -2,-4,2,-9,-60,-4,0,-2,-4,0,13,46,16,41,20 2640 DATA 7,-16,-22,-57,-79,-30,-15,-11,-3,12,35,39,46,89,41 2650 DATA 12,-31,-48,-80,-110,-62,-39,-17,-5,19,43,54,48,85,44 2660 DATA 1,-32,-48,-79,-134,-84,-38,-19,-17,10,42,58,45,32,29 2670 DATA 4,-34,-56,-66,-100,-60,-45,-18,-14,12,27,42,41,74,35 2680 DATA 1,-28,-33,-49,-81,-40,-18,-11,-6,10,35,60,58,86,52 2690 DATA 8,-14,-12,-33,-69,-17,2,3,9,20,47,56,44,86,43 2700 DATA 12,7,-3,-18,-42,-9,10,19,25,19,28,38,28,37,25 2710 DATA 4,7,12,0,-47,-3,22,14,9,10,13,43,14,46,14 2720 DATA -4,-5,-5,-8,-20,5,-3,-5,-1,-2,5,16,14,53,19 2730 DATA -12,-26,-23,-38,-54,-25,-20,-26,-21,-11,10,17,6,39,7 2740 DATA -12,-41,-51,-80,-119,-70,-49,-41,-30,-9,14,30,15,19,9 2750 DATA -999 2760 REM 2770 REM DATA FOR EASTERN SHORE OF LAKE MICHIGAN 2780 REM 2790 REM SURGE IN MM AT HOURS 1 TO 12 FOR 1 DYNE/CM**2 EASTWARD STRESS 2800 REM 2810 DATA 6, 20, 18, 19, 17, 13, 8, 9, 6, 1, 11, -9, 1, 12, 17 2820 DATA -4, 5, 8, 8, 8, 4, 3, 7, 10, 1, 12, 17, 18, 19, 27 2830 DATA 11, 20, 8, 7, 14, 14, 4, 5, 4, 2, 12, 24, 22, 23, 33 2840 DATA -2, 13, 13, 8, 6, 6, -1, 5, 14, 10, 20, 5, 14, 27, 34 2850 DATA 3, 0, 10, 17, 5, 11, 8, 10, 15, 7, 19, 20, 21, 19, 22 2860 DATA 8, 21, 8, 15, 15, 11, 7, 9, 11, 6, 14, 17, 24, 19, 25 2870 DATA -2, 17, 10, 14, 13, 3, 2, 4, 6, 1, 11, 0, 1, 12, 22 2880 DATA 43, 36, 24, 29, 22, 14, 8, 6, 10, -3, 7, -5, -1, 10, 22 2890 DATA 15, 20, 22, 22, 12, 7, 2, 1, 3, 0, 7, 6, 10, 8, 21 2900 DATA 23, 28, 23, 29, 23, 19, 10, 12, 6, 1, 6, 7, 7, 6, 8 2910 DATA 9, 16, 9, 14, 4, 4, 7, 13, 13, 6, 13,-11, -2, 11, 9 2920 DATA 12, 20, 15, 22, 15, 7, 1, 10, 14, 8, 20, 10, 15, 21, 23 2930 REM 2940 REM SURGE IN MM AT HOURS 1 TO 12 FOR 1 DYNE/CM**2 NORTHWARD STRESS 2950 REM 2960 DATA -30,-16, -7, -6, 0, 8, 3, 6, 0, 2, -6,-24,-20, -4, -3 2970 DATA -49,-38,-18,-12, -4, 10, 7, 7, 3, 7, 3,-49,-39, 8, 14 2980 DATA -54,-46,-31,-27,-21, -4, 4, 15, 15, 17, 21, 0, 10, 21, 21 2990 DATA -55,-43,-33,-28,-21,-12, -5, 6, 11, 19, 34, 55, 45, 36, 35 3000 DATA -70,-57,-36,-31,-25,-11, -6, 3, 7, 13, 32, 23, 30, 50, 59 3010 DATA -64,-47,-31,-28,-23, -7, -2, 7, 11, 11, 14, 0, 4, 23, 25 3020 DATA -44,-35,-23,-17,-13, -4, -3, 7, 11, 7, 7,-33,-20, 10, 2 3030 DATA -39,-20, -7, -4, -4, 4, -2, 1, 1, 1, 8,-22,-15, 6, 1 3040 DATA -33,-21, -2, 3, 2, 12, 4, 8, 8, 2, -5, 17, 5, -8,-11 3050 DATA -32,-25, -5, 2, 1, 11, 9, 15, 12, 3, 1,-43,-27, 0, 1 3060 DATA -45,-26, -7, 2, 6, 12, 7, 13, 11, 6, 9,-49,-37, 9, 11 3070 DATA -48,-28,-14, -8, -6, 5, 2, 12, 11, 11, 20, 20, 23, 24, 27 3080 DATA -999 3090 REM 3100 REM DATA FOR WESTERN SHORE OF LAKE MICHIGAN 3110 REM 3120 REM SURGE IN MM AT HOURS 1 TO 12 FOR 1 DYNE/CM**2 EASTWARD STRESS 3130 REM 3140 DATA -27,-20,-16,-14,-18,-12,-14,-16, -6, -5, -6, -3,-12, -6,-16 3150 DATA -6, -3, -1, -7, -5, -6, -9,-20,-10,-10,-10, -6,-10, 3, 9 3160 DATA -19,-24,-18,-17,-18,-11, -8, -9, -9,-10,-11, -3, 2, 10, 33 3170 DATA -17,-15,-12, -7,-17,-15,-12,-14, -2, -1, 0, 3, -3, -1, 6 3180 DATA -15,-20,-17, -9, -8, -5, -6,-13, 0, -1, -4, 0, 11, 5, 9 3190 DATA -24,-14,-14, -9,-13, -6, -3, -5, -1, -1, 1, 1, -6, -8, 3 3200 DATA 5, 5, -1, -1, -3, -3, -6,-15, -6, -8, -8, -4,-14, -8,-12 3210 DATA -8,-10,-17,-10,-16,-10,-12,-20,-10,-12,-16,-13,-10, -1, 6 3220 DATA 17, 5, 1, 2, -1, -3, -9,-13, -8,-13,-16,-14,-21,-20,-18 3230 DATA -13,-21,-18,-13,-16, -9, -9, -8, -8,-13,-17,-11,-16,-15,-14 3240 DATA -9, -1, -9, -6, -5, -6,-11,-21, -8,-10,-10, -5,-13,-11, -9 3250 DATA -15,-23,-30,-20,-20,-14,-13,-16, -4, -6, -5, -3,-10, -7,-14 3260 REM 3270 REM SURGE IN MM AT HOURS 1 TO 12 FOR 1 DYNE/CM**2 NORTHWARD STRESS 3280 REM 3290 DATA -14, -5, -3, -5, -4, 0, 1, 2, 0, 1, 2, 2, 20, 14, 30 3300 DATA -44,-22,-16,-15, -9, -2, -1, 4, 2, 6, 8, 11, 20, 23, 49 3310 DATA -42,-20,-25,-25,-17,-11, -7, 2, 10, 13, 16, 19, 26, 37, 56 3320 DATA -52,-36,-38,-32,-23,-17,-14, -2, 10, 14, 19, 28, 57, 52, 80 3330 DATA -58,-34,-36,-31,-26,-13, -8, 3, 7, 11, 16, 25, 50, 62, 71 3340 DATA -56,-38,-36,-29,-22, -7, -5, 2, 8, 10, 12, 20, 36, 50, 91 3350 DATA -39,-21,-24,-20,-15, -5, -6, 1, 6, 7, 7, 13, 31, 37, 72 3360 DATA -32,-12,-10, -9, -9, -1, -4, -3, -3, 0, 2, 12, 20, 25, 24 3370 DATA -29, -9,-12, -9,-11, -2, -5, 3, -1, 1, 0, 6, 14, 16, 15 3380 DATA -33,-11,-19,-13, -5, 5, -1, -2, -1, -1, -6, -2, 3, 3, 24 3390 DATA -36,-17,-22,-18,-15, -4, -9, -5, -2, -2, -4, 1, 21, 31, 53 3400 DATA -41,-22,-24,-24,-21,-11,-13, -6, -3, 1, 4, 12, 34, 42, 69 3410 DATA -999 3420 REM 3430 REM DATA FOR LAKE SUPERIOR 3440 REM 3450 REM SURGE IN MM AT HOURS 1 TO 12 FOR 1 DYNE/CM**2 EASTWARD STRESS 3460 REM 3470 DATA 9, 4, 0, -3,-17, 5, -5, -3, -3,-17, -7, -5, -6, -1, 8 3480 DATA 33, 9, 3, -1, -8, -2, -9,-10,-18,-33,-24,-13, -5, -4, 18 3490 DATA 41, 14, 12, 7, 4,-13,-25,-23,-30,-35,-32,-21,-14, -2, 19 3500 DATA 22, 16, 11, 7, -7,-19,-27,-28,-30,-50,-35,-28,-10, 5, 24 3510 DATA 29, 12, 7, 5, -4,-15,-26,-24,-34,-42,-40,-21, -5, 4, 22 3520 DATA 37, 9, 5, 0, -7, -6,-12,-13,-18,-35,-25,-10, -5, 0, 11 3530 DATA 15, 2, -2, -6,-15, -1, -5, -4, 0, -4, 1, -3, -1, -2, 19 3540 DATA 7, 2, -2, -2,-11, 3, -2, 1, 2, 2, 3, 1, -7, -3, 5 3550 DATA 17, 3, 1, 0, -2, 4, 1, -3, -8,-23,-14, -6, -3, 0, 5 3560 DATA 21, 10, 4, 0,-13, -2,-13,-15,-20,-37,-28,-15, -5, -1, 14 3570 DATA 37, 15, 11, 8, 4,-14,-20,-22,-26,-32,-31,-23,-15, -1, 22 3580 DATA 43, 18, 12, 10, 1,-18,-29,-29,-28,-37,-32,-27,-11, 1, 23 3590 REM 3600 REM SURGE IN MM AT HOURS 1 TO 12 FOR A 1 DYNE/CM**2 NORTHWARD STRESS 3610 REM 3620 DATA -11, -8,-10,-11, -4, -5,-14, -3, -2, -7, -2, 4, 7, 9, 11 3630 DATA -20, -7, -6,-10,-16, -6, -6, -5, -8, -5, -4, -2, 5, 13, 2 3640 DATA -16, -6, -3, -4, 16, -3,-12, -4, -5,-24,-10, 2, 6, 7, -2 3650 DATA -16, -4, -6, -8,-19, -4, -5, -1, -7, 3, -3, 2, 5, 8, 7 3660 DATA -4, -6,-10,-13, -9, -4,-13, -3, 3, -3, 5, 3, 0, 6, 10 3670 DATA -8, -7, -4, -4, 9, -5, -5, -2, -4, -7, -3, 1, 6, 6, 3 3680 DATA -30, -6, -7, -9,-16, -3, -9, -4, -9,-18,-12, 2, 2, 11, 4 3690 DATA -12, -8, -9,-11, 0, -4,-12, -5, -4, -9, -5, -1, 9, 10, 7 3700 DATA 6, -1, -1, -3, -5, -4, -9, -3, -2, -2, 0, 1, 0, 4, -2 3710 DATA -12, -4,-10,-14,-10, -6, -9, -2, -3, -8, -2, 3, 1, 6, 20 3720 DATA -10, -5, -5, -8,-10, -3, -7, -5, -8,-15, -6, -1, 7, 10, 4 3730 DATA -11, -8, -7, -6, 9, -3,-15, -5, -9,-21,-10, 0, 4, 12, -2 3740 DATA -999 3750 REM 3760 REM DATA FOR LAKE ONTARIO 3770 REM 3780 DATA -7, -3, -2, -1, 1, 4, 4, 7, 8, 9, 12, 15, 18, 36, 32 3790 DATA -19,-14,-11, -6, -1, 6, 9, 11, 15, 17, 20, 22, 24, 27, 26 3800 DATA -19,-14,-12, -7, -2, 8, 9, 13, 15, 18, 23, 25, 24, 55, 45 3810 DATA -7, -6, -4, -1, 0, 4, 4, 8, 7, 7, 10, 13, 11, 13, 7 3820 DATA 2, 1, 0, -1, 0, 4, 3, 4, 4, 3, 6, 7, 4, 17, 10 3830 DATA -4, -1, 0, 2, 1, 3, 4, 6, 7, 7, 11, 12, 8, 13, 10 3840 DATA -15,-15,-13, -5, 0, 9, 12, 17, 18, 18, 23, 26, 21, 40, 38 3850 DATA -20,-14, -9, -3, 0, 7, 7, 12, 15, 17, 21, 24, 22, 28, 31 3860 DATA -5, -7, -7, -3, -2, 8, 7, 11, 12, 10, 13, 14, 11, 21, 21 3870 DATA 3, 5, 3, 4, 1, 6, 1, 3, 2, -1, 0, 2, -2, 3, 1 3880 DATA -1, -1, -1, 1, 0, 7, 6, 10, 10, 11, 15, 16, 12, 17, 13 3890 DATA -13,-11, -9, -1, 1, 9, 9, 14, 15, 14, 17, 20, 20, 27, 24 3900 REM 3910 DATA -4, -1, 1, 0, -1, -8, -6, -9, -8, -7,-10, 0, 2, 10, 15 3920 DATA -4, -6, -5, -5, -5,-12, -3, -4, -1, 3, 4, 8, 14, 9, 21 3930 DATA -10, -8, -3, -1, -1,-15, -5, -5, -3, -3, -5, 1, 1, 1, 17 3940 DATA -5, -6, -5, -3, -2,-15, -4, -5, -4, -2, -4, 1, 2, 8, 28 3950 DATA -1, 0, 1, -1, -4,-15, -8, -8, -5, -4, -7, -3, 7, -4, 13 3960 DATA -4, -3, -2, -3, -3, -4, -3, -4, -2, -4, -8, -2, 1, 13, 25 3970 DATA -6, -3, -4, -6, -6, -7, -3, -3, -1, 1, 3, 9, 11, 3, 14 3980 DATA -7, -7, -5, -4, -2, -7, -4, -4, -3, -1, 0, 7, 13, 30, 45 3990 DATA -5, -5, -4, -4, -2, -6, -3, -4, -3, -2, 0, 6, 6,-11, 5 4000 DATA -3, -2, -2, -3, -3,-10, -5, -6, -5, -5, 0, 5, 4, 20, 39 4010 DATA -1, -2, -4, -6, -5,-13, -6, -6, -5, -3, 0, 9, 6, -8, 18 4020 DATA -9, -6, -5, -3, -1, -8, -3, -3, 0, 1, 4, 9, 11, 20, 40 4030 DATA -999 4040 REM 4050 REM DATA FOR CENTRAL AND EASTERN LAKE ERIE 4060 REM 4070 DATA -5, 11, 12, 14, 17, 14, 15, 19, 15, 11, 14, 20, 24, 34, 34 4080 DATA 3, 10, 11, 22, 22, 33, 36, 36, 27, 24, 31, 45, 52, 64, 67 4090 DATA -5, 4, 3, 1, 15, 24, 34, 46, 50, 50, 54, 59, 65, 70, 71 4100 DATA -58, -31, -21, 8, 22, 39, 54, 66, 73, 76, 80, 89, 91, 93, 89 4110 DATA -78, -60, -51, -18, 18, 57, 71, 90, 94, 96, 104, 118, 129, 139, 139 4120 DATA -89, -69, -60, -42, -13, 44, 71, 99, 103, 113, 122, 133, 143, 155, 156 4130 DATA -103, -82, -71, -42, -9, 36, 60, 90, 107, 123, 129, 139, 145, 148, 150 4140 DATA -108, -84, -70, -42, -4, 32, 60, 89, 100, 116, 125, 136, 145, 154, 153 4150 DATA -84, -69, -59, -38, -21, 13, 35, 68, 81, 96, 110, 126, 137, 151, 153 4160 DATA -63, -52, -48, -33, -16, 14, 30, 49, 56, 69, 80, 92, 100, 110, 113 4170 DATA -65, -44, -36, -22, 0, 16, 26, 40, 41, 45, 46, 51, 52, 59, 60 4180 DATA -30, -20, -18, 1, 0, 4, 15, 23, 26, 23, 24, 33, 34, 38, 37 4190 REM 4200 DATA -37, -28, -23, -28, -18, -22, -22, -23, -15, -9, -5, -3, 6, 12, 20 4210 DATA -65, -53, -42, -36, -21, -10, -16, -15, -7, 0, 4, 8, 19, 22, 31 4220 DATA -44, -47, -42, -28, -5, 5, 10, 1, 3, 13, 13, 17, 22, 30, 38 4230 DATA -51, -49, -42, -47, -34, -18, 4, 13, 17, 25, 24, 14, 21, 29, 40 4240 DATA -58, -57, -50, -52, -41, -26, -16, 3, 18, 31, 39, 42, 45, 50, 59 4250 DATA -46, -43, -38, -32, -6, -8, -4, -3, 11, 33, 45, 57, 67, 81, 93 4260 DATA -70, -57, -45, -37, -32, -14, 3, 10, 16, 27, 32, 34, 44, 56, 67 4270 DATA -78, -75, -69, -54, -30, -13, -4, 9, 26, 28, 26, 20, 20, 15, 25 4280 DATA -53, -45, -45, -43, -17, 8, 8, -7, 4, 17, 19, 20, 30, 37, 43 4290 DATA -64, -49, -42, -40, -28, -22, -12, -3, 5, 10, 15, 19, 37, 52, 60 4300 DATA -61, -54, -44, -31, -31, -26, -23, -19, -3, 14, 20, 12, 16, 15, 23 4310 DATA -35, -35, -30, -34, -9, -14, -27, -28, -9, 3, 5, 6, 20, 26, 34 4320 DATA -999 4330 REM 4340 REM DATA FOR LAKE HURON 4350 REM 4360 DATA -13,-15,-16,-13, -8, -4,-15,-13,-40, -3, -3, -5, -7,-22,-23 4370 DATA -5, -5, -3, 0, 6, 2,-16, -7,-23,-10,-17,-22,-27,-45,-49 4380 DATA 5, 7, 12, 4, -2, 1, -7, -7,-13,-19,-26,-32,-38,-52,-55 4390 DATA 18, 2, -2, 2, 2, -2,-21,-22,-55,-20,-23,-26,-32,-50,-52 4400 DATA -17, 1, 3, -5,-11,-16,-26,-20,-17,-15,-21,-23,-25,-27,-32 4410 DATA -5,-14,-27,-21,-18,-16,-30,-19,-30, -7, -9,-14,-17,-29,-35 4420 DATA -52,-42,-29,-23,-17,-14,-20,-10,-29, -7, -7,-10,-15,-26,-29 4430 DATA -32,-23,-18,-14, -7, -7,-16, -7, -1,-12,-16,-20,-20,-18,-20 4440 DATA 5, -3,-11,-12, -8, -2,-13,-11,-48,-14,-18,-23,-24,-48,-55 4450 DATA 14, 17, 21, 15, 10, 1,-16,-13, -1,-17,-25,-30,-37,-47,-51 4460 DATA 31, 18, 9, 3, 2, 4, -8, -6,-36,-22,-24,-26,-29,-36,-40 4470 DATA 6, -3, -2, 2, 3, 3,-11,-10,-22,-10,-13,-16,-21,-34,-41 4480 REM 4490 DATA -38,-20,-10,-11, -9, -9, -4, -3, 11, 0, -1, 0, 0,-19, 6 4500 DATA -61,-40,-35,-28,-20,-15,-11, -5, 2, 5, 6, 10, 8, 0, 10 4510 DATA -73,-56,-48,-35,-28,-19,-18, -7, 6, 13, 14, 15, 18, 20, 24 4520 DATA -73,-52,-41,-29,-27,-25,-20, -9, 11, 13, 19, 23, 25, 11, 29 4530 DATA -52,-35,-37,-30,-27,-25,-18,-13,-10, 7, 12, 15, 14, 32, 29 4540 DATA -49,-29,-27,-23,-21,-21,-20,-11, 9, -3, -3, -2, -1,-11, -1 4550 DATA -52,-32,-30,-23,-22,-22,-23,-14,-10, -3, -8,-12,-15,-34,-26 4560 DATA -57,-40,-39,-34,-30,-26,-16, -9, -3, -3, -5, -7, -5, -1, 1 4570 DATA -63,-48,-42,-34,-28,-23,-14, -6, 12, 5, 8, 12, 16, 6, 29 4580 DATA -68,-53,-43,-38,-31,-26,-21,-16,-11, 13, 16, 18, 24, 31, 35 4590 DATA -56,-41,-37,-35,-28,-21,-15, -3, 20, 7, 7, 10, 13, 10, 16 4600 DATA -54,-36,-31,-24,-17,-12, -7, -2, 6, -1, -1, -3, -9,-23, -8 4610 DATA -999