Laserfiche WebLink
<br />. <br /> <br />00"1)"3 <br />' ....'....0 <br /> <br />C NP PROJECT STORAGE WATER FIRST FROM REMAINING INLAND LAKES OWNERSHIP <br />DINLGU - &~INl(OWN(5),TTFNPP) <br />TTFNPP - TTFNPP - DINLGU <br />DINLGL - &~INl(OWN(6),TTFNPP) <br />TTFNPP - TTFNPP DINLGL <br />OWN(5) - OWN(5) - nTNT.r.u <br />OWN(6) - OWN(6) - DINLGL <br />FLOW(193,J) - DINLGU + DINLGL <br />FLOW(196,J) - OWN(5) + OWN(6) <br />C NP PROJECT STORAGE SECOND FROM RESD. PATHF IN GUERNSEY <br />DELNPl - AMINl(OWN(8),TTFNPP) <br />TTFNPP - TTFNPP - DELNPl <br />C STORAGE WATER THIRD FROM GUERNSEY OWNERSHIP <br />DELNP2 - AMINl(OWN(4),TTFNPP) <br />TTFNPP - TTFNPP - DELNP2 <br />C STORAGE WATER FOURTH FROM PATHFINDER OWNERSHIP <br />DELNP3 - AMINl(OWN(2),TTFNPP) <br />C RESET O,~ERSHIP FOR DELIVERY <br />OWN(8) - OWN(8) DELNPl <br />OWN(4) - 0,~(4) - DELNP2 <br />OWN(2) - OWN(2) . DELNP3 <br />C SET DELIVERIES AND EOM O,~ERSHIPS <br />FLOW(176,J) - DELNPl + DELNP3 <br />FLOW(179,J) - 0~~(8) + OWN(2) <br />FLOW(187,J) - DELNP2 <br />FLOW(190,J) - OWN(4) <br />ENDIF <br />C(54):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 />ENOl F <br />C(55):DEER CREEK OPERATIONS IF INCLUDED <br />IF(CDATA(84).EQ.l.) THEN <br />CALL DRCRK(DCFLAG,EXCESS) <br />C CHECK FOR REITERATION <br />IF(DCFLAG.EQ.1.) THEN <br />PRESTOR - PRE2 <br />DO 500 II - I,ll <br />OWN(lI) - OWNPRE(II) <br />500 CONTINUE <br />DO 510 II - 7,1,-1 <br />RST(II) - STORE(8-II) <br />O,~ACC(II) - PREACC(II) <br />510 CONTINUE <br />C RESET FLOW ARRAY FOR REITERATION <br />DO 520 II - 1,211 <br />FLOW(II,J) - 0.0 <br />520 CONTINUE <br />GO TO 30 <br />ELSE <br />c(56): update initail ownership and account information <br />PRE2 - PRESTOR <br />DO 530 II - I,ll <br />O,~PRE(II) - OWN(II) <br /> <br />23 <br />