|
<br />. .~
<br />, ' ..
<br />.' . Got'Jg'$~
<br />
<br />FLOW ( 75,J)=FLOW( 75,J)-FLOW(KZ,J)
<br />400 CONTINUE'
<br />FLOW ( 75, J) =F'LOW ( 75, J) +FLOW(69, J) +FLOW (70, J) -FLOW (71, J)
<br />FLOW ( 76,J)=HDATA(39,J)
<br />FLOW( 77,J)=HDATA(40,J)
<br />
<br />C DEFINE TABLE ARRAY
<br />TABLE ( l,I,J)=RST(l)
<br />TABLE ( 2,I,J)=RST(3)
<br />TABLE ( 3,I,J)=RST(4)
<br />TABLE ( 4,I,J)=RST(6)
<br />TABLE ( 5,I,J)=RST(7)
<br />
<br />C
<br />
<br />HDATA(4l,J) = FLOW( 75,J) - FLOW ( 76,J) - FLOW ( 77,J)
<br />TABLE ( 6,I,J) = HDATA(4l,J)
<br />HDATA(2,J) = FLOW(3,J)
<br />HDATA(3,J) = FLOW(9,J)
<br />HDATA(5,J) = FLOW(16,J)
<br />HDATA(8,J) = FLOW(23,J)
<br />HDATA(9,J) = FLOW(29,J)
<br />HDATA(ll,J) = FLOW(36,J)
<br />HDATA(13,J) = FLOW(43,J)
<br />C NATURAL FLOW ACCOUNTING
<br />CALL NATFLOW(PATHTR)
<br />C STORAGE OWNERSHIP ACCOUNTING
<br />CALL OWNSHP(PREOWN,EXCESS,PRE2,PRESTOR,DCFLAG)
<br />C CALCULATE GLENDO AND NORTH PLATTE PROJECT DELIVERIES
<br />IF(J.GT.7) THEN
<br />TTFGLN = FLOW(167,J)+FLOW(168,J)+FLOW(171,J)
<br />TTFNPP = FLOW(l65,J)+FLOW(166,J)+FLOW(172,J)
<br />TTFFSP = FLOW(l70,J)
<br />'PERATIONAL WATER
<br />C OPERATIONAL WATER BELOW GUERNSEY
<br />TTFOPl = FLOW(91,J) - FLOW(94,J) + FLOW(95,J)
<br />C STORAGE EVAP LOSS ALCOVA - GLENDO
<br />TTFOP2 = FLOW(83,J)
<br />C CHECK IF LOSS ALCOVA TO GLEN DO AND GLEN DO TO GUERNSEY EXCEEDS NATFLOW
<br />STORLS = 0.0
<br />IF(FLOW(85,J).EQ.0.0) THEN
<br />STORLS = FLOW(82,J) - FLOW(83,J) - FLOW(84,J)
<br />IF((FLOW(88,J)-FLOW(86,J)).LT.0.0) THEN
<br />STORLS = STORLS + FLOW(86,J) - FLOW(88,J)
<br />ENDIF
<br />ENDIF
<br />TTFOP2 = TTFOP2 + STORLS
<br />C OPERATIONAL WATER BELOW GUERNSEY
<br />C FIRST TAKE FROM EXCESS (LOWER)
<br />DELOPl = AMINl(TTFOPl,OWN(9))
<br />TTFOPl = TTFOPl - DELOPl
<br />OWN(9) = OWN(9) - DELOPl
<br />C OPERATIONAL WATER ALCOVA - GLEN DO
<br />C FIRST TAKE FROM EXCESS (UPPER)
<br />DELOP2 = AMINl(TTFOP2,OWN(10))
<br />TTFOP2 = TTFOP2 - DELOP2
<br />OWN(lO) = OWN(lO) - DELOP2
<br />C REMAINING OPERATIONAL WATER BELOW GUEID,SEY
<br />TAKE FROM REMAINING EXCESS (UPPER)
<br />DELOP3 = AMINl(TTFOPl,OWN(lO))
<br />TTFOPl = TTFOPl - DELOP3
<br />OWN(lO) = OWN(lO) - DELOP3
<br />
|