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

.,-.

,

..... 'OO~S8o.

ADD FLOW BELOW GUERNSEY, SATISFY REACH 6 DEMANDS FROM SPILL
IF((SUMDEM-SUMINF).LT.O.O) THEN
Su~INF = SUMINF - SUMDEM
ELSE
SUMINF = 0.0
ENDIF
REMFL = REMFL + INF(8)
RDEM(8) = KTDEM(8)
TDEM = TDEM + RDEM(8)
DEL = AMINI (REMFL, RDEM(8))
RDEM(8) = RDEM(8) - DEL
RFLO(8) = REMFL - DEL
C **********************************************************************
C
C

IF (STI .LE. 0.) GO TO 60
hR=O
AR = COEFFS(1,K)*STI**COEFFS(2,K)
TEVAP= AR*AVEV(J,K)
60 CONTINUE
REVAP(K)=TEVAP
RST(K)=RST(K)-REVAP(K)
DEL = AMAXI( -RST(K),AMIN1(REMFL-YRE(K,J),XST(K)-RST(K)))
H~~(K)=RST(K)+DEL
REMFL = REMFL - DEL
C ********INITIALIZE RUNNING RELEASE
RRE(K) = REMFL
210 CONTINUE
C *********************************************************************
C
C
C
C
C
C

TAKE REI1AINING REACH DEM.l\NDS FROM STORAGE, DOh'NSTREAM TO UP
**********************************************************************

DO 220 K=8,2,-1
M= K - 1
.******* THE INNER LOOP SATISFIES ALL REMAINING DEI1ANDS FROM DOWNSTREAM UP
C********* ANY PRIORITY ORDER COULD BE SUBSTITUED HERE
C********* SHORTAGE IS THE SUM OF ANY REMAINING REACH DEMANDS
DO 230 KK = 8,K,-1
C ******THE SECOND TERM XRE-RRE IS REMAINING OUTLET CAPACITY h'HILE
C ******* RST+RRE-XST IS WATER OVER SPILLWAY. THE MAX RELEASE IS THE SUM
C ******* OF THE TWO.
DEL = AMIN1(RDEM(KK),XRE(M)-RRE(M)+
1 AMAXI(O.,RST(M)+RRE(M)-XST(M)) ,AMAX1(0. ,RST(M)-YST(M,J)))
RDEM(KK) = RDEM(KK)-DEL
RST(M) = RST(M) - DEL
RRE(M) = RRE(M) + DEL
c********* ADD RELEASE TO REACH FLOWS ABOVE KK
IF (KK.EQ.K) GO TO 230
DO 240 KKK = KK-l,K,-l
RFLO(KKK) = RFLO(KKK)+DEL
RRE(KKK) =RRE (KKK) +DEL
240 CONTINUE
230 CONTINUE
220 CONTINUE
C ***********************************************************************
C NOW MOVE WATER DOWNSTREAM TO SATISFY MINIMUl1 FLOW REQUIREMENTS GENERATE
C POWER, AND GENERALLY BALANCE THE SYSTEM
C ***********************************************************************
C GENERATE POWER DOWN TO TARGET STORAGE OR PLANT CAPACITY OR DOWNSTREAM
LIMIT
DEL = O.
DO 250 M=l,7
K = M