|
<br />. .. 0 fI" .....(\
<br />LD L- "J ""U
<br />
<br />FLOW ( 62,J)~HDATA(17,J)
<br />FLOW ( 63,J)~HDATA(16,J)
<br />FLOW ( 64,J)~HDATA(22,J)
<br />FLOW ( 65,J)~HDATA(18,J)
<br />FLOW ( 66,J)~HDATA(30,J)
<br />FLOW ( 67 ;.J)~HnATA(?7 ;.1)
<br />FLOW ( 68,J)-HDATA(29,J)
<br />FLOW ( 69,J)-HDATA(38,J)
<br />FLOW ( 70,J)-HDATA(37,J)
<br />FLOW ( 71,J)-HDATA(26,J)+HDATA(28,J)+HDATA(3l,J)
<br />FLOW ( 72,J)-HDATA(26,J)
<br />FLOW ( 73,J)-HDATA(3l,J)
<br />FLOW ( 74,J)-HDATA(28,J)
<br />FLOW ( 75,J)-FLOW(56,J)-FLOW(57,J)-FLOW(58,J)+FLOW(59,J)
<br />DO 400 KZ - 60,68
<br />FLOW ( 75,J)-FLOW( 7S,J)-FLOW(KZ,J)
<br />400 CONTlNUE
<br />FLOW ( 75,J)-FLOW( 7S,J)+FLOW(69,J)+FLOW(70,J)-FLOW(71,J)
<br />FLOW ( 76,J)-HDATA(39,J)
<br />FLOW ( 77,J)~HDATA(40,J)
<br />
<br />C
<br />C DEFINE TABLE ARRAY
<br />TABLE( 1,I,J)-RST(1)
<br />TABLE( 2,I,J)-RST(3)
<br />TABLE ( 3,I,J)-RST(4)
<br />TABLE( 4,I,J)-RST(6)
<br />TABLE ( 5,I,J)-RST(7)
<br />
<br />C
<br />
<br />HDATA(41,J) - FLOW( 7S,J) - FLOW ( 76,J) - FLOW ( 77,J)
<br />TABLE ( 6,I,J) - HDATA(4l,J)
<br />HDATA(2,J) - FLOW(3,J)
<br />HDATA(3,J) - FLOW(9,J)
<br />HDATA(S,J) - FLOW(16,J)
<br />HDATA(8,J) - FLOW(23,J)
<br />HDATA(9,J) - FLOW(29,J)
<br />HDATA(ll,J) - FLOW(36,J)
<br />HDATA(13,J) - FLOW(43,J)
<br />C NATURAL FLOW ACCOUNTING
<br />CALL NATFLOW(PATHTR)
<br />C STORAGE OWNERSHIP ACCOUNTING
<br />CALL OWNSHP(PREOWN,EXCESS,PRE2,PRESTOR,DCFLAG)
<br />C CALCULATE GLENDO AND NORTH PLATTE PROJECT DELIVERIES
<br />IF(J.GT.7) THEN
<br />TTFGLN - FLOW(167,J)+FLOW(168,J)+FLOW(171,J)
<br />TTFNPP ~ FLOW(16S,J)+FLOW(166,J)+FLOW(172,J)
<br />TTFFSP = FLOW(170,J)
<br />C 'PERATIONAL WATER
<br />c(50): compute operational water below Guernsey,
<br />c and Alcova to Glendo operational water
<br />C OPERATIONAL WATER BELOW GUERNSEY
<br />TTFOPl - FLOW(9l,J) - FLOW(94,J) + FLOW(95,J)
<br />C STORAGE EVAP LOSS ALCOVA - GLENDO
<br />TTFOP2 - FLOW(83,J)
<br />C CHECK IF LOSS ALCOVA TO GLENDO AND GLENDO TO GUERNSEY EXCEEDS NATFLOW
<br />STORLS - 0.0
<br />
<br />20
<br />
|