|
<br />OQu538
<br />
<br />TTLSTO ~ TTLSTO FLOW(77~3B,J)
<br />TTL~~O - TTL~~O FLOW(77~37,J)
<br />IF(TTLWYO.LT.O.O) THEN
<br />WYOOVR - ~~OOVR TTLWYO
<br />TTLWYO - 0.0
<br />ENDIF
<br />C TORRINGTON CANAL
<br />FLOW(77+39,J) - HDATA(20,J)
<br />FLOW(77~40,J) - AMINl(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) - AMINl(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 />C LUCERNE CANAL
<br />FLOW(77+42,J) - HDATA(21,J)
<br />FLOW(77+43,J) - AMINl(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) - AMINl(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 />C BURBANK CANAL (2nd. APPROPRIATION)
<br />PRENAT - FLOW(77+37,J)
<br />TTLDIV = AMINl(FLOW(77+36,J)-FLOW(77+37,J) ,DDATA(B) ,TTLWYO)
<br />FLOW(77+37,J) - FLOW(77+37,J) + TTLDIV
<br />PRESTO - FLOW(77+38,J)
<br />FLOW(77+38,J) - FLOW(77+36,J) - FLOW(77+37,J)
<br />STG = FLOW(77+38,J) - PRESTO
<br />STG - AMINl(STG,TTLSTO)
<br />FLOW(77+38,J) = PRESTO + STG
<br />FLOW(77+37,J) - FLOW(77+36,J) - FLOW(77+38,J)
<br />TTLSTO - TTLSTO - STG
<br />TTLDIV - FLOW(77+37,J) - PRENAT
<br />TTLWYO - TTLWYO - TTLDIV
<br />IF(TTLWYO.LT.O.O) THEN
<br />WYOOVR - WYOOVR - TTLWYO
<br />TTLWYO = O. 0
<br />ENDIF
<br />C NARROWS CANAL
<br />FLOW(77+45,J) - HDATA(22,J)
<br />FLOW(77+46,J) - AMINl(FLOW(77+45,J),DDATA(9),TTLWYO)
<br />FLOW(77~47,J) - FLOW(77+45,J) - FLOW(77+46,J)
<br />FLOW(77+47,J) - AMINl(FLOW(77+47,J),TTLSTO)
<br />FLOW(77+46,J) - FLOW(77+45,J) - FLOW(77+47,J)
<br />TTLSTO - TTLSTO FLOW(77+47,J)
<br />TTL~~O - TTLWYO FLOW(77+46,J)
<br />
<br />28
<br />
|