Laserfiche WebLink
<br />.O~O~9~ <br /> <br />ENDIF <br />FLOW(209,J) = QWN(9) + OWN(10) <br />C SET RESIDUAL REACH GAIN <br />C SEMINOE INFLOW <br />GAIN(l) = FLOW(l,J) <br />KORTES TO PATHFINDER GAIN <br />GAIN(2) = FLOW(13,J) <br />C PATHFINDER TO ALCOVA GAIN <br />GAIN(3) = FLOW(20,J) - FLOW(16,J) <br />C ALCOVA TO GLEN DO GAIN <br />GAIN(4) = FLOW(33,J) <br />C GLEN DO TO GUERNSEY GAIN <br />GAIN(5) = FLOW(40,J) <br />SYSINF = 0.0 <br />DO 45 I I = 1, 5 <br />SYSINF = SYSINF + GAIN(II) <br />45 CONTINUE <br />C COMPUTE STORAGE OWNERSHIP ACCRURAL <br />C CHECK FOR GUERNSEY RELEASE MAY-SEP <br />IF(J.GT.7) THEN <br />RESDL = FLOW(90,J) - FLOW(91,J) <br />C DELIVER REMAINING INLAND LAKES WATER <br />C CHECK IF STORAGE WATER BEING RELEASED <br />IF(FLOW(210,J).GT.0.) THEN <br />DINLGU = AMIN1(RESDL,OWN(5)) <br />RESDL = RESDL - DINLGU <br />DINLGL = AMIN1(RESDL,OWN(6)) <br />RESDL = RESDL - DINLGL <br />OWN(5) = OWN(5) - DINLGU <br />OWN(6) = OWN(6) - DINLGL <br />FLOW(196,J) = OWN(5) + OWN(6) <br />FLOW(193,J) = DINLGU + DINLGL <br />ENDIF <br />ELSE <br />RESDL = 0.0 <br />ENDIF <br />C FIRST MEET GUERNSEY RELEASE FROM REACH GAINS <br />DO 50 II = 5,1,-1 <br />IF(GAIN(II).GE.RESDL) THEN <br />GAIN(II) = GAIN(II) - RESDL <br />RESDL = O. <br />ELSE <br />RESDL = RESDL - GAIN(II) <br />GAIN(II) = 0.0 <br />ENDIF <br />50 CONTINUE <br />C CHECK INLAND LAKES ACCRURAL [NEBjWYO] <br />IF(CDATA(82).EQ.1) THEN <br />C NEBRASKA CLAIM FOR INLAND LAKES <br />IF(ADATA(31,J).EQ.1.) THEN <br />C CHECK IF INLAND LAKES HAS FILLED <br />IF(OWNACC(5).LT.OWNMAX(5)) THEN <br />C CALL INLAND LAKES ACCURAL <br />CALL AINLAC <br />ENDIF <br />ENDIF <br />END IF <br />~ CHECK IF GUERNSEY RESERVOIR HAS FILLED <br />IF(OWNACC(4).LT.OWNMAX(4)) THEN <br />C CALL GUERNSEY OWNERSHIP ACCRURAL <br />