|
<br />C
<br />
<br />C
<br />
<br />C
<br />
<br />C
<br />
<br />, ,
<br />,
<br />
<br />"
<br />
<br />'~OOS9G
<br />
<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 />PRATT-FERRIS CANAL
<br />FLOW(77+33,J) = HDATA(1B,J)
<br />FLOW(77+34,J) = AMIN1(FLOW(77+33,J) ,DDATA(4) ,TTLWYO)
<br />FLOW(77+35,Jj = FLOW(77+33,Jj - FLUW(77+34,J)
<br />FLOW(77+35,J) = AMIN1(FLOW(77+35,J),TTLSTO)
<br />FLOW(77+34,J) = FLOW(77+33,J) - FLOW(77+35,J)
<br />TTLSTO = TTLSTO - FLOW(77+35,J)
<br />TTLWYO = TTLWYO - FLOW(77+34,J)
<br />IF(TTLWYO.LT.O.O) THEN
<br />WYOOVR = WYOOVR - TTLWYO
<br />TTLWYO = 0.0
<br />ENDIF
<br />BURBANK CANAL (1st. APPROPRIATION)
<br />FLOW(77+36,J) = HDATA(19,J)
<br />FLOW(77+37,J) = AMIN1(FLOW(77+36,J),DDATA(5),TTLWYO)
<br />FLOW(77+3B,J) = FLOW(77+36,J) - FLOW(77+37,J)
<br />FLOW(77+3B,J) = AMIN1(FLOW(77+3B,J),TTLSTO)
<br />FLOW(77+37,J) = FLOW(77+36,J) - FLOW(77+38,J)
<br />TTLSTO = TTLSTO - FLOW(77+3B,J)
<br />TTLWYO = TTLWYO - FLOW(77+37,J)
<br />IF(TTLWYO.LT.O.O) THEN
<br />WYOOVR = WYOOVR - TTLWYO
<br />TTLWYO = 0.0
<br />ENDIF
<br />TORRINGTON CANAL
<br />FLOW(77+39,J) = HDATA(20,J)
<br />FLOW(77+40,J) = AMIN1(FLOW(77+39,J),DDATA(6),TTLWYO)
<br />FLOW(77+41,J) = FLOW(77+39,J) - FLOW(77+40,J)
<br />FLOW(77+41,J) = AMIN1(FLOW(77+41,J),TTLSTO)
<br />FLOW(77+40,J) = FLOW(77+39,J) - FLOW(77+41,J)
<br />TTLSTO = TTLSTO - FLOW(77+41,J)
<br />TTLWYO = TTLWYO - FLOW(77+40,J)
<br />IF(TTLWYO.LT.O.O) THEN
<br />WYOOVR = WYOOVR - TTLWYO
<br />TTLWYO = 0.0
<br />ENDIF
<br />LUCERNE CANAL
<br />FLOW(77+42,J) = HDATA(21,J)
<br />FLOW(77+43,J) = AMIN1(FLOW(77+42,J),DDATA(7),TTLWYO)
<br />FLOW(77+44,J) = FLOW(77+42,J) - FLOW(77+43,J)
<br />FLOW(77+44,J) = AMIN1(FLOW(77+44,J),TTLSTO)
<br />FLOW(77+43,J) = FLOW(77+42,J) - FLOW(77+44,J)
<br />TTLSTO = TTLSTO - FLOW(77+44,J)
<br />TTLWYO = TTLWYO - FLOW(77+43,J)
<br />IF(TTLWYO.LT.O.O) THEN
<br />WYOOVR = WYOOVR - TTLWYO
<br />TTLWYO = 0.0
<br />ENDIF
<br />BURBANK CANAL (2nd. APPROPRIATION)
<br />PRENAT = FLOW(77+37,J)
<br />TTLDIV = AMIN1(FLOW(77+36,J)-FLOW(77+37,J) ,DDATA(8) ,TTLWYO)
<br />FLOW(77+37,J) = FLOW(77+37,J) + TTLDIV
<br />PRESTO = FLOW(77+3B,J)
<br />FLOW(77+3B,J) = FLOW(77+36,J) - FLOW(77+37,J)
<br />STG = FLOW(77+3B,J) - PRESTO
<br />
|