|
<br />Oon~/]
<br />UUv't ~
<br />
<br />TTLDIV - A~INl(FLOW(77+30,J).FLOW(77+3l,J),DDATA(18),TTLWYO)
<br />FLOW(77+3l,J) - FLOW(77+3l,J) + TTLDlV
<br />PRESTO - FLOW(77+32,J)
<br />FLOW(77+32,J) - FLOW(77+30,J) - FLOW(77+3l,J)
<br />STG - FLOW(77+32,J) - PRESTO
<br />
<br />C"",ro ,.UTl.l1 /('0""'" "''TIT C"""'"
<br />..JLU - n..J..l....1...L\J.LU, .LL.LoJ..LV/
<br />
<br />FLOW(77+32,J) - PRESTO + STG
<br />FLOW(77+3l,J) - FLOW(77+30,J) - FLOW(77+32,J)
<br />TTLDIV - FLOW(77+3I,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(2l): distribute natural flow to Nebraska canals
<br />C FARMER'S IRRIGATION DISTRICT (1st. APPROPRIATION)
<br />TTLNEB - TTLNEB + TTLWYO - WYOOVR
<br />FLOW(77+S7,J) - HDATA(26,J)
<br />FLOW(77+S8,J) - AMINl(FLOW(77+S7,J),DDATA(20) ,TTLNEB)
<br />FLOW(77+S9,J) - FLOW(77+S7,J) - FLOW(77+S8,J)
<br />FLOW(77+S9,J) - AMINl(FLOW(77+59,J),TTLSTO)
<br />FLOW(77+S8,J) - FLOW(77+57,J) - FLOW(77+59,J)
<br />TTLSTO - TTLSTO - FLOW(77+S9,J)
<br />TTLNEB - TTLNEB - FLOW(77+S8,J)
<br />C MITCHELL CANAL
<br />FLOW(77+60,J) - HDATA(27,J)
<br />FLOW(77+6l,J) -AMINl(FLOW(77+60,J),DDATA(21),TTLNEB)
<br />FLOW(77+62,J) - FLOW(77+60,J) - FLOW(77+6I,J)
<br />FLOW(77+62,J) = AMINl(FLOW(77+62,J),TTLSTO)
<br />FLOW(77+6l,J) - FLOW(77+60,J) - FLOW(77+62,J)
<br />TTLSTO - TTLSTO - FLOW(77+62,J)
<br />TTLNEB = TTLNEB - FLOW(77+6I,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+S8,J)
<br />TTLDIV - AMINl(FLOW(77+57,J)-FLOW(77+S8,J) ,DDATA(24) ,TTLNEB)
<br />FLOW(77+S8,J) - FLOW(77+58,J) + TTLDIV
<br />PRESTO - FLOW(77+S9,J)
<br />
<br />31
<br />
|