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

.

"

C
C
C
C
C
C

c

C
C
C
C
ARRAY
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C

'a00513

SHOULD BE AS FOLLOWS

SUBROUTINE COMPUTE
COMMON STATEMENT
DIMENSION STATEMENT - USER DEFINED
J-O
IF(I.GT.ISTART-IFRST+I) GO TO xx
- INITIALIZE VARIABLES AND CERTAIN "FLOW" ARRAY ITEMS TO STARTING
CONDITIONS IN "CDATA" ARRAY.
XX J-J+1
- SET CERTAIN "FLOW" ARRAY ITEMS TO MONTHLY CONSTANTS IN "ADATA"

TRANSFER INPUTS FROM "HDATA" ARRAY TO "FLOW" ARRAY.
COMPUTE REMAINING TERMS IN "FLOW" ARRAY.
TRANSFER CERTAIN VARIABLES FROM "FLOW" ARRAY TO THE "TABLE"
ARRAY FOR OUTPUT AS A SUMMARY TABLE.
IF(J.NE.12)GO TO XX
RETURN
END

*********** PROGRAMING HINTS ***********
MAKE A LIST OF THE LINE HEADINGS AS YOU WANT THEM TO
APPEAR ON YOUR OUTPUT.
NUMBER THIS LIST.
THE NUMBERS ARE THEN THE K TERMS IN THE "FLOW" ARRAY.

FOR ADDITIONAL HELP CONTACT FRED J. OTRADOVSKY FTS 864-2357

********** PROGRAM DICTIONARY **********
ADATA(K,J) MONTHLY CONSTANTS
ANAME(K,L) DESCRIPTION OF MONTHLY CONSTANTS
TABLE(K, I ,J) SUMMARY TABLES
ALHEAD(K,J) LINE HEADINGS
AGHEAD(K,J) LINE-GROUP HEADINGS
ATHEAD(K,J) TABLE HEADINGS
CDATA(K) CONSTANTS OR INITIALIZING TERMS
CNAME(K,L) NAMES OF CONSTANTS AND INITIALIZING TERMS
FLOW(K,J) MONTHLY FLOW DATA
HDATA(K,J) MONTHLY INPUT DATA
I YEAR COUNTER
ICOUNT LINE-GROUP COUNTER
IE LAST YEAR OF STUDY (COUNTER)
lEND LAST YEAR OF STUDY - CALENDER YEAR
NCL FLAG TO PRINT NCL LINES OF SUMMARY INFORMATION
IFRST FIRST CALENDER YEAR OF INPUT DATA TO READ
IGROUP(ICOUNT) NUMBER OF LINES IN GROUP ICOUNT
I START FIRST YEAR OF STUDY - CALENDER YEAR
I STUDY STUDY NUMBER
J MONTH COUNTER
LCOUNT LINE COUNTER
NA NUMBER OF ADATA ARRAYS TO BE READ
NC NUMBER OF CDATA ITEMS TO BE READ
NH NUMBER OF HDATA ARRAYS TO BE READ
NL NUMBER OF LINE HEADINGS
NG NUMBER OF LINE-GROUPS

3