|
<br />, ,..
<br />'.'l' ..
<br />.,);~00692
<br />
<br />WYOOVR = WYOOVR - TTLWYO
<br />TTLWYO = 0.0
<br />ENDIF
<br />C WRIGHT-MURPHY CANAL (2nd. APPROPRIATION)
<br />PRENAT = FLOW(77+52,J)
<br />TTLDIV = AMINl(FLOW(77+51,J)-FLOW(77+52,J),DDATA(13),TTLWYO)
<br />FLOW(77+52,J) = FLOW(77+52,J) + TTLDIV
<br />PRF.~'T'n = PT.("''lt.Jf''']'7....I;''l .T\
<br />------- .--..\" .....-,...,
<br />FLOW (77+53, J) = FLOW(77+51,J)- FLOW(77+52, J)
<br />STG = FLOW(77+53,J) - PRESTO
<br />STG = AMINl(STG,TTLSTO)
<br />FLOW(77+53,J) = PRESTO + STG
<br />FLOW(77+52,J) = FLOW(77+51,J) - FLOW(77+53,J)
<br />TTLDIV = FLOW(77+52,J) - PRENAT
<br />TTLSTO = TTLSTO - STG
<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+25,J)
<br />TTLDIV = AMINl(FLOW(77+24,J)-FLOW(77+25,J) ,DDATA(14),TTLWYO)
<br />FLOW(77+25,J) = FLOW(77+25,J) + TTLDIV
<br />PRESTO = FLOW(77+26,J)
<br />FLOW(77+26,J) = FLOW(77+24,J) - FLOW(77+25,J)
<br />STG = FLOW(77+26,J) - PRESTO
<br />STG = AMINl(STG,TTLSTO)
<br />FLOW(77+26,J) = PRESTO + STG
<br />TTLSTO = TTLSTO - STG
<br />FLOW(77+25,J) = FLOW(77+24,J) - FLOW(77+26,J)
<br />TTLDIV = FLOW(77+25,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+55,J) = AMINl(FLOW(77+54,J),DDATA(15) ,TTLWYO)
<br />FLOW(77+56,J) = FLOW(77+54,J) - FLOW(77+55,J)
<br />FLOW(77+56,J) = AMINl(FLOW(77+56,J),TTLSTO)
<br />FLOW(77+55,J) = FLOW(77+54,J) - FLOW(77+56,J)
<br />TTLSTO = TTLSTO - FLOW(77+56,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+75,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 (GOSHEN DIST.)
<br />FLOW(77+79,J) = HDATA(34,J) - HDATA(25,J)
<br />FLOW(77+80,J) = HDATA(34,J)-HDATA(35,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 />
|