Laserfiche WebLink
<br />:J '~O~ Sf5 <br /> <br />" <br /> <br />C SET OPERATIONAL WATER FLOW ARRAY <br />FLOW(207,J) = DELOP1+DELOP2+DELOP3 <br />C RE!1)UNIlJG OPERATIONAL WATER BELOW GUERNSEY <br />C TAKE FRO!1 GLENDO OWNERSHIP <br />IF(CDATA(83) .LT.(OWN(3)-TTFGLN)) THEN <br />DELOP4 = AMIN1(TTFOP1, (OWN(3)-TTFGLN)-CDATA(83)) <br />ELSE <br />DELOP4 = 0.0 <br />ENDIF <br />OWN(3) = OWN(3) - DELOP4 <br />FLOW(201,J) = DELOP4 <br />TTFOPl = TTFOPl - DELOP4 <br />C REMAINING OPERATIONAL WATER ALCOVA - GLEN DO <br />C TAKE FROM PATHFINDER OWNERSHIP <br />FLOW(177,J) = TTFOP2 <br />OWN(2) = OWN(2) - FLOW(177,J) <br />C REMAINING OPERATIONAL WATER BELOW GUERNSEY <br />C TAKE FROM PATHFINDER OWNERSHIP <br />FLOW(177,J) = FLOW(177,J) + TTFOPl <br />OWN(2) = OWN(2) - TTFOPl <br />C FLOOD SPILL <br />C FIRST TAKE FLOOD SPILL FROM EXCESS (LOWER) <br />FLSPl = AMIN1(OWN(9),TTFFSP) <br />TTFFSP = TTFFSP - FLSPl <br />OWN(9) = OWN(9) -FLSPl <br />C SECOND TAKE FLOOD SPILL FRO!1 EXCESS (UPPER) <br />FLSP2 = AMIN1(OWN(lO),TTFFSP) <br />TTFFSP = TTFFSP - FLSP2 <br />OWN(lO) = OWN(lO) - FLSP2 <br />C THIRD TAKE FLOOD SPILL FRO!1 GLEN DO IF OWNERSHIP > 65 KAF <br />IF(CDATA(83) .LT.OWN(3)-TTFGLN) THEN <br />FLSP3 = AMIN1(TTFFSP, (OWN(3)-TTFGLN)-CDATA(83)) <br />ELSE <br />FLSP3 = 0.0 <br />ENDIF <br />OWN(3) = OWN(3) -FLSP3 <br />TTFFSP = TTFFSP - FLSP3 <br />C FOURTH FRO!1 KENDRICK OWNERSHIP <br />FLSP4 = AMIN1(OWN(1),TTFFSP) <br />OWN(l) = OWN(l) - FLSP4 <br />TTFFSP = TTFFSP - FLSP4 <br />C FIFTH FROM PATHFINDER OWNERSHIP <br />FLSP5 = TTFFSP <br />OWN(2) = OWN(2) - FLSP5 <br />C SET FLOOD SPILL FLOW VARIABLE <br />C EXCESS TO OWNERSHIP <br />FLOW(208,J) = FLSPl + FLSP2 <br />C GLEN DO <br />FLOW(202,J) = FLSP3 <br />C KENDRICK <br />FLOW(183,J) = FLSP4 <br />FLOW(184,J) = OWN(l) + OWN(ll) <br />C PATHFINDER <br />FLOW(178,J) = FLSP5 <br />C DELIVERIES BELOW GUERNSEY <br />C FIRST MAKE FROM EXCESS <br />DELIVERIES TO NP PROJECT <br />DELSTl = AMIN1(OWN(9),TTFNPP) <br />TTFNPP = TTFNPP - DELSTl <br />OWN(9) = OWN(9) - DELSTl <br />