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

.'

.I,! .";/ ~
UU,_I~"1:v

TTLEVP~FLOW(2,J)+FLOW(8,J)+FLOW(15,J)+FLOW(21,J)+FLOW(28,J)
++FLOW(35,J)+FLOW(42,J)
FLOW(210,J) ~ TTLSTOR - PRESTOR
PRESTOR - TTLSTOR
PATHFINDER INITIAL OWNERSHIP

C

FLOW(179,J) - Ow1~(2) + Owl~(8)

C KENDRICK INITIAL OWNERSHIP
FLOW(184,J) - OWN(l) + OWN(ll)
C GUERNSEY INITIAL OWNERSHIP
FLOW(190,J) - OWN(4)
C GLENDO INITIAL OWNERSHIP
FLOW(203,J) ~ OWN(3)
C INLAND LAKES INITIAL OWNERSHIP
FLOW(196,J) - OWN(5) + OWN(6)
C ETO INITIAL OWNERSHIP
FLOW(209,J) - OWN(7)
C COMPUTE OWNERSHIP EVAPORATION
C(30): compute Pathfinder ownership evaporation
PP ~ OWN(2)
AR - COEFFS(l,3)*PP**COEFFS(2,3)
EVPATH - AR*AVEV(J,3)
C PATHFINDER EVAPORATION IN GUERNSEY RESERVOIR
IF(STORE(l).NE.O.) THEN
EVPTGU ~ (OWN(8)jSTORE(1))*FLOW(42,J)
ELSE
EVPTGU - 0.0
ENDIF
C TOTAL PATHFINDER EVAPORATION
FLOW(174,J) - EVPATH + EVPTGU
C(31): compute KENDRICK OWNERSHIP EVAPORATION
SK - OWN(l) + OWN(ll) - STORE(3)
AR - COEFFS(1,1)*SK**COEFFS(2,l)
SEMEVP - AR*AVEV(J,l)
FLOW(180,J) - SEMEVP + FLOW(21,J)
C(32): compute INLAND LAKES OWNERSHIP EVAPORATION
IF(STORE(2).NE.O.) THEN
EVILGL - (O.~(6)jSTORE(2))*FLOW(35,J)
ELSE
EVILGL - O.
ENDIF
IF(STORE(l).NE.O.) THEN
EVILGU - (OWN(5)jSTORE(1))*FLOW(42,J)
ELSE
EVILGU - O.
END IF
FLOW(191,J) - EVILGL + EVILGU
C(33): compute GUERNSEY OWNERSHIP EVAPORATION
GR - OWN(4)
AR - COEFFS(l,7)*GR**COEFFS(2,7)
FLOW(185,J) - AR*AVEV(J,7)
C(34): compute EXCESS OWNERSHIP EVAPORATION
C COMPUTED AS IF ALL IN GLENDO RESERVOIR
FLOW(204,J) - (OWN(7)jSTORE(2))*FLOW(35,J)
C(35): compute GLENDO OWNERSHIP EVAPORATION
C TTLEVP - FLOW(2,J)+FLOW(8,J)+FLOW(15,J)+FLOW(21,J)+FLOW(28,J)

36