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

. CRS'"
.
.
*
*
*
*
*
*

*
.
*
*

.
*
*
.
.
*
*
*
.
.
.
.

*

.
*
*
.
*
.
.
.
*
.

.

.
*
*
.
.
*
.
.
*
*
*
*
.
*
*
*
*
*

.
*
*
*

. . SURPLUS .<<. APPOR .
. . .<<. .
. .. . .. ...
.. .. .. .. ..
.. .. . . ..
.. .. .. . ..
. . .. . .-
.. .. ... .. ..
. . .<<. .
... . . ... .
. . *' . .
. .. .. . ..
.. .. .. .. .
.. .. '" .. '"
.. .. .. .. '"
'" . '" '" ..
.. .. .. .. '"
.. '" '" .. ..
.. .. '" .. ..
.. '" . .. '"
.. .. .. .. ..
.. .. .. .. .-
.. .. . .. .
... .. '" .. ..
.. .. .. .. ..
.. .. .. . .
... .. . . ..
.. .. .. .. ..
.. .. '" '" ..
.. .. .. '" ..
.. .. .. .. ..
.. .. .. .. .
.. '" '" .. .
'" ... .. . .
.. . .. .. ..
.. '" .. '" ..

IF 105(6)52, BVPASS SHORTAGE STRATEGY. EXIT FROM SUBROUTINE APPOR.
IF MONTH.NE.1 AND SHORTAGE FLAG 0 (OFF), EXIT FROM SUBROUTINE APPOR.
IF MONTH.NE.1 AND SHORTAGE FLAG" 1 (ON). SKIP DOWN TO nBEGIN SHORTAGE
MONTHLY OISTRIBUTION."

[BEGIN ANNUAL SHORTAGE COMPUTATIONS,]
SET SHORTAGE FLAG' 0 (OFF).
IF THE ELEVATION OF MEAD .GT. THE SHORTAGE FLAG ELEVATION (THE ELEVATION OF
MEAD THAT TRIGGERS THE SHORTAGE CRITERIA). EXIT FROM SUBROUTINE APPQR.
SET SHORTAGE FLAG. 1 (ON).

<::>
c.:.
,....'
cr;r
C>
<I

[COMPUTE FIRST LEVEL OF SHORTAGES,]
ANNUAL SHORTAGES TO CAP = NORMAL ANNUAL DELIVERY TO CAP MINIMUM ANNUAL
DELIVERY TO CAP.
ANNUAL SHORTAGE TO SNWP (SOUTH~RN NEVADA WATER PROJECT) 4% OF THE ANNUAL
SHORTAGE TO CAP.
IF THE ANNUAL CONSUMPTIVE USE OF SNWP .LE. 256.000 AF. SET THE ANNUAL SHORTAGE
TO SNWP .. o.
COMPUTE A PROJECTED MEAD ELEVATION = THE ELEVATION MEAD WOULD BE AT IF CAP AND
SNWP WERE SHORTED BY THE ANNUAL AMOUNTS COMPUTED ABOVE.
IF THE PROJECTED MEAD ELEVATION .GT. THE MINIMUM MEAD ELEVATION (THE ELEVATION
OF MEAD THAT TRIGGERS THE ADDITIONAL LEVELS OF SHORTAGES), THEN KEEP THE
CURRENT LEVEL OF SHORTAGES ANO SKIP DOWN TO "BEGIN SHORTAGE MONTHLY
DISTRIBUTION. "

[CDMPUTE SECOND LEVEL OF SHORTAGES,]
DEFICIENCY" VOLUME OF MEAD AT MINIMUM MEAD ELEVATION - VOLUME OF MEAD AT THE
PROJECTED MEAD ELEVATION.
ANNUAL SHORTAGE TO SNWP = ANNUAL SHORTAGE TO SNWP + 4% OF DEFICIENCY.
IF THE ANNUAL SHORTAGE TO SNWP .GT. THE ANNUAL CONSUMPTIVE USE OF SNWP. SET
THE ANNUAL SHORTAGE TO SNWP = THE ANNUAL CONSUMPTIVE USE OF SNWP.
DEFICIENCY = DEFICIENCY - ANNUAL SHORTAGE TO SNWP.
ANNUAL SHORTAGE TO CAP = ANNUAL SHORTAGE TO CAP + DEFICIENCY.
IF DEFICIENCY .LE. THE MINIMUM DELIVERY TO CAP (I.E. CAP CAN TAKE ALL THE
DEFICIENCY), THEN KEEP THE CURRENT ANNUAL SHORTAGES AND SKIP DOWN TO "BEGIN
SHORTAGE MONTHLY DISTRIBUTION."

[COMPUTE THIRD LEVEL OF SHORTAGES']
ANNUAL SHORTAGE TO CAP = NORMAL ANNUAL DELIVERY TO CAP.
DEFICIENCY = DEFICIENCY - MINIMUM ANNUAL DELIVERY TO CAP. (THIS SETS THE
DEFICIENCY TO THE DEFICIENCY REMAINING AFTER CAP IS SHORTED TO ZERO.)
SHORT MEXICO IN PROPORTION TO UNITED STATES SHORTAGES: ANNUAL SHORTAGE TO
MEXICO = LAST YEAR'S UB SHORTAGES + ANNUAL SHORTAGES TO CAP AND SNWP,
PROPORTIONED BY THE RELATION OF MEXICO'S NORMAL DELIVERY TO THE TOTAL UB
AND LB USES.

. *
. *
* *
. *
. *
* .
* *
. *
* *
* *
. *
* *
* *
* .
. *
. .
. .
* *
. .
. *
. .
. *
* *

* .
. *
* *
. .
. .
* .
* .
* .
* *
* .
* *
* *
* *
* *
* *
. .
. .
. .
. *
. .
. .
* *
* *

*
*
*
*
*
*
*
.
.
.
*
*
.
*.
*
.
.
.
.
*
*
*
*

MONTHLY SHORTAGE TO SNWP '" THE ANNUAL SHORTAGE TO SNWP PROPORTIONED BY THE
RELATION OF THE NORMAL MONTHLY CONSUMPTIVE USE OF SNWP TO THE NORMAL ANNUAL
CONSUMPTIVE USE OF SNWP.
MONTHLY SHORTAGE TO MEXICO = THE ANNUAL SHORTAGE TO MEXICO PROPORtIONED BY THE
RELATION OF THE NORMAL MONTHLY DELIVERY TO MEXICO TO THE NORMAL ANNUAL
DELIVERY TO MEXICO.
MONTHLY SHORTAGE TO CAP = THE NORMAL MONTHLY DELIVERY TO CAP - THE MINIMUM
MONTHLY DELtVERY TO CAP (THIS IS THE FIRST LEVEL OF SHORTAGE). + AODITIONAL
LEVELS OF ANNUAL SHORTAGE PROPORTIONED BY THE RELATION OF THE MINIMUM
MONTHLY DELIVERY TO CAP TO THE MINIMUM ANNUAL DELIVERY TO CAP.
IF ANY OF THE MONTHLY SHORTAGE AMOUNTS ARE LESS THAN ZERO. SET THEM = ZERO.

BEGIN SHORTAGE MONTHLY DISTRIBUTION: