|
<br />"
<br />
<br />. \
<br />
<br />'ilOdS'g
<br />" S
<br />
<br />FLOW ( 17,J)=AMAX1(0.,RRE(3)-XPOW(3))
<br />FLOW ( 18,J)=N1AX1(0.,RRE(3)-XRE(3))
<br />FLOW ( 19,J)=RST(3)
<br />FLOW ( 20,J)=FLOW(16,J)+HDATA(6,J)
<br />FLOW ( 21,J)=REVAP(4)
<br />FLOW ( 22,J)=KTDEM(4)-KSHORT(4)
<br />FLOW ( 23,J)=RRE(4)
<br />FLOW ( 24,J)=AY~Xl(0..RRE(4)-XPOW(4))
<br />FLOW ( 25,J)=AY~Xl(0.,RRE(4)-XRE(4))
<br />FLOW ( 26,J)=RST(4)
<br />FLOW ( 27,J)=FLOW(23,J)
<br />FLOW ( 28,J)=REVAP(5)
<br />FLOW ( 29,J)=RRE(5)
<br />FLOW ( 30,J)=AMAX1(0.,RRE(5)-XPOW(5))
<br />FLOW ( 31,J)=AMAX1(0.,RRE(5)-XRE(5))
<br />FLOW ( 32,J)=RST(5)
<br />FLOW ( 33,J)=HDATA(10,J) - FLOW(224,J)
<br />FLOW ( 34,J)=FLOW(29,J)+FLOW(33,J)
<br />FLOW ( 35,J)=REVAP(6)
<br />FLOW ( 36,J)=RRE(6)
<br />FLOW ( 37,J)=AMAX1(0.,RRE(6)-XPOW(6))
<br />FLOW ( 38,J)=AMAX1(0.,RRE(6)-XRE(6))
<br />FLOW ( 39,J)=RST(6)
<br />FLOW ( 40,J)=HDATA(12,J)
<br />FLOW ( 41,J)=FLOW(36,J)+FLOW(40,J)
<br />FLOW ( 42,J)=REVAP(7)
<br />FLOW ( 43,J)=RRE(7)
<br />FLOW ( 44 ,J)=AY~Xl(O. ,RRE(7) -XPOW(7))
<br />FLOW ( 45,J)=AY~Xl(0.,RRE(7)-XRE(7))
<br />FLOW ( 46,J)=RST(7)
<br />FLOW ( 47,J)=HDATA(14,J)
<br />FLOW ( 48,J)=HDATA(34,J)
<br />FLOW ( 49,J)=HDATA(25,J)
<br />FLOW ( 50,J)=HDATA(34,J)-HDATA(25,J)-HDATA(35,J)
<br />FLOW ( 51,J)=HDATA(35,J)
<br />FLOW ( 52,J)=HDATA(32,J)
<br />FLOW ( 53,J)=HDATA(23,J)
<br />FLOW ( 54,J)=HDATA(24,J)
<br />FLOW ( 55,J)=HDATA(32,J)-HDATA(23,J)-HDATA(24,J)
<br />FLOW ( 56,J)=FLOW(43,J)+FLOW(47,J)-FLOW(48,J)-FLOW(52,J)
<br />FLOW ( 57,J)=HDATA(21,J)
<br />FLOW ( 58,J)=HDATA(19,J)
<br />FLOW ( 59,J)=RIVLAR
<br />FLOW ( 60,J)=HDATA(15,J)
<br />FLOW ( 61,J)=HDATA(20,J)
<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)=HDATA(27,J)
<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(31,J)
<br />FLOW ( 72,J)=HDATA(26,J)
<br />FLOW ( 73,J)=HDATA(31,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 />
|