|
<br />"'''''.','~
<br />".' . ,.If<'!
<br />. ' t' ~., I
<br />
<br />C CHECK FOR REITERATION
<br />IF(DCFLAG.EQ.l.) THEN
<br />PRESTOR = PRE2
<br />DO 500 II = 1,11
<br />OWN (II) = OWNPRE(II)
<br />,00 CONTINUE
<br />DO 510 II = 7,1,-1
<br />RST(II) = STORE(8-II)
<br />OWNACC(II) = PREACC(II)
<br />510 CONTINUE
<br />C RESET FLOW ARRAY FOR REITERATION
<br />DO 520 II = 1,211
<br />FLOW(II,J) = 0.0
<br />520 CONTINUE
<br />GO TO 30
<br />ELSE
<br />PRE2 = PRESTOR
<br />DO 530 II = 1,11
<br />OWNPRE(II) = OWN (II)
<br />530 CONTINUE
<br />DO 540 II = 1,7
<br />PREACC(II) = OWNACC(II)
<br />540 CONTINUE
<br />ENDIF
<br />ENDIF
<br />C TOTAL OWNERSHIPS
<br />CUR OWN = 0.0
<br />DO 600 II = 1,8
<br />CUR OWN = CUROWN + OWN (II)
<br />600 CONTINUE
<br />CUROWN = CUROWN + OWN(ll)
<br />FLOW(211,J) = CUROWN - PREOWN
<br />PREOWN = CUR OWN
<br />C SET TABLE ARRAY
<br />TABLE(l,I,J) = FLOW(179,J)
<br />TABLE(2,I,J) = FLOW(184,J)
<br />TABLE(3,I,J) = FLOW(190,J)
<br />TABLE(4,I,J) = FLOW(203,J)
<br />TABLE(5,I,J) = FLOW(196,J)
<br />TABLE(6,I,J) = FLOW(209,J)
<br />TABLE(7,I,J) = OWNACC(l)
<br />TABLE(8,I,J) = OWNACC(2)
<br />TABLE(9,I,J) = OWNACC(7)
<br />TABLE(10,I,J) = OWNACC(3)
<br />TABLE(l,I,J) = FLOW(218,J)
<br />J=J+l
<br />IF(J.NE.13) GO TO 30
<br />RETURN
<br />END
<br />C *******************************************************************.*******
<br />C THIS PORTION OF THE PROGRAM CALCULATES STORAGE/NAT. FLOW SEGREGATION
<br />C AND IS BASED ON RESERVOIR RELEASES COMPUTED BY THE RESERVOIR
<br />C OPERATIONS SUBROUTINE (COMPUTE).
<br />c****************************************************************************
<br />SUBROUTINE NATFLOW(PATHTR)
<br />CHARACTER*10 TITLE,ATHEAD,AGHEAD,CNAME,ANAME,RDATE
<br />cHARACTER*8 ALHEAD
<br />CHARACTER*5 ISTUDY
<br />REAL MM(12)
<br />COMMON CDATA(85),TABLE(10,42,13),FLOW(224,13),HDATA(42,12),
<br />
|