|
<br />000536
<br />
<br />ENDIF
<br />C NATURAL FLOW AT GUERNSEY
<br />c(17): compute natural flow into Guernsey and Guernsey storage release
<br />FLOW(77+II,J) - HDATA(Il,J) + HDATA(12,J)
<br />FLOW(77+l2,J) - FLOW(77+ll,J) - FLOW(77+l0,J)
<br />FLOW(77+l2,J) - AMAXl(FLOW(77+l2,J) ,0.0)
<br />C STORAGE RELEASE FROM GUERNSEY
<br />FLOW(77+l3,J) - HDATA(13,J)
<br />FLOW(77+l4,J) - AMINl(FLOW(77+l2,J),HDATA(13,J))
<br />FLOW(77+l4,J) - HDATA(13,J) - FLOW(77+l4,J)
<br />IF(PATHTR(J).GT.FLOW(77+l4,J)) THEN
<br />RESDL - AMINl(PATHTR(J),FLOW(77+l4,J))
<br />FLOW(77+l4,J) - FLOW(77+l4,J) - RESDL
<br />PATHTR(J) - PATHTR(J) - RESDL
<br />ENDIF'
<br />C PROPORTION GUERNSEY-WHALEN LOSS
<br />c(18): compute total natural flow at Whalen
<br />FLOW(77+15,J) - AMAXl(0.O,HDATA(13,J) + HDATA(14,J))
<br />IF (HDATA(14,J).LT.0.0) THEN
<br />FLOW(77+l7,J)-FLOW(77+l4,J)+((FLOW(77+l4,J)/HDATA(13,J))
<br />1*HDATA(14,J))
<br />ELSE
<br />FLOW(77+17,J) - FLOW(77+l4,J)
<br />ENDIF
<br />FLOW(77+16,J) - FLOW(77+l5,J) - FLOW(77+l7,J)
<br />FLOW(77+l6,J) - AMAXl(FLOW(77+l6,J) ,0.0)
<br />FLOW(77+l7,J) - FLOW(77+l5,J) - FLOW(77+l6,J)
<br />C NATURAL FLOW COMPUTATION WHALEN TO TRI-STATE
<br />c(19): compute natural flow at 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+l7,J).EQ.0.0) THEN
<br />FLOW(77+l8,J) - 0.0
<br />ELSE
<br />FLOW(77+l8,J) - ADATA(LJ+2,J)*(FLOW(77+l7,J)/FLOW(77+l5,J))
<br />ENDIF
<br />TTLSTO - FLOW(77+l7,J) - FLOW(77+l8,J)
<br />FLOW(77+l9,J) - TTLDIV
<br />FLOW(77+20,J) - HDATA(39 ,J)+HDATA(40,J)+HDATA(4l ,J)
<br />FLOW(77+2l,J)-TTLDIV+FLOW(77+20,J)-(FLOW(77+17,J)-FLOW(77+l8.J))
<br />FLOW(77+22,J) - 0.75*FLOW(77+2l,J)
<br />FLOW(77+23,J) - FLOW(77+2l,J) - FLOW(77+22,J)
<br />TTLWYO - FLOW(77+23,J)
<br />TTLNEB - FLOW(77+22,J)
<br />WYOOVR - 0.0
<br />C DISTRIBUTION OF NATURAL FLOW TO WYOMING CANALS
<br />c(20): distribute natural flow to Wyoming canals,
<br />c compute remaining storage and Wyoming natural flow,
<br />
<br />26
<br />
|