WSPC00985

• File Number: 8283.100
• Description: Colorado River Computer Models - Colorado River Simulation System - Reclamation - CORSIM
• State: CO
• Basin: Colorado Mainstem
• Water Division: 5
• Date: 5/1/1985
• Author: DOI-BOR
• Title: CRSS - Colorado River Simulation System - System Overview
• Water Supply Pro - Doc Type: Report/Study

. CRSM . . RSALT .
. . . .
. . . .
. . . .
. . . .
. . . .
. . . .
. . . .
. . . .
. . . .
. . . .
. *<<* .
. . ***********
. .
. . .***...***.
. *>>* MASSBAl .
. . . .
. . . .
. . . .
. "'<<* .
. . *******.*.*
. .
. . *"'...*"'****
. *>>* FLOWHT .
. . . .
. . . .
. . . .
. *<<* .
. . *****....*.
. .
. . ******...*.
. *>>* ACCUMUL .
. . . .
. . . .
. *<<* .
. . ******.....
. .
. . *****.*.*..
. *<>* SCRIB2 .
. . ....*.***..
. .
. . ****..*.***
. *>>* SEDADJ .
. . . .
. *<<* .
. . ...........
. .
. .
. .
. .
. .
. . ...........
. *>>* READER .
. *<<* .
. . **."'*......
. .
. .
. .
. .

COMPUTE A NEW eIR BASED ON THE CURRENT FLOW IN THE RIVER AND CURRENT CIR AND
THE QUANTITY AND QUALITY OF THE INFLOW AT THIS SEO. PT.
COMPUTE A NEW erR BASED ON TONS PICKUP OF A RETURN FLOW (IF APPLICABLE).
IF fLOW IN THE RIVER OR eIR IS NEGATIVE. PRINT MESSAGE.
STORE FLOW IN THE RIVER IN THE OlOT TABLE AND CIR IN THE WQAL TABLE.
PROCESSING OF THIS INFLOW IS COMPLETE. RETURN TO THE BEGINNING OF
RSALTIAND PROCESS THE NEXT SEO. PT.

o
o
.....
c:.:;
_.I
v.J

AFTER ALL SE~UENCE POINTS HAVE BEEN PROCESSED, COMPARE THE FLOW IN THE
RIVER AT EACH SEO. PT. STORED IN THE TQTOT TABLE (IN HYDRBAl) AND
THE QTOT TABLE (IN RSALT). IF MORE THAN 50 SEQ. PTS. HAVE FLOW
DIFFERENCES .GT. 100 AF, PRINT AN ERROR MESSAGE.

CHECK MASS BALANCE OF WATER IN THE SYSTEM FOR THE MONTH:
COMPUTE THE SUM OF ALL INFLOWS FOR THE MONTH.
COMPUTE THE SUM OF ALL DIVERSIONS, EVAPORATION. STORAGE. AND
FLOW OUT THE LAST REACH, FOR THE MONTH.
IF THE DIFFERENCE IN THE ABOVE SUMS IS .GT. 1000 AF, PRINT AN ERROR MESSAGE.

ADO THE MONTHLY SALT MASS AND FLOW AT SELECTED POINTS TO THE YEARLY
SALT MASS AND FLOW ACCUMULATORS.
IF THE MONTH = THE ENDING MONTH FOR THE ANNUAL SUMMARY TABLE,
ADD THE YEARLY SALT MASS AND FLOW TO THE OVERAll ACCUMUlATDRS, AND
COMPUTE THE YEARLY FLOW-WEIGHTED AVERAGE QUALITY AND SAVE IT.

ACCUMULATE DATA SELECTED FOR OUTPUT TO TAPEDIT.
IF 60 MONTHS OF DATA HAVE BEEN ACCUMULATED, CALL .SUBROUTINE SUMATE
TO COMPUTE ANNUAL DATA FRDM THE MONTHLY DATA, AND THEN WRITE THE 60 MONTHS
OF DATA TO THE INDEX-SEQUENTIAL RANDOM-ACCESS FILE.

IF THE PRINT OPTION IS ON, PRINT THE MONTHLY SUMMARY FOR EACH RESERVOIR.

UPDATE THE AREA-CAPACITY COEFFICIENTS, RULE CURVES. AND RESERVOIR CAPACITIES
AND CONTENTS TO'REFLECT SEDIMENT ACCUMULATION IN FLAMING GORGE, NAVAJO,
POWELL. AND MEAD.

IF THIS WAS THE FINAL MONTH AND YEAR OF THE RUN, SKIP DOWN TO
.BEGIN RUN COMPLETION..
INCREMENT THE MONTH,
IF THE MONTH .GT. 12, INCREMENT THE YEAR AND SET MONTH: 1.

IF IT IS TIME TO READ NEW CARD DATA (TRANSACTION DATA),
CAll READER AND READ IT,

GO BACK TO POINT .A" (uUST ABOVE THE CAll TO GETFlO FROM CRSM).

BEGIN RUN COMPLETION: