|
<br />0'0 n ~ ::>/'
<br />Ul..-\J~
<br />
<br />c compute Wyoming natural flow overdraw
<br />C GRATTAN CANAL (1st. APPROPRIATION)
<br />FLOW(77+24,J) ~ HDATA(lS,J)
<br />FLOW(77+2S,J) ~ AMIN1(FLOW(77+24.J),DDATA(1).TTLWYO)
<br />FLOW(77+26.J) - FLOW(77+24.J) - FLOW(77+2S.J)
<br />FLOW(77+26,J) = AMIN1(FLOW(77+26,J),TTLSTO)
<br />FLOW(77+2S.J) = FLOW(77+24.J) - FLOW(77+26,J)
<br />TTLSTO - TTLSTO - FLOW(77+26.J)
<br />TTLWYO - TTLWYO - FLOW(77+2S,J)
<br />IF(TTLWYO.LT.O.O) THEN
<br />WYOOVR - WYOOVR TTLWYO
<br />TTLWYO - O. 0
<br />ENDIF
<br />C NORTH PLATTE CANAL
<br />FLOW(77+27.J) - HDATA(I6.J)
<br />FLOW(77+28.J) = AMIN1(FLOW(77+27.J),DDATA(2),TTLWYO)
<br />FLOW(77+29,J) = FLOW(77+27,J) - FLOW(77+28,J)
<br />FLOW(77+29,J) - AMIN1(FLOW(77+29,J),TTLSTO)
<br />FLOW(77+28,J) = FLOW(77+27,J) - FLOW(77+29,J)
<br />TTLSTO ~ TTLSTO - FLOW(77+29.J)
<br />TTLWYO ~ TTLWYO . FLOW(77+28,J)
<br />IF(TTLWYO.LT.O.O) THEN
<br />WYOOVR - WYOOVR TTLWYO
<br />TTLWYO = 0.0
<br />ENDIF
<br />C ROCK RANCH CANAL (1st. APPROPRIATION)
<br />FLOW(77+30,J) ~ HDATA(17.J)
<br />FLOW(77+31,J) - AMIN1(FLOW(77+30.J) ,DDATA(3) ,TTLWYO)
<br />FLOW(77+32.J) - FLOW(77+30,J) - FLOW(77+31,J)
<br />FLOW(77+32,J) ~ AMIN1(FLOW(77+32,J).TTLSTO)
<br />FLOW(77+31.J) - FLOW(77+30,J) - FLOW(77+32,J)
<br />TTLSTO - TTLSTO - FLOW(77+32,J)
<br />TTLWYO - TTLWYO - FLOW(77+31,J)
<br />IF(TTLWYO.LT.O.O) THEN
<br />WYOOVR - WYOOVR TTLWYO
<br />TTLWYO = 0.0
<br />ENDIF
<br />C PRATT-FERRIS CANAL
<br />FLOW(77+33,J) - HDATA(18,J)
<br />FLOW(77+34,J) - AMIN1(FLOW(77+33.J),DDATA(4).TTLWYO)
<br />FLOW(77+3S,J) - FLOW(77+33.J) - FLOW(77+34,J)
<br />FLOW(77+3S.J) - AMIN1(FLOW(77+3S,J).TTLSTO)
<br />FLOW(77+34,J) - FLOW(77+33.J) - FLOW(77+3S,J)
<br />TTLSTO = TTL5TO - FLOW(77+3S,J)
<br />TTLWYO ~ TTLWYO . FLOW(77+34,J)
<br />IF(TTLWYO.LT.O.O) THEN
<br />WYOOVR - WYOOVR TTLWYO
<br />TTLWYO ~ O. 0
<br />ENDIF
<br />C BURBANK CANAL (1st. APPROPRIATION)
<br />FLOW(77+36.J) ~ HDATA(19,J)
<br />FLOW(77+37.J) - AMIN1(FLOW(77+36.J) ,DDATA(S) ,TTLWYO)
<br />FLOW(77+38,J) - FLOW(77+36.J) - FLOW(77+37,J)
<br />FLOW(77+38,J) = AMIN1(FLOW(77+38,J),TTLSTO)
<br />FLOW(77+37,J) - FLOW(77+36,J) - FLOW(77+38.J)
<br />
<br />27
<br />
|