|
<br />. 'OcllJ701
<br />
<br />DINLGU = AMINl(OWN(5),DELINL)
<br />DINLGL = DELINL - DINLGU
<br />OWN(5) = OWN(5) - DINLGU
<br />OWN(6) = OWN(6) - DINLGL
<br />ENDIF
<br />ENDIF
<br />C KENDRICK DELIVERY TO CASPER CANAL
<br />FLOW(182,J) = FLOW(22,J)
<br />OWN (1) = OWN (1) - FLOW(182,J)
<br />FLOW(184,J) = FLOW(184,J) -FLOW(182,J)
<br />C TOTAL OWNERSHIP RELEASE
<br />OWNOT = FLOW(176,J)+FLOW(182,J)+FLOW(187,J)+FLOW(193,J)
<br />1+FLOW(200,J)+FLOW(206,J)
<br />C SET OWNERSHIPS (OWN(X)) EQUAL TO CURRENT VALUE
<br />C KENDRICK OWNERSHIP
<br />OWN(l) = FLOW(184,J) - OWN (11)
<br />C PATHFINDER OWNERSHIP
<br />C OWN(2) PLUS OWN(8)
<br />C GLENDO OWNERSHIP
<br />OWN(3) = FLOW(203,J)
<br />C GUERNSEY OWNERSHIP
<br />OWN(4) = FLOW(190,J)
<br />C INLNAD LAKES OWNERSHIP
<br />C OWN(5) & OWN(6)
<br />C ETO OWNERSHIP
<br />OWN(7) = FLOW(209,J)
<br />C PATHFINDER OWNERSHIP IN GUERNSEY RESERVOIR
<br />C OWN(8)
<br />RETURN
<br />END
<br />r INLAND LAKES ACCRURAL SUBROUTINE
<br />SUBROUTINE AINLAC
<br />CHARACTER*lO TITLE,ATHEAD,AGHEAD,CNAME,ANAME,RDATE
<br />CHARACTER*8 ALHEAD
<br />CHARACTER*5 ISTUDY
<br />CHARACTER*l ANS
<br />DIMENSION ISAVE(48) ,IPLOT(24),IRES(15)
<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(ll) ,OWNACC(7) ,GAIN(5),STORE(7),OWNMAX(6),OWNPRE(11),PREACC(7)
<br />C SET REACH ACCRURAL TO ZERO
<br />ACCILl = O.
<br />ACCIL2 = O.
<br />ACCRU = OWNMAX(5) - OWNACC(5)
<br />C GLENDO TO GUERNSEY REACH
<br />ACCILl = AMINl(GAIN(5),ACCRU)
<br />C REDUCE REACH GAIN BY ACCRURAL
<br />GAIN(5) = GAIN(5) - ACCILl
<br />C REDUCE TOTAL ACCRURAL BY REACH ACCRURAL
<br />ACCRU = ACCRU - ACCILl
<br />C ALCOVA TO GLEN DO REACH
<br />ACCIL2 = AMINl(GAIN(4),ACCRU)
<br />C REDUCE REACH GAIN BY ACCRURAL
<br />GAIN(4) = GAIN(4) - ACCIL2
<br />TOTAL INLAND LAKES ACCRURAL
<br />FLOW(192,J) = ACCILl + ACCIL2
<br />C ADD ACCRURAL TO ACCRURAL TODATE
<br />OWNACC(5) = OWNACC(5) + FLOW(192,J)
<br />
|