Laserfiche WebLink
<br />C <br /> <br />C <br /> <br />C <br />C <br /> <br />C <br />C <br /> <br />C <br /> <br />C <br /> <br />C <br /> <br />C <br /> <br />C <br /> <br />C <br /> <br />C <br /> <br />00068t <br /> <br />DELST2 = AllIN1(OWN(10) ,TTFNPP) <br />TTFNPP = TTFNPP - DELST2 <br />OWN(lO) = OWN(lO) - DELST2 <br />DELIVERIES TO GLENDO PROJECT <br />DELST3 = Al1IN1(OWN(9),TTFGLN) <br />TTFGLN = TTFGLN - DELST3 <br />OWN(9) = OWN(9) - DELST3 <br />DELST4 = AMIN1(OWN(10),TTFGLN) <br />TTFGLN = TTFGLN - DELST4 <br />OWN(lO) = OWN(lO) - DELST4 <br />SET DELIVERIES FROM EXCESS AND EOM OWNERSHIP <br />FLOW(206,J) = DELST1+DELST2+DELST3+DELST4 <br />FLOW(209,J) = OWN(9) + OWN(lO) <br />OWN(7) = FLOW(209,J) <br />DETERMINE GLENDO OWNERSHIP DELIVERIES AND EOM OWNERSHIPS <br />NEBRASKA USERS <br />IF(TTFGLN.NE.O.) THEN <br />FLOW(199,J) = ((TTFGLN-FLOW(168,J))jTTFGLN)*TTFGLN <br />ELSE <br />FLOW(199,J) = 0.0 <br />ENDIF <br />FLOW(200,J) = TTFGLN - FLOW(199,J) <br />OWN(3) = OWN(3) - FLOW(199,J) - FLOW(200,J) <br />FLOW(203,J) = OWN(3) <br />DETERMINE NORTH PLATTE PROJECT DELIVERY <br />NP PROJECT STORAGE WATER FIRST FROM REMAINING INLAND LAKES OWNERSHIP <br />DINLGU = AMIN1(OWN(5),TTFNPP) <br />TTFNPP = TTFNPP - DINLGU <br />DINLGL = AMIN1(OWN(6) ,TTFNPP) <br />TTFNPP = TTFNPP - DINLGL <br />OWN(5) = OWN(5) - DINLGU <br />OWN(6) = OWN(6) - DINLGL <br />FLOW(193,J) = DINLGU + DINLGL <br />FLOW(196,J) = OWN(5) + OWN(6) <br />NP PROJECT STORAGE SECOND FROM RESD. PATHF IN GUERNSEY <br />DELNPl = AMIN1(OWN(8),TTFNPP) <br />TTFNPP = TTFNPP - DELNPl <br />STORAGE WATER THIRD FROM GUERNSEY OWNERSHIP <br />DELNP2 = AMIN1(OWN(4),TTFNPP) <br />TTFNPP = TTFNPP - DELNP2 <br />STORAGE WATER FOURTH FROM PATHFINDER OWNERSHIP <br />DELNP3 = AMIN1(OWN(2),TTFNPP) <br />RESET OWNERSHIP FOR DELIVERY <br />OWN(8) = OWN(8) - DELNPl <br />OWN(4) = OWN(4) - DELNP2 <br />OWN(2) = OWN(2) - DELNP3 <br />SET DELIVERIES AND EOM OWNERSHIPS <br />FLOW(176,J) = DELNPl + DELNP3 <br />FLOW(179,J) = OWN(8) + OWN(2) <br />FLOW(187,J) = DELNP2 <br />FLOW(190,J) = OWN(4) <br />ENDIF <br />IF MONTH IS SEPTEMBER RESET PATH OWNERSHIP IN GURENSEY TO GUERN. STOR <br />IF(J.EQ.12) THEN <br />OWN(8) = FLOW(46,J) <br />OWN(2) = OWN(2) - OWN(8) <br />ENDIF <br />DEER CREEK OPERATIONS IF INCLUDED <br />IF(CDATA(84).EQ.l.) THEN <br />CALL DRCRK(DCFLAG,EXCESS) <br />