Laserfiche WebLink
<br />C <br /> <br />WRITE(lOUT, 901) <br />901 FORMAT(/lX,'INPUT "SHORT" FOR SHORT VERSlON, "LONG" FOR FULL', <br />l' MODEL') <br />READ(IN,70S) VERS <br />IF(VERS.NE.SH) GO TO 20 <br />WRITE(IOUT,9010) <br />9010 FORMAT(/IXI'INPUT HEIGHT (FEET) OF DAM') <br />READlINI70",) H2 <br />GO TO 1",0 <br />20 WRITE(IOUT 902) <br />902 FORMAT(/lX, 'INPUT NAME OF DAM') <br />READ(IN,701J DAMNAM <br />WRITE(IQUT 903) <br />903 FORMATl/IX, 'INPUT RIVER NAME') <br />READ(IN,701J RIVNAM <br />C <br />100 WRITE(IOUT 904) <br />904 FORMAT(/lX, 'INPUT DAM CREST ELEVATION (FT. MSL)') <br />READ(IN 702J CO <br />IF(CO.Lt.O.l) GO TO 100 <br />C <br />110 WRITE(IOUT 90S) <br />90S FORMAT(/lX, 'INPUT FINAL BREACH BOTTOM ELEVATION (FT. MSL)') <br />READ ( IN 702J BO <br />IF(BO.Lt.O.Ol ) GO TO 110 <br /> <br />C <br />C H2 IS THE DEPTH OF BREACH <br />H2=CO-BO <br />120 WRITE(IOUT 906) <br />906 FORMAT(/IXI 'INPUT VOLUME OF RESERVOIR (AC-FT) AT MAX POOL ELEV') <br />IF(VERS.NE.:;H) WRITE(IOUT,9060) <br />9060 FORMAT(lXl'IF N/A ENTER O. AND VOL WILL BE EST. FROM SURF. AREA') <br />READ(IN,7u2) VO <br />IF(VERS.EQ.SH) GO TO 130 <br />C <br />WRITE( lOUT, 907> <br />907 FORY~T(/IX7'INPUT RESERVOIR SURFACE AREA (ACRES) AT MAX POOL ELEV' , <br />1/1X1 'IF N A ENTER O. AND S.A. WILL BE EST. FROM VOLUME.') <br />REAJJ(IN 702) AO <br />IF(VO.Gt.0.1 ) GO TO 130 <br />IF(AO.GT.0.1 ) GO TO 130 <br />WRITE(lOUT,908) <br />90B FOR~~T(/lX,'A VALUE FOR EITHER VOLUME OR SURFACE AREA MUST BE' , <br />l' ENTERED' J <br />GO TO 120 <br /> <br />C <br />130 WRITE(IOUT 909) <br />909 FOR~~T(/lX 'INPUT FINAL BREACH WIDTH (FT)' <br />1/1X1 'IF N/l. ENTER O. DEFAULT USED = 3 * BREACH DEPTH') <br />REAJJ(IN 702) WO <br />13S IF(WO.Lt.O.l) WO=3.*H2 <br />C <br />HRITE(IOUT 910) <br />910 FOR~~Tl/IX, 'INPUT TIME (MINUTES) REQUIRED FOR BREACH FORMATION', <br />1/1X, 'IF N/A tENTER 0.') <br />READ(IN 702) 0 <br />IF(TO.Gt.O.00001 ) GO TO 140 <br />C TIME OF FAILURE NOT GIVEN...MAKE ESTIMATE <br />WRITE(IOUT,91l) <br />911 FORY~T(lX, 'ENTER TYPE OF DAM...O FOR EARTH DAM, 1 FOR CONCRETE', <br />l' DAM') <br />READlIN 703) IT1 <br />IF(ITl.~T.O) WRITElIOUT 9111) <br />9111 FORMAT(/lXA 'IS THIS AN iNSTANTANEOUS FAILURE?') <br />IF~ITl.GT.U) READ(IN 70S) ANS <br />IF IT1.GT.0.AND.ANS.~Q.YES) TO=H2/1S00. <br />IF ITl.LT.l) TO=H2/3. <br />WRITE(IOUT 9110) TO <br />9110 FORY~T(lX~JESTI~~TED TIME OF FAILURE =' ,FB.2,' MINUTES') <br />140 IF(VERS.E~.SH) GO TO 160 <br />C <br />~lRITElIOUT 912) <br />912 FORY~T(/lX, 'INPUT TURBINE/SPILLWAY/OVERTOPPING FLOW (CFS). ' <br />1/1X, 'IF N/A, ENTER 0.0. DEFAULT = 0.0') 'II-3 <br />