Laserfiche WebLink
<br />. <br /> <br />'onnt:;"2 <br />VV\.I.) <br /> <br />FLSP3 - AMINl(TTFFSP,(0"~(3)-TTFGLN)-CDATA(83)) <br />ELSE <br />FLSP3 - 0.0 <br />ENDIF <br />0\JN(3) - 0\JN(3) -FLSP3 <br />TTFFSP - TTFFSP - FLSP'I <br />C FOURTH FROM KENDRICK OWNERSHIP <br />FLSP4 - AMINl(OWN(l).TTFFSP) <br />OWN(l) - OWN(l) - FLSP4 <br />TTFFSP - TTFFSP - FLSP4 <br />C FIFTH FROM PATHFINDER OWNERSHIP <br />FLSP5 - TTFFSP <br />0\JN(2) - OWN(2) - FLSP5 <br />C SET FLOOD SPILL FLOW VARIABLE <br />C EXCESS TO OWNERSHIP <br />FLOW(208.J) - FLSPl + FLSP2 <br />C GLENDO <br />FLOW(202.J) - FLSP3 <br />C KENDRICK <br />FLOW(183,J) - FLSP4 <br />FLOW(184,J) OWN(l) + O"~(ll) <br />C PATHFINDER <br />FLOW(178.J) FLSP5 <br />C DELIVERIES BELOW GUERNSEY <br />c(53): Take deliveries below Guernsey from O.~ership accounts <br />C FIRST MAKE FROM EXCESS <br />C DELIVERIES TO NP PROJECT <br />DELSTl - AMINl(OWN(9).TTFNPP) <br />TTFNPP - TTFNPP - DELSTl <br />OWN(9) - OWN(9) - DELSTl <br />DELST2 - AMINl(O\JN(lO).TTFNPP) <br />TTFNPP - TTFNPP - DELST2 <br />OWN(lO) - O\JN(lO) - DELST2 <br />C DELIVERIES TO GLENDO PROJECT <br />DELST3 - AMINl(OWN(9).TTFGLN) <br />TTFGLN - TTFGLN - DELST3 <br />OWN(9) - OWN(9) - DELST3 <br />DELST4 - AMINl(OWN(lO).TTFGLN) <br />TTFGLN - TTFGLN - DELST4 <br />OWN(lO) - OWN(lO) - DELST4 <br />C SET DELIVERIES FROM EXCESS AND EOM OWNERSHIP <br />FLOW(206,J) - DELSTl+DELST2+DELST3+DELST4 <br />FLOW(209.J) - O\JN(9) + OWN(lO) <br />OWN(7) - FLOW(209.J) <br />C DETERMINE GLENDO OWNERSHIP DELIVERIES AND EOM OWNERSHIPS <br />C NEBRASKA USERS <br />IF(TTFGLN.NE.O.) THEN <br />FLOW(199.J) - ((TTFGLN-FLOW(168.J))/TTFGLN)*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 />C DETERMINE NORTH PLATTE PROJECT DELIVERY <br /> <br />22 <br />