Laserfiche WebLink
<br />'''(\ <br /> <br />Ot)l1fi97 <br /> <br />O\'lllMAX (3 f = CDATA (50) <br />C GUERNSEY OWNERSHIP <br />OWNMAX(4) = CDATA(51) <br />C INLAND LAKES OWNERSHIP <br />OWNI1AX(5) = CDATA(52) <br />JI.LCOVA OHNERSHIP <br />OWNMAX(6) = CDATA(53) <br />'P'O'PC:l'jlf'\"O _ f'\ n <br />.....-..............." - ",." <br /> <br />DO 10 II = 1,8 <br />PRESTOR = PRESTOR + OWN (II) <br />10 CONTINUE <br />PRESTOR = PRESTOR + OWN (11) <br />PREOWN = PRESTOR <br />PRE2 = PRESTOR <br />ENDIF <br />20 CONTINUE <br />IF(DCFLAG.EQ.l.) THEN <br />NPASS = 0 <br />NPSEM = 0 <br />NPALC = 0 <br />NPGLN = 0 <br />ENDIF <br />IF(J.EQ.l) THEN <br />NPASS = 0 <br />NPSEM = 0 <br />NPALC = 0 <br />NPGLN = 0 <br />DO 30 II = 1,5 <br />OWNACC(II) = OWN (11) <br />30 CONTINUE <br />OWNACC(5) = OWNACC(5) + OWN(6) <br />OWNACC(6) = OWN(7) <br />OWNACC(2) = OWNACC(2) + OWN(8) <br />OWNACC(7) = OWN (11) <br />ENDIF <br />C CALCULATE CHANGE IN STORAGE <br />TTLSTOR = FLOW(6,J)+FLOW(12,J)+FLOW(19,J)+FLOW(26,J)+FLOW(32,J) <br />++FLOW(39,J)+FLOW(46,J) <br />TTLINF=FLOW(1,J)+FLOW(13,J)+(FLOW(20,J)-FLOW(16,J))+FLOW(33,J) <br />++FLOW(40,J) <br />TTLEVP=FLOW(2,J)+FLOW(8,J)+FLOW(15,J)+FLOW(21,J)+FLOW(28,J) <br />++FLOW(35,J)+FLOW(42,J) <br />FLOW(210,J) = TTLSTOR - PRESTOR <br />PRESTOR = TTLSTOR <br />C PATHFINDER INITIAL OWNERSHIP <br />FLOW(179,J) = OWN(2) + OWN(8) <br />C KENDRICK INITIAL OWNERSHIP <br />FLOW(184,J) = OWN (1) + OWN(ll) <br />C GUERNSEY INITIAL OWNERSHIP <br />FLOW(190,J) = OWN(4) <br />C GLENDO INITIAL OWNERSHIP <br />FLOW(203,J) = OWN(3) <br />C INLAND LAKES INITIAL OWNERSHIP <br />FLOW(196,J) = OWN(5) + OWN(6) <br />C ETO INITIAL OWNERSHIP <br />FLOW(209,J) = OWN(7) <br />COMPUTE OWNERSHIP EVAPORATION <br />(; PATHFINDER OI-lNERSHIP EVAPORATION <br />PP = OWN(2) <br />AR = COEFFS(1,3)*PP**COEFFS(2,3) <br />