WSPC07500

• File Number: 8408
• Description: River Basin General Correspondence
• State: CO
• Basin: South Platte
• Water Division: 1
• Date: 11/13/1991
• Author: Shuhai Zheng
• Title: Platte River Evaluation: USBR - Documentation of an Analysis of the Department of Water Resources June 1991 North Platte River Simulation Model
• Water Supply Pro - Doc Type: Data

.

'000527

C ****** STORAGE LESS THE SUM OF THE RESERVE REQUIREMENTS, REGARDLESS OF THE
C ****** RELATIVE STORAGES IN THE TWO RESERVOIRS.
e(8): Shift water in Seminoe and Pathfinder reservoirs to Glendo
c reservoir to avoid unduly large summer pathfinder release.
DEL - AMAXI(O. ,AMINI(RST(I)+RST(3).YST(I,J)-YST(3,J) ,
IXRE(3)-RRE(3),YST(6,J)-RST(6)))
RST(6) - RST(6) + DEL
RFLO(6) - RFLO(6) +DEL
RRE(3) - RRE(3) + DEL
RST(3) - RST(3) -DEL
C ***** TAKE WATER FROM SEMINOE TO REFILL PATHFINDER TO MIN STORAGE
DEL - AMAXI(0.,AMINI(YST(3,J)-RST(3),RST(6)-YST(6,J)))
RST(3) - RST(3) +DEL
RFLO(3) - RFLO(3) + DEL
RRE(I) - RRE(I) + DEL
RST(I) - RST(I) - DEL
RRE(2) - RRE(2) + DEL
C **********************************************************************
C THE FOLLOWING CODE MAINTAINS TARGET FLOOD CONTROL STORAGE IN THE
C RESERVOIRS, EVEN THOUGH IT IS NOT AN AUTHORIZED PURPOSE. IF POSSIBLE,
C FLOWS ARE KEPT BELOW FLOOD LEVELS ON A MONTHLY BASIS; IT IS IMPOSSIBLE TO
C DO FLOOD ROUTING IN A MONTHLY MODEL, AND FLOWS DO NOT REPRESENT INSTANT.
C ANEOUS PEAKS. REAL TIME FLOOD OPERATIONS MAY BE BETTER OR WORSE, DEPENDING
C ON AVAILABLE FORECASTS. THE CODE CAN BE USED TO TEST THE SENSITIVITY
C OF YIELD TO MAINTAINING TEMPORARY FLOOD CONTROL STORAGE IN THE
C RESERVOIRS.
C **********************************************************************
C THE RULE PROGRAMMED BELOW MOVES WATER IN FLOOD STORAGE ABOVE CASPER
C DOWNSTREAM, REGARDLESS OF CONDITIONS BELOW GLENDO. GIVEN THE LEVELS OF
C DEVELOPMENT, THIS MAY BE REASONABLE. SEMINOE IS EVACUATED FIRST, BECAUSE
C OF THE LIMITED RELEASE CAPACITY AT PATHFINDER (I.E. SO PATHFINDER CAN
C BE SPILLED.
C *********************************************************************
e(9): Move water in flood storage from Seminoe reservoir first, because
e of the limited release capacity at Pathfinder.
DEL - AMAXI(O. ,AMINI(RST(I)-FLST(I,J) ,XRE(I).RRE(I) ,
IFLEV(6) - RFLO(6)+XST(6)-RST(6)))
RST(I) = RST(I)-DEL
RRE(I) - RRE(I) + DEL
C ******* ROUTE SEMINOE RELEASE THROUGH DOWNSTREAM RESERVOIS, FILL, CONTROLLED
C ******* RELEASE, SPILL
c(lO): Route Seminoe release through downstream reservoirs, fill
c reservoir first, make controlled (normal) release and
e possible spill.
e The loop 260 should run only to M=5 (Gray Reef reservoir)!!!
DO 260 M-2,1
K - M
RFLO(K) - RFLO(K)+DEL
RST(M)- RST(M)+DEL
DEL - AMAXl(O.,AMINI(RST(M)-FLST(M.J),XRE(M)-RRE(M)))
DEL = DEL + AMAXl(O. ,RST(M)-DEL-XST(M))
RST(M) - RST(M)-DEL
RRE(M) = RRE(M) + DEL
260 CONTINUE
RFLO(6) = RFLO(6)+DEL

17