Laserfiche WebLink
<br />0013528 <br /> <br />c ********************************************************************* <br />C GLENDO FLOOD CONTROL POOL OPERATION, EMPTY IF POSSIBLE, FILL IF <br />C CURRENT DOWNSTREAM FLOWS TOO HIGH <br />C ******************************************************************** <br />C *******FILL FIRST WITH EXCESS FLOW, THEN DUMP TO FLOOD LEVEL <br />C *******OR CHANNEL CAPACITY OR. AT MIN. SPILL ADD NET TO FLOW. <br />C *******DECREMENT FROM STORAGE <br />c(ll): Glendo flood control pool operation <br />c Fill with excess flow or dump to flood level if downstream <br />c reach and reservoir conditions allow. <br />DEL-AMINI (RFLO(6), AMAXl(0.,RFLO(7)-FLEV(7),RFLO(8)-FLEV(8) <br />1 + RST(7) - FLST(7,J))) <br />DEL- AMAXl(O. ,RST(6)+DEL-XST(6),AMINl(RST(6)-FLST(6,J) , <br />1 FLEV(7)-RFLO(7),FLEV(8)-RFLO(8) + FLST(7,J) - RST(7))) <br />2 - DEL <br />RST(6) - RST(6) - DEL <br />RRE(6) - RRE(6) + DEL <br />RFLO(7)-RFLO(7) + DEL <br />C ******** ROUTE THROUGH GUERNSEY <br />RST(7) - RST(7) + DEL <br />DEL - AMAXl(O. ,RFLO(8)-FLEV(8)) <br />DEL - AMAXl(O. ,RST(7)+DEL-XST(7),AMINl(RST(7)-FLST(7,J), <br />1 FLEV(8)-RFLO(8))) -DEL <br />RST(7) - RST(7) - DEL <br />RRE(7) - RRE(7) + DEL <br />RFLO(8) - RFLO(8) + DEL <br />C ******************************************************************** <br />C SET EVERYTHING <br />C ******************************************************************** <br />C ******REACH RELATED JUNK <br />RSHORT - O. <br />DO 280 K=l,8 <br />KSHORT(K)-RDEM(K) <br />280 CONTINUE <br />C EVAPORATION AS AVERAGE OF MONTHLY CONTENT <br />C DO 310 II - 7,1,-1 <br />C TEVAP - O. <br />C STl - (RST(II) + STORE(8-II))/2. <br />C IF(STl.LE.O.) GO TO 300 <br />C AR - O. <br />C AR - COEFFS(l,II)*STl**COEFFS(2,II) <br />C TEVAP - AR*AVEV(J,II) <br />C 300 REVAP(II) - TEVAP <br />C RST(II) - RST(II) - REVAP(II) <br />C 310 CONTINUE <br />C ********************************************************************* <br />C END MONTHLY LOOP, THEN ANNUAL LOOP <br />G ********************************************************************* <br />c(12): Assign or compute values for FLOW array <br />FLOW ( l,J)- HDATA(l,J) <br />FLOW ( 2,J)- REVAP(l) <br />FLOW ( 3,J)- RRE(l) <br />FLOW ( 4,J)- AMAXl(O.,RRE(l)-XPOW(l)) <br />FLOW ( 5,J)- AMAXl(O. ,RRE(l)-XRE(l)) <br />FLOW ( 6,J)- RST(l) <br /> <br />18 <br />