|
<br />000523
<br />
<br />c NORTH PLATTE RIVER SIMULATION PROGRAM -- developed by DWR
<br />c Reservoir Operation
<br />C **************************************************************************
<br />
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C VARIABLE NAMES ST - STORAGE, INF - INFLOW (GAINS), FLO - SIMULATED
<br />C FLOW IN REACH, POW - POWER RELEASE, DEM - DEMAND, GLF - GLENDO
<br />C FLOOD CONTROL, TAR- TARGET STORAGE
<br />c****************************************************************************
<br />SUBROUTINE COMPUTE
<br />CHARACTER*IO TITLE,ATHEAD,AGHEAD,CNAME,ANAME,RDATE
<br />CHARACTER*B ALHEAD
<br />CHARACTER*5 ISTUDY
<br />REAL INF,KSHORT,KTDEM
<br />COMMON CDATA(B5) ,TABLE(10,42,13),FLOW(224,13) ,HDATA(42,12) ,
<br />+IFRST,IGROUP(40),HOLD(224,13),ADATA(35,12),ISTART,IEND,J,I,
<br />+NT,NCL,IE,NG,NL,NC,NA,NH,NYI,NRES,TITLE(2,B),ATHEAD(10,B),
<br />+ALHEAD(224 ,4) ,AGHEAD(40,4),CNAME(85,4),ISTUDY,~AME(35,8),RDATE,
<br />+OWN(11),OWNACC(7) ,GAIN(5) ,STORE(7) ,OWNMAX(6) ,OWNPRE(ll) ,PREA CC(7)
<br />DIMENSION INF(8) ,KSHORT(8) ,REVAP(7) ,RST(7), ! ST(7) removed
<br />+XPOW(7),XRE(7),YRE(7,12),FLEV(8),RFLO(8),XST(7),
<br />+YST(7,I2) ,KTDEM(8) ,RDEM(8),FLST(7,12) ,TARST(7,12) ,RRE(7) ,
<br />+COEFFS(2,7) ,AVEV(12,7) ,PATHTR(12)
<br />c(l): Assign reservoir monthly evaporation rate, and srea-storage
<br />c relationship multiplier and exponent coefficients.
<br />DATA AVEV/.27, .11, .07, .OB, .13, .23, .32, .50, .61, .61, .51, .38,
<br />1.27, .11, .07, .08, .13, .23, .32, .50, .61, .61, .51, .3B,
<br />1.28, .11, .09, .09, .12, .21, .34, .46, .5B, .60, .49, .41,
<br />1.29, .13, .10, .08, .13, .22, .33, .46, .56, .55, .46, .41,
<br />1.29, .13, .10, .08, .13, .22, .33, .46, .56, .55, .46, .41,
<br />1.23,.12,.11,.11,.14,.16,.30,.45,.56,.65, .56, .41,
<br />1.14, .07, .OB, .09, .13, .22, .35, .45, .4B, .51, .45, .37/
<br />DATA COEFFS/.0971,.774B,
<br />1.0317, .65B4,
<br />1.1511, .7192,
<br />1. 0970, .6395,
<br />1. 1213, . 61BB,
<br />1.1892, .6722,
<br />1.1922, .7046/
<br />
<br />INDEX AND VARIABLE DEFINITIONS
<br />INDEX I-YEAR (33) J- MONTH(12 , I-OCT), K - REACH (I-ABOVE SEM,
<br />2-ABOVE PATH, 3 - ABOVE GLENDO, 4 - ABOVE GEURNSEY,5 - TO STATE
<br />M - RESERVOIR, 1- SEMINOE - 4 - GUERNSEY + INLAND LAKES
<br />
<br />LINE,
<br />
<br />VARIABLE PREFIXS R- RUNNING VALUE, X - MAX, Y - MIN, T - TOTAL
<br />
<br />C
<br />
<br />J-1
<br />IF(I.GT.1) GO TO 30
<br />C INITIALIZE CONSTANTS
<br />c(2): To see if Deer Creek reservoir is included [l-yes,O-no]
<br />C SET VARIABLE FOR DEER CREEK OPERATION
<br />IF(CDATA(B4).EQ.0.) THEN
<br />NL - NL - 13
<br />NG - NG - 1
<br />ELSE
<br />
<br />13
<br />
|