Laserfiche WebLink
<br />(lni1r;~l <br />\,jO....~ v U <br /> <br />IF(FLOW(B5,J),EQ.0.O) THEN <br />STORLS ~ FLOW(B2,J) - FLOW(B3,J) FLOW(84,J) <br />IF((FLOW(88,J)-FLOW(86,J)).LT.0.0) THEN <br />STORLS - STORLS + FLOW(86,J) - FLOW(8B,J) <br />ENDIF <br />ENDIF <br />TTFOP2 = TTFOP2 + STORLS <br />C(5l): take operational water from ownership accounts <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 - GLENDO <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 GUERNSEY <br />C TAKE FROM REMAINING EXCESS (UPPER) <br />DELOP3 - AMINl(TTFOPl,OWN(lO)) <br />TTFOPl ~ TTFOPl - DELOP3 <br />OWN(lO) - OWN(lO) - DELOP3 <br />C SET OPERATIONAL WATER FLOW ARRAY <br />FLOW(207,J) - DELOPl+DELOP2+DELOP3 <br />C REMAINING OPERATIONAL WATER BELOW GUERNSEY <br />C TAKE FROM GLENDO OWNERSHIP <br />IF(CDATA(B3).LT.(OWN(3)-TTFGLN)) THEN <br />DELOP4 - AMINl(TTFOPl,(OWN(3)-TTFGLN)-CDATA(B3)) <br />ELSE <br />DELOP4 - 0.0 <br />ENDIF <br />OWN(3) - OWN(3) - DELOP4 <br />FLOW(20l,J) - DELOP4 <br />TTFOPl - TTFOPl - DELOP4 <br />C REMAINING OPERATIONAL WATER ALCOVA - GLENDO <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(52): take flood spill from ownership accounts <br />C FIRST TAKE FLOOD SPILL FROM EXCESS (LOWER) <br />FLSPl - AMINl(OWN(9),TTFFSP) <br />TTFFSP = TTFFSP - FLSPl <br />OWN(9) = OWN(9) -FLSPl <br />C SECOND TAKE FLOOD SPILL FROM EXCESS (UPPER) <br />FLSP2 - AMINl(OWN(lO),TTFFSP) <br />TTFFSP = TTFFSP - FLSP2 <br />OWN(lO) - OWN(lO) - FLSP2 <br />C THIRD TAKE FLOOD SPILL FROM GLENDO IF OWNERSHIP > 65 KAF <br />IF(CDATA(B3).LT.OWN(3)-TTFGLN) THEN <br /> <br />21 <br />