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

*ot.****...****
,
.
* ***********

. CRSM
B .
.
.
*
.
*
*
" *
~. .
<<:l .
<:
.., *
ro *
0"1 .
'" *
*
*
t:l .
ro .
n-
'" *
~. *
~
ro *
CL *
" *
~ *
0 *
:E
() *
:::r *
'"
.., *
n- .
0 *
..." *
n- .
:::r *
ro
*
n .
:;0
V> .
3: A *
*
*
.
*
*
.
.
*
*
.
*
*
*
*
*
*
*
.
*

READ AND PROCESS THE RUN DATA.

*>>*
* *
, *
.
. .
. *
. *
* *
* *
* .
* .
. *
* .
* .
* .
* *
* *
* *
* *
* .
. .
. .
. .
. .
. .
. .
. .
. .
. *
. .
. .
. .

INITIAL *
.

INITIALIZE THE RUN:
GET DATE AND TIME. SET VALUES

o.

* ***********

SET VALUES = O.

*<>* RESBAL *

<::>
<::)
......
C-")
C?
~--

.. ********'t<**
* ***********
*<>>10 RANFSET .
. "'.....****.
.
. **.******1<*

SET RANDOM NUMBER GENERATOR SEED. (RANFSET IS AN ENTRY POINT IN RANF38.)

READ AND PROCESS INPUT DATA.

READ AND PROCESS INPUT DATA.

*<>* READER '"
. .*****1'1'.1'1'
.
. ,.**..**1'**.

SET UP TABLES. FLAGS, AND TIlLES.

CREATE THE INDEX-SEQUENTIAL RANDOM-ACCESS OUTPUT FILE.

.<>" CREATIS *
. *.******.*'"
'" WRITE HEADING INFORMATION TO THe INDEX-SEQUENTIAL FILE.
. READ GENERAL INFORMATION FROM THE HYDROLOGY FILE.

. ..**.........
.>>... GETFLO .
*<<>J .
. ..*....*...
. ..>t.****...
*<>* ACOMP ..
.. **.*...*...
. .**..*....*..

SET VALUES. O.
IF BEGINNING MONTH .NE.1 AND .L.E.9, READ SPRiNG RUNOFF DATA FOR THE YEAR.

SET INITIAL RESERVOIR ELEVATION AND AREA. IF THEY WEREN'T READ IN.

OEM

.

COMPUTE DIVERSION AND CONSUMPTIVE USE FOR EACH MONTH OF YEAR 1. FOR EACH
DEMAND.

.>>.

*<<* .
'" ............
. ...*.***...
.<>* FLOWHT .
. *........,...
.<<. .
. ...........
.
.
*
. ..*.....*..

SET VALUES

O. SET UP REACH INDICES.

BEGIN TO MODEL THE SYSTEM FOR A TIME PERIOD OF ONE MONTH.

IF MONTH=1. READ SPRING RUNOFF DATA FOR THE YEAR.
READ HYDROLOGY DATA FOR THE MONTH.

.>>. GETFLO .
.<<. .
. .*.........
.
. ***"'*......'"
"'<>. SNAPER .
. ............
. IF MONTH=1 AND YEAR.NE.1. CALL OEM:

IF THERE IS SNAPSHOT DATA. PROCESS THE DATA.

. .*.........
.>>. OEM .
.<<. .
. ."'..*......
*
. *.........*......
.>>* SURPLUS .
. . .

COMPUTE DIVERSION AND CONSUMPTIVE USE FOR EACH MONTH OF THE YEAR, FOR EACH
DEMAND.

DETERMINE THE MONTHLV RELEASES FROM LAKES POWELL AND MEAD:

. .

*

IF MDNTH=l. CAll SIXD2A:

--:--'ca::::::;:'

r=:::::-~_~-=:i------C::-:-