|
<br />IQO(}S~~
<br />
<br />FLOW (77+81, J) = FLOW (77+80, J) - FLOVI (77+82, J)
<br />TTLWYO = TTLWYO - FLOW(77+81,J)
<br />IF(TTLWYO.LT.O.O) THEN
<br />KYOOVR = WYOOVR - TTLWYO
<br />TTLWYO = 0.0
<br />ENDIF
<br />C ROCK RANCH (2nd. APPROPRIATION)
<br />PDPlJ:z..1"J"l = 1='1("\",-,1..,7.."1:1 .i'
<br />-..-...... ...............\..._-,-,
<br />TTLDIV = AMIN1(FLOW(77+30,J)-FLOW(77+31,J) ,DDATA(18),TTLWYO)
<br />FLOW(77+31,J) = FLOW(77+31,J) + TTLDIV
<br />PRESTO = FLOW(77+32,J)
<br />FLOW(77+32,J) = FLOW(77+30,J) - FLOW(77+31,J)
<br />STG = FLOW(77+32,J) - PRESTO
<br />STG = AMIN1(STG,TTLSTO)
<br />FLOW(77+32,J) = PRESTO + STG
<br />FLOW(77+31,J) = FLOW(77+30,J) - FLOW(77+32,J)
<br />TTLDIV = FLOW(77+31,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 DISTRIBUTION OF NATURAL FLOW TO NEBRASKA CANALS
<br />C FARMER'S IRRIGATION DISTRICT (1st. APPROPRIATION)
<br />TTLNEB = TTLNEB + TTLWYO - WYOOVR
<br />FLOW(77+57,J) = HDATA(26,J)
<br />FLOW(77+58,J) = AMINl(FLOW(77+57,J),DDATA(20) ,TTLNEB)
<br />FLOW(77+59,J) = FLOW(77+57,J) - FLOW(77+58,J)
<br />FLOW(77+59,J) = AMINl(FLOW(77+59,J),TTLSTO)
<br />FLOW(77+58,J) = FLOW(77+57,J) - FL01'1(77+59,J)
<br />TTLSTO = TTLSTO - FLOW(77+59,J)
<br />TTLNEB = TTLNEB - FLOW(77+58,J)
<br />C MITCHELL CANAL
<br />FLOW(77+60,J) = HDATA(27,J)
<br />FLOW(77+61,J) = AMIN1(FLOW(77+60,J),DDATA(21) ,TTLNEB)
<br />FLOW(77+62,J) = FLOW(77+60,J) - FLOW(77+61,J)
<br />FLOW(77+62,J) = AMINl(FLOW(77+62,J),TTLSTO)
<br />FLOW(77+61,J) = FLOW(77+60,J) - FLOW(77+62,J)
<br />TTLSTO = TTLSTO - FLOW(77+62,J)
<br />TTLNEB = TTLNEB - FLOW(77+61,J)
<br />C RAMSHORN CANAL
<br />FLOW(77+63,J) = HDATA(28,J)
<br />FLOW(77+64,J) = AMINl(FLOW(77+63,J),DDATA(22) ,TTLNEB)
<br />FLOW(77+65,J) = FLOW(77+63,J) - FLOW(77+64,J)
<br />FLOW(77+65,J) = AMINl(FLOW(77+65,J),TTLSTO)
<br />FLOW(77+64,J) = FLOW(77+63,J) - FLOW(77+65,J)
<br />TTLSTO = TTLSTO - FLOW(77+65,J)
<br />TTLNEB = TTLNEB - FLOW(77+64,J)
<br />C GERING CANAL
<br />FLOW(77+66,J) = HDATA(29,J)
<br />FLOW(77+67,J) = AMINl(FLOW(77+66,J) ,DDATA(23) ,TTLNEB)
<br />FLOW(77+68,J) = FLOW(77+66,J) - FLOW(77+67,J)
<br />FLOW(77+68,J) = AMINl(FLOW(77+68,J) ,TTLSTO)
<br />FLOW(77+67,J) = FLOW(77+66,J) - FLOW(77+68,J)
<br />TTLSTO = TTLSTO - FLOW(77+68,J)
<br />TTLNEB = TTLNEB - FLOW(77+67,J)
<br />C FARMER'S IRRIGATION DISTRICT (2nd. APPROPRIATION)
<br />PRENAT = FLOW(77+58,J)
<br />TTLDIV = AMINl(FLOW(77+57,J)-FLOW(77+58,J) ,DDATA(24) ,TTLNEB)
<br />
|