Laserfiche WebLink
<br />OQ115~5 <br /> <br />OWN(9) ~ CDATA(45) <br />C ETO FROM UPPER SYSTEM <br />OWN(lO) ~ CDATA(46) <br />C ALCOVA OWNERSHIP <br />OWN(ll) - CDATA(47) <br /> <br />,.. nT'", ~.. "'TT.n~u ,....,,...,roT'> ,...,'T n <br />v ~r;.J. !'~.Ll'lun UW!~L!'...:lll.1.r: <br /> <br />C <br /> <br />KENDRICK OWNERSHIP <br />OWNMAX(l) - CDATA(4B) <br />PATHFINDER O~~ERSHIP <br />OWNMAX(2) - CDATA(49) <br />GLENDO OWNERSHIP <br />OWNMAX(3) - CDATA(50) <br />GUERNSEY OWNERSHIP <br />OWNMAX(4) - CDATA(5I) <br />INLAND LAKES OWNERSHIP <br />OWNMAX(5) - CDATA(52) <br />ALCOVA OWNERSHIP <br />OWNMAX(6) ~ CDATA(53) <br />PRESTOR - 0.0 <br />DO 10 II - I, B <br />PRESTOR - PRESTOR + O~~(II) <br />10 CONTINUE <br />PRESTOR - PRESTOR + OWN(ll) <br />PREOWN ~ PRESTOR <br />PRE2 - PRESTOR <br />ENDIF <br />20 CONTINUE <br />c(28): set initial ownership filling status flags; <br />c set up initial ownership accounts. <br />IF(DCFLAG.EQ.l.) THEN <br />NPASS - 0 <br />NPSEM - 0 <br />NPALC - 0 <br />NPGLN - 0 <br />ENDIF <br />IF(J.EQ.l) THEN <br />NPASS = 0 <br />NPSEM - 0 <br />NPALC - 0 <br />NPGLN ~ 0 <br />DO 30 II - 1, 5 <br />OWNACC(II) - OWN(II) <br />30 CONTINUE <br />OWNACC(5) <br />OWNACC(6) <br />OWNACC(2) <br />OWNACC(7) <br />END IF <br />c(29): calculate change in 7 reservoirs' total storage; <br />c record initial ownerships. <br />C CALCULATE CHANGE IN STORAGE <br />TTLSTOR - FLOW(6,J)+FLOW(12,J)+FLOW(19,J)+FLOW(26,J)+FLOW(32,J) <br />++FLOW(39,J)+FLOW(46,J) <br />TTLINF-FLOW(l,J)+FLOW(13,J)+(FLOW(20,J).FLOW(16,J))+FLOW(33,J) <br />++FLOW(40,J) <br /> <br />C <br /> <br />C <br /> <br />C <br /> <br />C <br /> <br />C <br /> <br />- OWNACC(5) <br />- OWN(7) <br />= OWNACC(2) <br />- OWN(ll) <br /> <br />+ OWN(6) <br /> <br />+ OWN(B) <br /> <br />35 <br />