|
<br />'"
<br />
<br />(l U lL:: 4i
<br />
<br />1+FLOW(35,J)+FLOW(42,J)
<br />FLOW(197,J)~TTLEVP-FLOW(174,J)-FLOW(180,J)-FLOW(185.J)
<br />I-FLOW(191,J)-FLOW(204,J)
<br />OWNEVP - FLOW(174,J)+FLOW(180,J)+FLOW(185,J)+FLOW(191,J)
<br />1+FLOW(197,J)+FLOW(204,J)
<br />....(':It:'\. +-....1,.... -.~~ ....,.....................+-.:.......... ,........... ~~..._ ":_...1':,.':...1.._' _.~____1-":__
<br />'-\oJv/. .....ur-.... ......... ...."...I:'........u.....~.....u ....v,;,"" .................., .....uu.,LV"Lu.......O'.I.. UWUC.L'::>U.Lp.::>
<br />
<br />C
<br />
<br />C PATHFINDER OWNERSHIP LESS EVAPORATION
<br />FLOW(179,J) - FLOW(I79,J) - FLOW(174,J)
<br />OWN(2) - OWN(2) -EVPATH
<br />OWN(8) - OWN(8) -EVPTGU
<br />C KENDRICK OWNERSHIP LESS EVAPORATION
<br />FLOW(184,J) - FLOW(184,J)-FLOW(180,J)
<br />OWN(ll) - OWN(11)-FLOW(21,J)
<br />OWN(l) - FLOW(184,J) - OWN(ll)
<br />C INLAND LAKES OWNERSHIP LESS EVAPORATION
<br />OWN(5) - OWN(5) - EVILGU
<br />OWN(6) - OWN(6) - EVILGL
<br />FLOW(196,J) - OWN(5) + OWN(6)
<br />C GURNSEY OWNERSHIP LESS EVAPORATION
<br />FLOW(190,J) - FLOW(190,J).FLOW(185,J)
<br />C GLENDO O.~ERSHIP LESS EVAPORATION
<br />FLOW(203,J) - FLOW(203,J)-FLOW(197,J)
<br />C EXCESS OWNERSHIP LESS EVAPORATION
<br />IF(FLOW(209,J).NE.O.) THEN
<br />OWN(9)'- OWN(9) - (FLOW(204,J)/FLOW(209,J))*OWN(9)
<br />OWN(10) - OWN(lO) - (FLOW(204,J)/FLOW(209,J))*OWN(10)
<br />ENDIF
<br />FLOW(209,J) = OWN(9) + OWN(10)
<br />C(37): SET RESIDUAL REACH GAIN (excluding the reach below Guernsey)
<br />C SEMINOE INFLOW
<br />GAIN(l) - FLOW(l,J)
<br />C KORTES TO PATHFINDER GAIN
<br />GAIN(2) - FLOW(13,J)
<br />C PATHFINDER TO ALCOVA GAIN
<br />GAIN(3) - FLOW(20,J) - FLOW(16,J)
<br />C ALCOVA TO GLENDO GAIN
<br />GAIN(4) - FLOW(33,J)
<br />C GLENDO TO GUERNSEY GAIN
<br />GAIN(5) = FLOW(40,J)
<br />SYSINF - 0.0
<br />DO 45 II - 1,5
<br />SYSINF - SYSINF + GAIN(II)
<br />45 CONTINUE
<br />C COMPUTE STORAGE OWNERSHIP ACCRURAL
<br />C CHECK FOR GUERNSEY RELEASE MAY-SEP
<br />c(38): compute delivery to Inland Lakes duing the period of May-Sept.
<br />IF(J.GT.7) THEN
<br />RESDL = FLOW(90,J) - FLOW(91,J)
<br />C DELIVER REMAINING INLAND LAKES WATER
<br />C CHECK IF STORAGE WATER BEING RELEASED
<br />IF(FLOW(210,J).GT.O.) THEN
<br />DINLGU = AMIN1(RESDL,OWN(5))
<br />RESDL - RESDL - DINLGU
<br />DINLGL - AMIN1(RESDL,OWN(6))
<br />RESDL - RESDL - DINLGL
<br />
<br />37
<br />
|