|
<br />,:~, 60 l:C ?1
<br />
<br />C
<br />
<br /> RST(6) = CDATA(35)
<br /> RST(5) = CDATA(34)
<br /> RST(4) = CDAT/l.(33)
<br /> RST(3) = CDATA(32)
<br /> RST(2) -- CDATA(31)
<br /> RST(l) = CDATA(30)
<br /> TSHORT = O.
<br /> TDEM = O.
<br />30 INF(l) = HDATA(l,J)
<br /> INF(2) = 0.0
<br /> INF(3) = HDATA(4,J)
<br /> INF(4) = HDATA(6,J)
<br /> INF(5) = 0.0
<br /> INF(6) = HDATA(10,J) - FLOVl(224,J)
<br /> INF(7) = HDATA(12,J)
<br /> TNF(B) = HD.~TA(14,J)
<br /> LARJlJ~IE RIVER [1. - OFF O. - ON]
<br /> IF(ADATA(32,J).EQ.1.) THEN
<br /> RIVLAR = 0.0
<br /> ELSE
<br /> nC:VLhR ,- iiD/l,TA (36, J)
<br /> :'~NDIF
<br />
<br />SUMINP = RIVLAR+HDATA(37,J)+HDATA(38,J)
<br />SET PREVIOUS MONTH STORE OF GUERNSEY ,~ND GLEN DO RESERVOIRS
<br />DO 40 II = 7,1,-1
<br />STORE(8-II) = RST(II)
<br />40 CONTINUE
<br />C _.*****NOTE: THIS AREA SETS KTDEM(K,) ,K=1,7
<br />).;J'DEI1 (1) - O. 0
<br />1\TDEl>i(2) = 0.0
<br />KTDEM (3) = O. 0
<br />KTDEM(4) = HDATA(7,J)
<br />KTDEI'I(5) ,- 0.0
<br />KTDEM(6) = 0.0
<br />KTDEM (7) ,- O. 0
<br />Su1'-1DEM = 0.0
<br />SUHDEJ1 = HDATA (15, J) +HD.~TA(16, J) +HD.'1TA (17, J) +HDAT.r. (18, J)
<br />SlJ11DEM = SUMDEl-HHD,I,T,'1 (20, J) +HDATA (22, J) +HD,~.TA (26, J) +HDATA (27, J)
<br />SUl1DE!1 = SUMDE!1+HDAT/l, (28, J) +HDATA (29, J) +HDATA (30, J) +HDA1'A (31, J)
<br />SlJ11DEI1 = SlJ11DEM+HDATA(39,J)+HDATA(40,J)
<br />KTDEM(8) = HDATA(19,J)+HDATA(21,J)+HDATA(32,J)+HDATA(34,J)
<br />K1'D;::M(8) = KTDEM(8) + AHA X 1 (0. ,SmmEM-S\Jl1INF)
<br />RE:J1FL = O.
<br />C *~+.*************************************************************~*******
<br />C
<br />C
<br />
<br />C
<br />
<br />MEET REACH DEMANDS, FILL THE STORAGES BY INFLOVl, DECREMENT
<br />BY EVAPORATION AND COMPUTE RESIDUAL
<br />DO 210 K=1,7
<br />RDEM(K) = KTDEM(K)
<br />TDEM = TDEM + RDEM(K)
<br />REMFL = REMFL + INF(K)
<br />C *********TAKE AS MUCH OF THE REACH DEMAND FROM THE SPILL AND INF AS POSSIBLE
<br />DEL = /l~IN1(RDEM(K),REMFL)
<br />RDEM(K) = RDEM(K) - DEL
<br />REMFL = REMFL -DEL
<br />C *********INITIALIZE THE REACH FLOVl
<br />RFLO(K)=REMFL
<br />'*******FILL THE RESERVOIR AND 11AKE MINIMUM RELEASE
<br />EVAPORATION AT BEGINING OF MONTH
<br />TEVAP = o.
<br />STl = RST(K)
<br />
<br />(;
<br />
|