<br />C
<br />C
<br />C SIMPLIFIED DAMBREAK MODEL
<br />C FORTRAN LANGUAGE INTERACTIVE VERSION
<br />C WRITTEN BY JONATHAN WETMORE 5/3/83
<br />C UPDATED 8/30/83 FOR DEFAULT TFAIL=H2/3 AND BREACH WIDTH =3*H2
<br />C
<br />REAL K KO Kl,M MO,Ml,N
<br />COMMON7ARAY/ F(15,6),X(6),D(8),E(8,8),T(8,8),C(3,8),H{2,8),B(4,8),
<br />IP(8,5)
<br />COMMON/SCALAR/ CO~B01VO,AOJWO,TO,QOJNO,NI1S0
<br />DIMENSION DAMNAM(J),KIVNAM\5),FTMSL\2),FE~T(2)
<br />DATA YES1SH,STGtELEV/4HYES ,4HSHOR,4HDEPT,4HELEV/
<br />DATA FTM:;L/4H(F 4HMSL)/
<br />DATA FEET/4HH (F,J.HEET)/
<br />
<br />C
<br />C
<br />C ***********
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C ************** SU~lliARY OF INTERNAL ARRAYS **********************
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />c******************************************************************
<br />C
<br />C
<br />C INITIALIZE VARIABLES
<br />C
<br />C
<br />C
<br />
<br />CO
<br />BO
<br />VO
<br />AO
<br />WO
<br />TO
<br />38
<br />~lli~Jl :
<br />T I,J =
<br />C 1,1 =
<br />C 2,1 =
<br />C 3,1 =
<br />SO =
<br />
<br />SUMMARY OF INPUT DATA VARIABLES *************
<br />
<br />= RES. DAM CREST ELEVATION (FT. MSL)
<br />= FINAL BREACH ELEV (FT. MSL)
<br />= VOLUME OF RESERVOIR (AC-FT)
<br />= RES. SURF. AREA (ACRES)
<br />= FINAL BREACH WIDTH
<br />= TIME OF FAILURE (MINUTES)
<br />= SPILLWAY/TURBINE/SURCHARGE FLOW (CFS)
<br />= NO. OF X-SECTIONS TO BE READ IN
<br />NO. OF ELEV-TOPW PAIRS
<br />DOWNSTREAM DIST TO X-S (I)
<br />ELEV(J) CORRESPONDING TO TOPW(J) AT X-S (II)
<br />TOPW(J) CORRESPONDING TO ELEV(J) AT X-S ( )
<br />~~NNING 'N' AT X-S (I)
<br />'HV' DEPTH AT X-S (I)
<br />FLOOD DEPTH AT X-S (I)
<br />DOWNSTREAM SLOPE (READ IN IF ONLY 1 X-S GIVEN)
<br />
<br />***********************************************************
<br />
<br />X I)
<br />F I,J
<br />H l,J
<br />H 2,J
<br />B 1,J
<br />B 2,J
<br />B 3,J
<br />B 4,J
<br />P 1,1
<br />P I,Z
<br />P 1,3
<br />P 1,4
<br />P 1,5
<br />
<br />= X-ORDINATES OF FC CURVE FAMILY MATRICES
<br />= Y-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(2,J)
<br />= TOPW AT PREVIOUS X-S CORRESPONDIG TO HlZ,J)
<br />= WEIGHTED TOPW CORRESPONDING TO H(Z J)
<br />= DISTANCE WEIGHTED TOPW (J) AT CURRtNT X-S
<br />= Q PEAK AT X-S (I)
<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 />"IN" IS THE LOGICAL UNIT NUYlllER FOR THE INPUT DEVICE
<br />"lOUT" IS THE LOGICAL UNIT NUMBER FOR THE OUTPUT DEVICE
<br />IN=5
<br />lOUT=6
<br />WO=O.
<br />NO=l '
<br />AO=O.
<br />DO 10 1=1 8
<br />B(3,I)=0.6
<br />CC3tI)=O.O
<br />10 CON INUE
<br />WRITE (lOUT, 900)
<br />900 FORMAT(/lX ' SI~WLIFIED DAMBREAK MODEL'
<br />1/2X~' FORTRAN LANGUAGE INTERACTIVE VERSION' ,/lXl
<br />l' wRITTEN BY JONATHAN N. WETMORE HRL MAY, 1903',/)
<br />
<br />C
<br />
<br />II-Z
<br />
|