Laserfiche WebLink
<br />. <br /> <br />000524 <br /> <br />DCFLAG - O. <br />ENDIF <br />c(3): Set storage and release values for each reservoir, and <br />c non-flood flow for each reach <br />DO 20 K - 1,7 <br />DO 10 L - 1, 12 <br />TARST(K,L) - ADATA(K,L) <br />FLST(K,L) - ADATA(K+7,L) <br />YST(K,L) - ADATA(K+14,L) <br />YRE(K,L) - ADATA(K+2l,L) <br />10 CONTINUE <br />XST(K) - CDATA(K) <br />XRE(K) - CDATA(K+7) <br />XPOW(K) - CDATA(K+14) <br />FLEV(K) - CDATA(K+21) <br />20 CONTINUE <br />FLEV(8) - CDATA(29) <br />RST(7) - CDATA(36) <br />RST(6) - CDATA(3S) <br />RST(S) - CDATA(34) <br />RST(4) - CDATA(33) <br />RST(3) - CDATA(32) <br />RST(2) - CDATA(31) <br />RST(l) CDATA(30) <br />TSHORT - O. <br />TDEM - O. <br />c(4): Assign or compute reach inflow and demand <br />30 INF(l) - HDATA(l,J) <br />INF(2) - 0.0 <br />INF(3) - HDATA(4,J) <br />INF(4) - HDATA(6,J) <br />INF(S) - 0.0 <br />INF(6) - HDATA(lO,J) - FLOW(224,J) <br />INF(7) - HDATA(12,J) <br />INF(8) - HDATA(14,J) <br />C LARAMIE RIVER [1. - OFF O. - ON] <br />IF(ADATA(32,J).EQ.1.) THEN <br />RIVLAR - 0.0 <br />ELSE <br />RIVLAR - HDATA(36,J) <br />ENDIF <br />SUMINF - RIVLAR+HDATA(37,J)+HDATA(38,J) <br />C SET PREVIOUS MONTH STORE OF GUERNSEY AND GLENDO RESERVOIRS <br />DO 40 II - 7,1,-1 <br />STORE(8-II) - RST(II) <br />40 CONTINUE <br />C *******NOTE: THIS AREA SETS KTDEM(K,),K-1,7 <br />KTDEM(1) - 0.0 <br />KTDEM(2) - 0.0 <br />KTDEM(3) - 0.0 <br />KTDEM(4) - HDATA(7,J) <br />KTDEM(S) - 0.0 <br />KTDEM(6) - 0.0 <br />KTDEM(7) - 0.0 <br />SUMDEM - 0.0 <br /> <br />14 <br />