WSPC07132

• File Number: 8408
• Description: River Basin General Correspondence
• State: CO
• Basin: South Platte
• Water Division: 1
• Date: 6/7/1991
• Title: Platte River Evaluation: USBR - North Platte River Simulation Model Documentation
• Water Supply Pro - Doc Type: Data

\ "
,,'(.,OOaS81
RFLO(K)= RFLO(K) + DEL
RST(M) = RST(M) + DEL
DEL = AMAX1(0.,RST(M)-XST(M),
lAMIN1(RST(M)-TARST(M,J),XPOW(M)-RRE(M)))
RST(M) = RST(M) - DEL
RRE(M) = RRE(M) + DEL
250 CONTINUE
C ******** INCREMENT REACH 8 FLOW
RFLO(B) = RFLO(B) + DEL
C ******SHIFT WATER DOWN TO GLENDO TO AVOID UNDULY LARGE SUMMER PATHFINDER
C ****** RELEASES. THE AMOUNT OF WATER MOVED IS LIMITED BY THE PATHFINDER
C ****** OUTLET CAPACITY AND LIl1ITED TO THE THE TOTAL OF SEMINOE AND PATHFINDER
C ****** STORAGE LESS THE SUM OF THE RESERVE REQUIREMENTS, REGARDLESS OF THE
C ****** RELATIVE STORAGES IN THE TWO RESERVOIRS.
DEL = AMAX1(0.,AMIN1(RST(1)+RST(3)-YST(1,J)-YST(3,J),
lXRE(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 = AMAX1(0.,AMIN1(YST(3,J)-RST(3),RST(6)-YST(6,J)))
RST(3) = RST(3) +DEL
RFLO(3) = RFLO(3) + DEL
RRE(l) = RRE(l) + DEL
RST(l) = RST(l) - DEL
RRE(2) = RRE(2) + DEL
C **********************************************************************
C THE FOLLOWING CODE Y~INTAINS TARGET FLOOD CONTROL STORAGE IN THE
C RESERVOIRS, EVEN THOUGH IT IS NOT AN AUTHORIZED PURPOSE. IF POSSIBLE,
~ FLOWS ARE KEPT BELOW FLOOD LEVELS ON A MONTHLY BASIS; IT IS IMPOSSIBLE TO
)0 FLOOD ROUTING IN A MONTHLY MODEL, AND FLOWS DO NOT REPRESENT INSTANT-
C ANEOUS PEAKS. REAL TIME FLOOD OPERATIONS P~Y 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 PROGRN~1ED BELOW MOVES WATER IN FLOOD STORAGE ABOVE CASPER
C DOWNSTREAM, REGARDLESS OF CONDITIONS BELOW GLENDO. GIVEN THE LEVELS OF
C DEVELOPJ1ENT, 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 *********************************************************************
DEL = AMAX1(0.,AMIN1(RST(1)-FLST(l,J),XRE(1)-RRE(1),
IFLEV(6) - RFLO(6)+XST(6)-RST(6)))
RST(l) = RST(l)-DEL
RRE(l) = RRE(l) + DEL
C ******* ROUTE SEMINOE RELEASE THROUGH DOWNSTREN1 RESERVOIS, FILL, CONTROLLED
C ******* RELEASE, SPILL
DO 260 M=2,7
K = M
RFLO(K) = RFLO(K)+DEL
RST(M)= RST(M)+DEL
DEL = AMAXl (0. , N1INl (RST (M) -FLST (M, J) , XRE (11) -RRE (M)))
DEL = DEL + N1AX1(0.,RST(M)-DEL-XST(M))
RST(M) = RST(M)-DEL
RRE(M) = RRE(M) + DEL
260 CONTINUE
RFLO(6) = RFLO(6)+DEL
C *********************************************************************