|
<br />, ,..: 'OOOSsa
<br />
<br />C GLENDO FLOOD CONTROL POOL OPERATION, EMPTY IF POSSIBLE, FILL IF
<br />C CURRENT DOWNSTREAM FLOWS TOO HIGH
<br />C ********************************************************************
<br />C
<br />C
<br />
<br />*******FILL FIRST WITH EXCESS FLOW, THEN DUMP TO FLOOD LEVEL
<br />*******OR CHANNEL CAPACITY OR, AT MIN, SPILL ADD NET TO FLOW,
<br />'******DECREMENT FROM STORAGE
<br />DEL=AMINl(RFLO(6), AMAXl(0.,RFLO(7)-FLEV(7),RFLO(8)-FLEV(8)
<br />1 + RST(7) - FLST(7,J)))
<br />DEL= AMAXl(0.,RST(6)+DEL-XST(6) ,AMINl(RST(6)-FLST(6,J),
<br />1 FLEV(7)-RFLO(7) ,FLEV(8)-RFLO(8) + FLST(7,J) - RST(7)))
<br />2 - DEL
<br />RST(6) = RST(6) - DEL
<br />RRE(6) = RRE(6) + DEL
<br />RFLO(7)=RFLO(7) + DEL
<br />C ******** ROUTE THROUGH GUERNSEY
<br />RST(7) = RST(7) + DEL
<br />DEL = AMAX1(0.,RFLO(8)-FLEV(8))
<br />DEL = AMAXl(0.,RST(7)+DEL-XST(7) ,AMINl(RST(7)-FLST(7,J),
<br />1 FLEV(8)-RFLO(8))) -DEL
<br />RST(7) = RST(7) - DEL
<br />RRE(7) = RRE(7) + DEL
<br />RFLO(8) = RFLO(8) + DEL
<br />C ********************************************************************
<br />C
<br />C
<br />C
<br />
<br />SET EVERYTHING
<br />********************************************************************
<br />
<br />******REACH RELATED JUNK
<br />RSHORT = O.
<br />DO 280 K=1,8
<br />KSHORT(K)=RDEM(K)
<br />280 CONTINUE
<br />EVAPORATION AS AVERAGE OF MONTHLY CONTENT
<br />DO 310 II = 7,1,-1
<br />C TEVAP = O.
<br />C STl = (RST(II) + STORE(8-II))j2.
<br />C IF(STl.LE.O.) GO TO 300
<br />C AR = O.
<br />C AR = COEFFS(1,II)*STl**COEFFS(2,II)
<br />C TEVAP = AR*AVEV(J,II)
<br />C 300 REVAP(II) = TEVAP
<br />C RST(II) = RST(II) - REVAP(II)
<br />C 310 CONTINUE
<br />C *********************************************************************
<br />C
<br />C
<br />
<br />~
<br />
<br />END MONTHLY LOOP, THEN ANNUAL LOOP
<br />*********************************************************************
<br />
<br />FLOW ( 1,J)= HDATA(l,J)
<br />FLOW ( 2,J)= REVAP(l)
<br />FLOW ( 3,J)= RRE(l)
<br />FLOW( 4,J)= PMAXl(O.,RRE(l)-XPOW(l))
<br />FLOW ( 5,J)= AMAXl(O.,RRE(l)-XRE(l))
<br />FLOW ( 6,J)= RST(l)
<br />FLOW ( 7,J)= FLOW(3,J)
<br />FLOW ( 8,J)= REVAP(2)
<br />FLOW ( 9,J)= RRE(2)
<br />FLOW ( 10,J)=AMAXl(0.,RRE(2)-XPOW(2))
<br />FLOW ( 11,J)=AMAXl(0. ,RRE(2)-XRE(2))
<br />FLOW ( 12,J)=RST(2)
<br />FLOW ( 13,J)=HDATA(4,J)
<br />FLOW ( 14,J)=FLOW(9,J)+FLOW(13,J)
<br />FLOW ( 15,J)=REVAP(3)
<br />FLOW ( 16,J)=RRE(3)
<br />
|