|
<br />, '!l&og,f9
<br />:.{", .'
<br />, -,
<br />
<br />ENDIF
<br />FLOW(77+16,J) = FLOW(77+15,J) - FLOW(77+17,J)
<br />FLOW(77+16,J) = AMAX1(FLOW(77+16,J) ,0.0)
<br />FLOW(77+17,J) = FLOW(77+15,J) - FLOW(77+16,J)
<br />(' I;ATURAL FLOW COMPUTATION WHALEN TO TRI-STATE
<br />TTLWYO = 0.0
<br />DO 100 K = 15,22
<br />TTLWYO = TTLWYO + HDATA(K,J)
<br />100 CONTINUE
<br />TTLNEB = 0.0
<br />DO 150 K = 26,31
<br />TTLNEB = TTLNEB + HDATA(K,J)
<br />150 CONTINUE
<br />TTLDIV = HDATA(32,J) + HDATA(34,J) + TTLWYO + TTLNEB
<br />IF (FLOW(77+17,J).EQ.O.0) THEN
<br />FLOW(77+18,J) = 0.0
<br />ELSE
<br />FLOW(77+18,J) = ADATA(LJ+2,J)*(FLOW(77+17,J)/FLOW(77+15,J))
<br />ENDIF
<br />TTLSTO = FLOW(77+17,J) - FLOW(77+18,J)
<br />FLOW(77+19,J) = TTLDIV
<br />FLOW(77+20,J) = HDATA(39,J)+HDATA(40,J)+HDATA(41,J)
<br />FLOW(77+21,J)=TTLDIV+FLOW(77+20,J)-(FLOW(77+17,J)-FLOW(77+18,J))
<br />FLOW(77+22,J) = 0.75*FLOW(77+21,J)
<br />FLOW(77+23,J) = FLOW(77+21,J) - FLOW(77+22,J)
<br />TTLWYO = FLOW(77+23,J)
<br />TTLNEB = FLOW(77+22,J)
<br />I-IYOOVR = 0.0
<br />C DISTRIBUTION OF NATURAL FLOW TO WYOMING CANALS
<br />C GRATTAN CANAL (1st. APPROPRIATION)
<br />FLOW(77+24,J) = HDATA(15,J)
<br />FLOW(77+25,J) = AMIN1(FLOW(77+24,J) ,DDATA(l),TTLWYO)
<br />FLOW(77+26,J) = FLOW(77+24,J) - FLOW(77+25,J)
<br />FLOW(77+26,J) = AMIN1(FLOW(77+26,J) ,TTLSTO)
<br />FLOW(77+25,J) = FLOW(77+24,J) - FLOW(77+26,J)
<br />TTLSTO = TTLSTO - FLOW(77+26,J)
<br />TTLWYO = TTLWYO - FLOW(77+25,J)
<br />IF(TTLWYO.LT.O.O) THEN
<br />WYOOVR = I-IYOOVR - TTLWYO
<br />TTLI<1YO = 0.0
<br />ENDIF
<br />C NORTH PLATTE CANAL
<br />FLOW(77+27,J) = HDATA(16,J)
<br />FLOW(77+28,J) = AMIN1(FLOW(77+27,J) ,DDATA(2),TTLWYO)
<br />FLOW(77+29,J) = FLOW(77+27,J) - FLOW(77+28,J)
<br />FLOW(77+29,J) = AMIN1(FLOW(77+29,J),TTLSTO)
<br />FLOW(77+28,J) = FLOW(77+27,J) - FLOW(77+29,J)
<br />TTLSTO = TTLSTO - FLOW(77+29,J)
<br />TTLWYO = TTLWYO - FLOW(77+28,J)
<br />IF(TTLWYO.LT.O.O) THEN
<br />WYOOVR = WYOOVR - TTLWYO
<br />TTLWYO = 0.0
<br />ENDIF
<br />C ROCK RANCH CANAL (1st. APPROPRIATION)
<br />FLOW(77+30,J) = HDATA(17,J)
<br />FLOW(77+31,J) = AMIN1(FLOW(77+30,J),DDATA(3) ,TTLWYO)
<br />FLOW(77+32,J) = FLOW(77+30,J) - FLOW(77+31,J)
<br />FLOW(77+32,J) = AMIN1(FLOW(77+32,J),TTLSTO)
<br />FLOW(77+31,J) = FLOW(77+30,J) - FLOW(77+32,J)
<br />TTLSTO = TTLSTO - FLOW(77+32,J)
<br />
|