|
<br />00069~
<br />. .
<br />
<br />FLOW(77+58,J) = FLOW(77+58,J) + TTLDIV
<br />PRESTO = FLOW(77+5~,J)
<br />FLOW(77+59,J) = FLOW(77+57,J) - FLOW(77+58,J)
<br />STG = FLOW(77+59,J) - PRESTO
<br />STG = AMINI(STG,TTLSTO)
<br />FLOW(77+59,J) = PRESTO + STG
<br />FLOW(77+58,J) = FLOW(77+57,J) - FLOW(77+59,J)
<br />TTLSTO = TTLSTO - STG
<br />TTLDIV = FLOW(77+58,J) - PRENAT
<br />TTLNEB = TTLNEB - TTLDIV
<br />C NORTH PORT CANAL FROM RIVER
<br />FLOW(77+72,J) = HDATA(3I,J)
<br />FLOW(77+73,J) = AMINl(FLOW(77+72,J),DDATA(27),TTLNEB)
<br />FLOW(77+74,J) = FLOW(77+72,J) - FLOW(77+73,J)
<br />FLOW(77+74,J) = AMINI(FLOW(77+74,J),TTLSTO)
<br />FLOW(77+73,J) = FLOW(77+72,J) - FLOW(77+74,J)
<br />TTLSTO = TTLSTO - FLOW(77+74,J)
<br />TTLNEB = TTLNEB - FLOW(77+73,J)
<br />C GERING - FT. LARAMIE DISTRICT
<br />FLOW(77+83,J) = HDATA(35,J)
<br />FLOW(77+84,J) = AMINI(FLOW(77+83,J),DDATA(25),TTLNEB)
<br />FLOW(77+85,J) = FLOW(77+83,J) - FLOW(77+84,J)
<br />FLOW(77+85,J) = AMINI(FLOW(77+85,J),TTLSTO)
<br />FLOW(77+84,J) = FLOW(77+83,J) - FLOW(77+85,J)
<br />TTLSTO = TTLSTO - FLOW(77+85,J)
<br />TTLNEB = TTLNEB - FLOW(77+84,J)
<br />C PATHFINDER DISTRICT (NE)
<br />PATHRMN = FLOW(77+75,J) - FLOW(77+76,J)
<br />FLOW(77+77,J) = AMINI (PATHRMN,DDATA(26) ,TTLNEB)
<br />FLOW(77+78,J) = PATHRMN - FLOW(77+77,J)
<br />FLOW(77+78,J) = AMINI(FLOW(77+78,J),TTLSTO)
<br />FLOW(77+77,J) = PATH~1N - FLOW(77+78,J)
<br />TTLSTO = TTLSTO - FLOW(77+78,J)
<br />TTLNEB = TTLNEB - FLOW(77+77,J)
<br />C FRENCH CANAL
<br />FLOW(77+69,J) = HDATA(30,J)
<br />FLOW(77+70,J) = AMINl(FLOW(77+69,J),DDATA(19)+DDATA(28) ,TTLNEB)
<br />FLOW(77+7I,J) = FLOW(77+69,J) - FLOW(77+70,J)
<br />FLOW(77+7I,J) = AMINI(FLOW(77+7I,J),TTLSTO)
<br />FLOW(77+70,J) = FLOW(77+69,J) - FLOW(77+7I,J)
<br />TTLSTO = TTLSTO - FLOW(77+7I,J)
<br />C GOVERNMENT CANAL DIVERSION SUMMARY
<br />FLOW(77+86,J) = FLOW(77+79,J) + FLOW(77+75,J) + FLOW(77+72,J)
<br />FLOW(77+87,J) = FLOW(77+76,J) + FLOW(77+8I,J) + FLOW(77+73,J)
<br />FLOW(77+87,J) = FLOW(77+87,J) + FLOW(77+77,J) + FLOW(77+84,J)
<br />FLOW(77+88,J) = FLOW(77+82,J) + FLOW(77+74,J) + FLOW(77+85,J)
<br />FLOW(77+88,J) = FLOW(77+88,J) + FLOW(77+78,J)
<br />C WARREN ACT CONTRACT DELIVERY WHALEN TO TRI-STATE
<br />FLOW(77+89,J) = FLOW(77+32,J) + FLOW(77+50,J) + FLOW(77+56,J)
<br />FLOW(77+89,J) = FLOW(77+89,J) + FLOW(77+68,J) + FLOW(77+47,J)
<br />FLOW(77+89,J) = FLOW(77+89,J) + FLOW(77+7I,J) + FLOW(77+35,J)
<br />FLOW(77+89,J) = FLOW(77+89,J) + FLOW(77+59,J) + FLOW(77+65,J)
<br />FLOW(77+89,J) = FLOW(77+89,J) + FLOW(77+29,J)
<br />C GLENDO CONTRACT DELIVERY WHALEN TO TRI-STATE
<br />FLOW(77+9I,J) = FLOW(77+26,J) + FLOW(77+38,J) + FLOW(77+4I,J)
<br />FLOW(77+9I,J) = FLOW(77+9I,J) + FLOW(77+53,J) + FLOW(77+44,J)
<br />FLOW(77+90,J) = FLOW(77+62,J)
<br />C Sm~1ARY PASSING TRI-STATE
<br />FLOW(77+92,J) = FLOW(77+20,J)
<br />FLOW(77+93,J)=FLOW(77+I7,J)-FLOW(77+I8,J)-FLOW(77+88,J)
<br />
|