|
<br />OOC:54()
<br />
<br />TTLDIV - FLOW(77+52,J) . PRENAT
<br />TTLSTO - TTLSTO - STC
<br />TTLWYO - TTLWYO - TTLDIV
<br />IF(TTLWYO.LT.O.O) THEN
<br />WYOOVR - WYOOVR TTLWYO
<br />TTLWYO - 0.0
<br />ENDIF
<br />C GRATTAN CANAL (3rd. APPROPRIATION)
<br />PRENAT - FLOW(77+2S,J)
<br />TTLDIV - AMINI(FLOW(77+24,J)-FLOW(77+2S,J) ,DDATA(14) ,TTLWYO)
<br />FLOW(77+25,J) - FLOW(77+2S,J) + TTLDIV
<br />PRESTO - FLOW(77+26,J)
<br />FLOW(77+26,J) - FLOW(77+24,J) - FLOW(77+25,J)
<br />STC - FLOW(77+26,J) - PRESTO
<br />STC - AMINl(STG,TTLSTO)
<br />FLOW(77+26,J) - PRESTO + STC
<br />TTLSTO - TTLSTO - STG
<br />FLOW(77+25,J) - FLOW(77+24,J) FLOW(77+26,J)
<br />TTLDIV - FLOW(77+2S,J) - PRENAT
<br />TTLWYO - TTLWYO . TTLDIV
<br />IF(TTLWYO.LT.O.O) THEN
<br />WYOOVR - WYOOVR - TTLWYO
<br />TTLWYO - 0.0
<br />ENDIF
<br />C HILL CANAL
<br />FLOW(77+54,J) - HDATA(24,J)
<br />FLOW(77+S5,J) - AMINl(FLOW(77+S4,J),DDATA(15),TTLWYO)
<br />FLOW(77+S6,J) - FLOW(77+S4,J) - FLOW(77+5S,J)
<br />FLOW(77+56,J) - AMINl(FLOW(77+56,J),TTLSTO)
<br />FLOW(77+S5,J) - FLOW(77+54,J) - FLOW(77+56,J)
<br />TTLSTO - TTLSTO - FLOW(77+S6,J)
<br />TTLWYO = TTLWYO - FLOW(77+55,J)
<br />IF(TTLWYO.LT.O.O) THEN
<br />WYOOVR - WYOOVR TTLWYO
<br />TTLWYO - 0.0
<br />ENDIF
<br />C INTERSTATE CANAL (WYO)
<br />C CALCULATE PATHFINDER DISTRICT
<br />HDATA(33,J) - HDATA(32,J)-HDATA(23,J)-HDATA(24,J)
<br />FLOW(77+7S,J) - HDATA(33,J)
<br />FLOW(77+76,J) - AMINl(FLOW(77+75,J) ,DDATA(16) ,TTLWYO)
<br />TTLWYO - TTLWYO - FLOW(77+76,J)
<br />C FT. LARAMIE CANAL (COSHEN DIST.)
<br />FLOW(77+79,J) - HDATA(34,J) - HDATA(25,J)
<br />FLOW(77+80,J) - HDATA(34,J)-HDATA(3S,J)-HDATA(25,J)
<br />FLOW(77+81,J) - AMINl(FLOW(77+80,J) ,DDATA(17) ,TTLWYO)
<br />FLOW(77+82,J) - AMINl(TTLSTO,FLOW(77+80,J) - FLOW(77+81,J))
<br />FLOW(77+81,J) - FLOW(77+80,J) - FLOW(77+82,J)
<br />TTLWYO - TTLWYO - FLOW(77+81,J)
<br />IF(TTLWYO.LT.O.O) THEN
<br />WYOOVR - WYOOVR - TTLWYO
<br />TTLWYO - O. 0
<br />ENDIF
<br />C ROCK RANCH (2nd. APPROPRIATION)
<br />PRENAT - FLOW(77+3I,J)
<br />
<br />30
<br />
|