Laserfiche WebLink
<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 />