|
<br />10 REM#
<br />ZO REM#
<br />30 REM# SIMPLIFIED DAMBREAK MODEL
<br />40 REM# BASIC LANGUAGE INTERACTIVE VERSION
<br />50 REM# WRITTEN BY JONATHAN WETMORE 5/3/83
<br />60 REM#
<br />70 DIM F(15,6),X(6),D(B),E(8,B),T(B,8),C(3,B),H(Z,8),B(4,8),P(B,5)
<br />BO REM#
<br />90 REM#
<br />100 REM#
<br />110 REM#
<br />lZ0 REM#
<br />130 REM#
<br />140 REM#
<br />150 REM#
<br />160 REM#
<br />170 REM#
<br />1BO REM#
<br />190 REM#
<br />ZOO REM#
<br />Z10 REM#
<br />2Z0 REM#
<br />230 REM#
<br />Z40 REM#
<br />250 REM#
<br />260 REM#
<br />Z70 REM#
<br />ZBO REM#
<br />290 REM#****************************************************************
<br />300 REM#
<br />310 REM# ************** SUMMARY OF INTERNAL ARRAYS **********************
<br />3Z0 REM#
<br />330 REM#
<br />340 REM#
<br />350 REM#
<br />360 REM#
<br />370 REM#
<br />3BO REM#
<br />390 RE~I#
<br />400 REM#
<br />410 REM#
<br />420 REM#
<br />430 REMit
<br />440 REM#
<br />450 REMit
<br />460 REM#
<br />470 REM# *****************************************************************
<br />480 REM# INITIALIZE VARIABLES
<br />482 WO=O
<br />484 NO=1
<br />486 AO=O
<br />500 FOR I=l TO B
<br />510 BC3tI)=O
<br />520 NEX I
<br />530 REM# SET UP CURVE MATRICES
<br />540 REM# X(Il IS THE X* DISTANCE (lOX)
<br />550 READ X(1 AX(2),X(3)AX(4),X(5),X(6)
<br />560 DATA 1.E-u5,10,30,5u,100,ZOO
<br />570 REMit .
<br />5BO REM# SET UP CURVE ORDINATES FOR FC = 0.25, v* = 1-5j
<br />590 REM# SET UP CURVE ORDINATES FOR FC = 0.50, v* = 1-5
<br />600 REM# SET UP CURVE ORDINATES FOR FC = 0.75 V* = 1-5
<br />610 REM# F~I,I) IS FC25(I,I), F(Z,I) IS FCZ5(~,I), ETC, I=X* POINTER
<br />620 REM# F 6 I) IS FC50(1 I) F(7 I) IS FC50(2 I) ETC I=X* POINTER
<br />630 REM# F 1!,I) IS FC75(!,I}, F(!Z,I) IS FC75(2,i), EtC, I=X* POINTER
<br />640 REM#
<br />650 FOR J=1 TO 6
<br />660 FOR 1=1 TO 15
<br />670 READ F(I,J)
<br />680 NEXT I
<br />690 NEXT J
<br />700 REMit
<br />710 DATA 100,100,100,100,100
<br />7Z0 DATA 100,100,100,100,100
<br />
<br />*********** SUMMARY OF INPUT DATA VARIABLES *************
<br />
<br />CO = DAM CREST ELEVATION (FT. M~L)
<br />BO = FINAL BREACH ELEV lFT. MSL
<br />VO = VOLUME OF RESERVOIR (AC-FT
<br />AO m RES. SURF. AREA (ACRES)
<br />WO = FINAL BREACH WIDTH
<br />TO = TIME OF FAILURE (MINUTES)
<br />000 = SPILLWAY/TURBINE/SURCHARGE FLOW (CFS)
<br />N = NO. OF X-SECTIONS TO BE READ IN
<br />N - NO. OF ELEV-TOPW PAIRS
<br />D I) = DOWNSTREAM DIST TO X-S (I)
<br />E I'J! = ELEV(J) CORRESPONDING TO TOPW(J) AT X-S (II)
<br />T I,J = TOPW(J) CORRESPONDING TO ELEV(J) AT X-S ( )
<br />C 1,1 = MANNING 'N' AT X-S (I)
<br />C Z,I = 'HV' DEPTH AT X-S (I)
<br />C 3,1 = FLOOD DEPTH AT X-S (I)
<br />SO = DOWNSTREAM SLOPE (READ IN IF ONLY 1 X-S GIVEN)
<br />
<br />X I)
<br />F I,J
<br />H l,J
<br />H 2,J
<br />B I,J
<br />B Z,J
<br />B 3,J
<br />B 4,J
<br />P 1,1
<br />P 1,2
<br />P 1,3
<br />P 1,4
<br />P ,1,5
<br />
<br />.
<br />
<br />= X-ORDINATES OF FC CURVE FAMILY MATRICES
<br />mY-ORDINATES OF FC CURVE FAMILY MATRICES
<br />= GIVEN X-S HEIGHT J ABOVE INVERT AT X-S (I)
<br />= GIVEN X-S HEIGHT ABOVE INVERT AT FIRST X-S
<br />= INTERP. TW AT CURRENT X-S CORRESPONDING TO H(Z,J)
<br />= TOPW AT PREVIOUS X-S CORRESPONDIG TO H(Z,J)
<br />= WEIGHTED TOPW CORRESPONDING TO H(Z J)
<br />= DISTANCE WEIGHTED TOPW (J) AT CURRENT X-S
<br />= Q PEAK AT X-S 1I)
<br />= PEAK DEPTH AT X-S (I)
<br />= TIME TO PEAK AT X-S (I)
<br />= TIME OF FLOODING AT X-S (I)
<br />= TIME OF DEFLOODING AT X-S (I)
<br />
<br />1II-2
<br />
|