Laserfiche WebLink
<br />, <br /> <br />(JIW 5 2 fj <br /> <br />RDEM(8) - KTDEM(8) <br />TDEM - TDEM + RDEM(8) <br />DEL ~ AMINI (REMFL, RDEM(8)) <br />RDEM(8) - RDEM(8) - DEL <br />RFLO(8) - REMFL - DEL <br />C ********************************************************************** <br />C TAKE REMAINING REACH DEMANDS FROM STORAGE, DOWNSTREAM TO UP <br />C ********************************************************************** <br />c(6): Meet the remaining reach demand from its upstream reservoir(s), <br />c storage, downstream reach to up, regardless of priority rights. <br />DO 220 K-8,2,-1 <br />M- K - 1 <br />c********* THE INNER LOOP SATISFIES ALL REMAINING DEMANDS FROM DOWNSTREAM UP <br />c********* ANY PRIORITY ORDER COULD BE SUBSTITUED HERE <br />c********* SHORTAGE IS THE SUM OF ANY REMAINING REACH DEMANDS <br />DO 230 KK - 8,K,-1 <br />C ******THE SECOND TERM XRE-RRE IS REMAINING OUTLET CAPACITY WHILE <br />C ******* RST+RRE.XST IS WATER OVER SPILLWAY. THE MAX RELEASE IS THE SUM <br />C ******* OF THE TWO. <br />DEL - AMINI(RDEM(KK),XRE(M)-RRE(M)+ <br />1 AMAXI(O. ,RST(M)+RRE(M)-XST(M)),AMAXl(O. ,RST(M)-YST(M.J))) <br />RDEM(KK) - RDEM(KK)-DEL <br />RST(M) - RST(M) - DEL <br />RRE(M) - RRE(M) + DEL <br />c********* ADD RELEASE TO REACH FLOWS ABOVE KK <br />IF (KK.EQ.K) GO TO 230 <br />DO 240 KKK - KK-I,K,-l <br />RFLO(KKK) - RFLO(KKK)+DEL <br />RRE(KKK)-RRE(KKK)+DEL <br />240 CONTINUE <br />230 CONTINUE <br />220 CONTINUE <br />C *********************************************************************** <br />C NOW MOVE WATER DOWNSTREAM TO SATISFY MINIMUM FLOW REQUIREMENTS GENERATE <br />C POWER, AND GENERALLY BALANCE THE SYSTEM <br />C *********************************************************************** <br />C GENERATE POWER DOWN TO TARGET STORAGE OR PLANT CAPACITY OR DOWNSTREAM <br />C LIMIT <br />c(7): Move water downstream to satisfy power generation requirement. <br />DEL - O. <br />DO 250 M-I,7 <br />K-M <br />RFLO(K) - RFLO(K) + DEL <br />RST(M) - RST(M) + DEL <br />DEL - AMAXI(O. ,RST(M)-XST(M), <br />IAMINI(RST(M)-TARST(M,J),XPOW(M)-RRE(M))) <br />RST(M) - RST(M) DEL <br />RRE(M) - RRE(M) + DEL <br />250 CONTINUE <br />C ******** INCREMENT REACH 8 FLOW <br />RFLO(8) - RFLO(8) + DEL <br />C ******SHIFT WATER DOWN TO GLENDO TO AVOID UNDULY LARGE SUMMER PATHFINDER <br />C ****** RELEASES. THE AMOUNT OF WATER MOVED IS LIMITED BY THE PATHFINDER <br />C ****** OUTLET CAPACITY AND LIMITED TO THE THE TOTAL OF SEMINOE AND <br />PATHFINDER <br /> <br />16 <br />