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

, '",~~ tI
.' 'Oem t~

CALL GURACC(NPASS)
ENDIF
C CHECK IF GLENDO RESERVOIR HAS FILLED
IF(OWNACC(3).LT.OWNMAX(3)) THEN
C CALL GLEN DO OWNERSHIP ACCRURAL
CALL GLNACC(NPALC,NPSEM,NPGLN)
ENDIF
C CHECK IF PATHFINDER HAS FILLED
IF(OWNACC(2).LT.OWNMAX(2)) THEN
C CALL PATHFINDER OWNERSHIP ACCRURAL
CALL PATACC(NPASS)
ENDIF
C CHECK IF KENDRICK HAS FILLED
IF((OWNACC(1)+OWNACC(7)).LT.(OWNMAX(1)+OWNMAX(6))) THEN
C CALL KENDRICK OWNERSHIP ACCRURAL
CALL AKENACC(NPALC,NPSEM)
ENDIF
C INLAND LAKES ACCRURAL WYOMING CLAIM
IF(CDATA(82).EQ.O.) THEN
IF(DCFLAG.EQ.l.) THEN
C CHECK IF INLAND LAKES HAS FILLED
IF(OWNACC(5).LT.OWNMAX(5)) THEN
CALL AINLWY(NPALC,NPSEM,NPGLN)
ENDIF
ENDIF
ENDIF
C EXCESS TO OWNERSHIP ACCRURAL
CALL ETOACC(EXCESS)
C TOTAL ACCRURALS
OWNGN = FLOW(175,J)+FLOW(181,J)+FLOW(186,J)+FLOW(192,J)
1+FLOW(198,J)+FLOW(205,J)
DETERMINE OWNERSHIP ACCOUNT DELIVERY
IF(J.LT.8) THEN
IF(FLOW(43,J).GT.0.) THEN
DELPTl = 0.0
DELPT2 = 0.0
DELGUR = 0.0
DELINL = 0.0
C FIRST MAKE DELIVERY AT GUERNSEY FROM PATH. IN GUERNSEY
DELPTl = AMINl(OWN(8),FLOW(43,J))
RELRSD = FLOW(43,J) - DELPTl
C SECOND MAKE DELIVERY FROM INLAND LAKES
DELINL = AMINl(RELRSD,FLOW(196,J))
RELRSD = RELRSD - DELINL
C THIRD MAKE RES. DELIVERY FROM GUERNSEY OWNERSHIP
DELGUR = AMINl(RELRSD,FLOW(190,J))
RELRSD = RELRSD - DELGUR
C FOURTH MAKE RES. DELIVERY FROM PATHFINDER OWNERSHIP
DELPT2 = AMINl(RELRSD,OWN(2))
C PATHFINDER DELIVERIES
FLOW(176,J) = DELPTl + DELPT2
OWN(2) = OWN(2) - DELPT2
OWN(8) = OWN(8) - DELPTl
FLOW(179,J) = OWN(2) + OWN(8)
C GUERNSEY DELIVERIES
FLOW(187,J) = DELGUR
FLOW(190,J) = FLOW(190,J) - FLOW(187,J)
L INLAND LAKES DELIVERY
FLOW(193,J) = DELINL
FLOW(196,J) = FLOW(196,J) - FLOW(193,J)