|
<br />, '0 .tJt.s~8
<br />
<br />.
<br />
<br />EVPATH = AR*AVEV(J,3)
<br />C PATHFINDER EVAPORATION IN GUERNSEY RESERVOIR
<br />IF (STORE (l) . NE. O. ) 'THEN
<br />EVPTGU = (OWN(8)jSTORE(l))*FLOW(42,J)
<br />ELSE
<br />EVPTGU = O. 0
<br />ENDIF
<br />C TOTAL PATHFINDER EVAPORATION
<br />FLOW(l74,J) = EVPATH + EVPTGU
<br />C KENDRICK OWNERSHIP EVAPORATION
<br />SK = OWN(l) + OWN(ll) - STORE(3)
<br />AR = COEFFS(l,l)*SK**COEFFS(2,l)
<br />SEMEVP = AR*AVEV(J,l)
<br />FLOW(l80,J) = SEMEVP + FLOW(2l,J)
<br />C INLAND LAKES OWNERSHIP EVAPORATION
<br />IF(STORE(2) .NE.O.) THEN
<br />EVILGL = (OWN(6)jSTORE(2))*FLOW(35,J)
<br />ELSE
<br />EVILGL = O.
<br />ENDIF
<br />IF(STORE(l) .NE.O.) THEN
<br />EVILGU = (OWN(5)jSTORE(l))*FLOW(42,J)
<br />ELSE
<br />EVILGU = O.
<br />ENDIF
<br />FLOW(l9l,J) = EVILGL + EVILGU
<br />C GUERNSEY OWNERSHIP EVAPORATION
<br />GR = Oh'N(4)
<br />AR = COEFFS(l,7)*GR**COEFFS(2,7)
<br />fLOW(l85,J) = AR*AVEV(J,7)
<br />C EXCESS Oh'NERSHIP EVAPORATION
<br />COMPUTED AS IF ALL IN GLEN DO RESERVOIR
<br />FLOW(204,J) = (OWN(7)jSTORE(2))*FLOh'(35,J)
<br />C GLENDO Oh'NERSHIP EVAPORATION
<br />C TTLEVP = FLOW(2,J)+FLOh'(8,J)+FLOW(l5,J)+FLOW(2l,J)+FLOW(28,J)
<br />C l+FLOW(35,J)+FLOW(42,J)
<br />FLOW(l97,J)=TTLEVP-FLOW(l74,J)-FLOW(l80,J)-FLOW(l85,J)
<br />I-FLOW(l91,J)-FLOW(204,J)
<br />OWNEVP = FLOW(l74,J)+FLOW(l80,J)+FLOh'(l85,J)+FLOW(19l,J)
<br />1+FLOW(197,J)+FLOW(204,J)
<br />C PATHFINDER OWNERSHIP LESS EVAPORATION
<br />FLOW(179,J) = FLOW(l79,J) - FLOW(l74,J)
<br />OWN(2) = OWN(2) -EVPATH
<br />OWN(8) = Oh'N(8) -EVPTGU
<br />C KENDRICK OWNERSHIP LESS EVAPORATION
<br />FLOW(184,J) = FLOW(l84,J)-FLOW(180,J)
<br />OWN(ll) = OWN(ll)-FLOW(2l,J)
<br />OWN(l) = FLOW(184,J) - OWN(ll)
<br />C INLAND LAKES OWNERSHIP LESS EVAPORATION
<br />OWN(5) = OWN(5) - EVILGU
<br />OWN(6) = OWN(6) - EVILGL
<br />FLOW(l96,J) = OWN(5) + OWN(6)
<br />C GURNSEY Oh'NERSHIP LESS EVAPORATION
<br />FLOW(l90,J) = FLOW(l90,J)-FLOW(l85,J)
<br />C GLENDO OWNERSHIP LESS EVAPORATION
<br />FLOW(203,J) = FLOW(203,J)-FLOW(l97,J)
<br />EXCESS OWNERSHIP LESS EVAPORATION
<br />IF(FLOW(209,J) .NE.O.) THEN
<br />OWN(9) = OWN(9) - (FLOW(204,J)jFLOh'(209,J))*OWN(9)
<br />OHN(lO) = OWN(lO) - (FLOW(204,J)jFLOW(209,J))*OWN(lO)
<br />
|