|
<br />~
<br />. "
<br />, , .. \ " .,"
<br />
<br />06 0 Co '71'
<br />
<br />C
<br />C VARIABLE PREFIXS R= RU~NING VALUE, X = MAX, Y = MIN, T = TOrAL
<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 />FLOOD CONTROL, TAR= TARGET STORAGE
<br />C~***************************************************************************
<br />SUBROUTINE COMPUTE
<br />CHARACTER*10 TITLEiATHEAD,AGHEAD,CN~_~E,ANAME,RDATE
<br />CHARACTER*8 ALHEAD
<br />CHARACTER*5 ISTUDY
<br />REAL iNF,KSHORT,KTDEM
<br />COMMON CDATA(85),TABLE(10,42,13),FLOW(224,13),HDATA(42,12),
<br />+IFRST,IGROUP(40) ,HOLD(224,13),ADATA(35,12) ,ISTART,IEN D,J,I,
<br />+NT,NCL,IE,NG,NL,NC,NA,NH,NYI,NRES,TITLE(2,8),ATHEAD(10,8),
<br />+ALHEAD(224,4) ,AGHEAD(40,4) ,CNAME(85,4) ,ISTUDY,ANAME(35,8),RDATE,
<br />+OWN(ll) ,OWNACC(7),GAIN(5) ,STORE(7),OWNMAX(6) ,0WNPRE(11),PREACC (7)
<br />DIMENSION ST(7),INF(8),KSHORT(8),REVAP(7),RST(7),
<br />+XPOW(7) ,XRE(7),YRE(7,12),FLEV(8),RFLO(8),XST(7),
<br />+YST(7,12),KTDEM(8),RDEM(8),FLST(7,12),TARST(7,12),RRE(7),
<br />+COEFFS(2,7),AVEV(12,7) ,PATHTR(12)
<br />DATA A VEV / . 27 , . 11 , . 07 , . 08, . 13, . 23 , . 32, . 50, . 61 , . 61, . 51, . 38 ,
<br />1.27, . 11, .07, .08, .13, .23, .32, .50, .61, .61, .51, .38,
<br />1.28, .11, .09, .09, .12, .21, .34, .46, .58, .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, .08, .09, .13, .22, .35, .45, .48, .51, .45, .37/
<br />DATA COEFFSj.0971,.7748,
<br />1.0317, .6584,
<br />1.1511,.7192,
<br />1. 0970, .6395,
<br />1.1213, .6188,
<br />1.1892,.6722,
<br />1.1922, .7046/
<br />
<br />C
<br />
<br />J=l
<br />IF(I.GT.1) GO TO 30
<br />C INITIALIZE CONSTANTS
<br />C SET VARIABLE FOR DEER CREEK OPERATIDN
<br />IF(CDATA(84).EQ.0.) THEN
<br />NL = NL - 13
<br />NG,= NG - 1
<br />ELSE
<br />DCFLAG = O.
<br />ENDIF
<br />DO 20 K = 1,7
<br />DO 10 L = 1,12
<br />TARST(K,L) = ADATA(K,L)
<br />FLST(K,L) = ADATA(K+7,L)
<br />YST(K,L) = ADATA(K+14,L)
<br />YRE(K,L) = ADATA(K+21,L)
<br />10 CONTINUE
<br />XST(K) = CDATA(K)
<br />XRE(K) = CDATA(K+7)
<br />XPOW(K) = CDATA(K+14)
<br />FLEV(K) = CDATA(K+21)
<br />20 CONTINUE
<br />FLEV(8) = CDATA(29)
<br />RST(7) = CDATA(36)
<br />
|