|
<br />" oll1fG~ 1
<br />
<br />STG = AMIN1(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) = AMIN1(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) = AMIN1(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 />TTLWYO = TTLWYO - FLOW(77+46,J)
<br />IF(TTLWYO.LT.O.O) THEN
<br />WYOOVR = WYOOVR - TTLWYO
<br />TTLWYO = 0.0
<br />ENDIF
<br />C LINGLE CANAL
<br />FLOW(77+48,J) = HDATA(23,J)
<br />FLOW(77+49,J) = AMIN1(FLOW(77+48,J),DDATA(10) ,TTLWYO)
<br />FLOW(77+50,J) = FLOW(77+48,J) - FLOW(77+49,J)
<br />FLOW(77+50,J) = AMIN1(FLOW(77+50,J),TTLSTO)
<br />FLOW(77+49,J) = FLOW(77+48,J) - FLOW(77+50,J)
<br />TTLSTO = TTLSTO - FLOW(77+50,J)
<br />TTLWYO = TTLWYO - FLOW(77+49,J)
<br />IF(TTLWYO.LT.O.O) THEN
<br />WYOOVR = WYOOVR - TTLWYO
<br />TTLWYO = O. 0
<br />ENDIF
<br />C WRIGHT-MURPHY (1st. APPROPRIATION)
<br />FLOW(77+51,J) = HDATA(25,J)
<br />FLOW(77+52,J) = AMIN1(FLOW(77+51,J),DDATA(11),TTLWYO)
<br />FLOW(77+53,J) = FLOW(77+51,J) - FLOW(77+52,J)
<br />FLOW(77+53,J) = AMIN1(FLOW(77+53,J),TTLSTO)
<br />FLOW(77+52,J) = FLOW(77+51,J) - FLOW(77+53,J)
<br />TTLSTO = TTLSTO - FLOW(77+53,J)
<br />TTLWYO = TTLWYO - FLOW(77+52,J)
<br />IF(TTLWYO.LT.O.O) THEN
<br />WYOOVR = WYOOVR - TTLWYO
<br />TTLWYO = 0.0
<br />ENDIF
<br />C GRATTAN CANAL (2nd. APPROPRIATION)
<br />PRENAT = FLOW(77+25,J)
<br />TTLDIV = AMIN1(FLOW(77+24,J)-FLOW(77+25,J),DDATA(12),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 = AMIN1(STG,TTLSTO)
<br />FLOW(77+26,J) = PRESTO + STG
<br />FLOW(77+25,J) = FLOW(77+24,J) - FLOW(77+26,J)
<br />TTLDIV = FLOW(77+25,J) - PRENAT
<br />TTLSTO = TTLSTO - STG
<br />TTLWYO = TTLWYO - TTLDIV
<br />IF(TTLWYO.LT.O.O) THEN
<br />
|