|
<br />.'
<br />
<br />. 000544
<br />
<br />$STORAGE:2
<br />$LARGE
<br />$DEBUG
<br />
<br />r< ""''''''' . roT" "",....,....,., 1"",1 T'l . """'I"'<""'''''''T1,.""
<br />V JJ.Vl'J1.\.7.u vwnr..I\..;Jn.LL nvvvunJ.J.~~U'
<br />
<br />SUBROUTINE OWNSHP(PREOWN,EXCESS,PRE2,PRESTOR,DCFLAG)
<br />CHARACTER*10 TITLE,ATHEAD,AGHEAD,CNAME,ANAME,RDATE
<br />CHARACTER*8 ALHEAD
<br />CHARACTER*5 ISTUDY
<br />CHARACTER*l ANS
<br />DIMENSION COEFFS(2,7),AVEV(12,7)
<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,IEND,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(11) ,OWNACC(7) ,GAIN(5),STORE(7) ,OWNMAX(6) ,OWNPRE(11) ,PRE ACC(7)
<br />c(26): Assign reservoir monthly evaporation rates, and area. storage
<br />c relationship coefficients.
<br />DATA AVEV/.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 COEFFS/: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 />c(27): For the first month of the first computing year, initialize
<br />c storage ownership by reservoir.
<br />IF(I.GT.l) GO TO 20
<br />IF(J.EQ.l) THEN
<br />C INITIALIZE OWNERSHIP BY RESERVOIR
<br />C SEMINOE OWNERSHIP
<br />OWN(l) - CDATA(37)
<br />C PATHFINDER OWNERSHIP
<br />OWN(2) - CDATA(38)
<br />C GLENDO O,~ERSHIP
<br />OWN(3) - CDATA(39)
<br />C GUERNSEY O,~ERSHIP
<br />OWN(4) - CDATA(40)
<br />C IN. LAKES OWNERSHIP (GUERN)
<br />OWN(5) - CDATA(41)
<br />C IN., LAKES OWNERSHIP (GLEND)
<br />OWN(6) - CDATA(42)
<br />C EXCESS TO OWNERSHIP
<br />0,~(7) - CDATA(43)
<br />C PATHFINDER OWNERSHIP IN GUERNSEY RESERVOIR
<br />OWN(8) - CDATA(44)
<br />C ETO FROM LOWER SYSTEM
<br />
<br />34
<br />
|