|
<br />" '.-
<br />
<br />000512
<br />
<br />$STORAGE:2
<br />$LARGE
<br />$DEBUG
<br />CHARACTER*10 TITLE,ATHEAD,AGHEAD,CNAME,ANAME,RDATE
<br />CHARACTER*8 ALHEAD
<br />CHARACTER*5 ISTUDY
<br />CHARACTER*l ANS
<br />DIMENSION ISAVE(48) ,IPLOT(24) ,IRES(15)
<br />COMMON CDATA(85),TABLE(10,42,13) ,FLOW(224,13) ,HDATA(42 ,12) ,
<br />+IFRST,IGROUP(40) ,HOLD(224,13) ,ADATA(35,12) ,ISTART,IEND, J,I,
<br />+NT,NCL,IE,NG,NL,NC,NA,NH,NYI,NRES,TITLE(2,8),ATHEAD(10,8),
<br />+ALHEAD(224 ,4) ,AGHEAD(40,4) ,CNAME(85 ,4) ,ISTUDY,ANAME(35,8),RDA TE,
<br />+OWN(11),OWNACC(7),GAIN(5),STORE(7),OWNMAX(6),OWNPRE(11),PREACC(7)
<br />
<br />C
<br />C **** PROGRAM DESCRIPTION *****
<br />C PROGRAM OPSTUDY IS A UTILITY PROGRAM DEVELOPED TO ASSIST IN
<br />C PROGRAMING MONTHLY WATER OPERATION STUDIES OF THE BOOK. KEEPING
<br />C TYPE.
<br />C
<br />C PROGRAM OPSTUDY PROVIDES THE FOLLOWING-
<br />C 1. READS INPUT.
<br />C 2. ZEROS COMPUTATION AND SUMMARY ARRAYS.
<br />C 3. TOTALS MONTHLY DATA INTO ANNUALS.
<br />C 4. STORES AND ACCUMULATES SUMMARY DATA.
<br />C 5. COMPUTES NET LAKE EVAPORATION FROM A RESERVOIR WATER SURFACE.
<br />C 6. COMPUTES CHANNEL EVAPOTRANSPIRATION SALVAGE AND LOCAL GROUND-
<br />C WATER DEPLETION RESULTING FROM NEGATIVE RIVER FLOWS.
<br />C 7. PRINTS A DESCRIPTIVE SUMMARY OF ALL CONSTANTS AND INITIAL VALUES.
<br />C 8. PRINTS MONTHLY DATA FOR EACH YEAR WITH ANNUAL TOTALS AND
<br />C COLUMN HEADINGS.
<br />C 9. PRINTS AVERAGE MONTHLY DATA AND ANNUAL TOTALS FOR THE PERIOD
<br />C OF STUDY
<br />C 10. PRINTS SUMMARY TABLES OF SELECTED MONTHLY DATA.
<br />C 11. SAVES SELECTED SUMMARY TABLES IN MACHINE READABLE FORM.
<br />C 12. CREATS PLOT FILES OF SELECTED SUMMARY TABLES.
<br />C
<br />C PROGRAMING BY THE USER IS THUS LIMITED TO WRITTING A SUBROUTINE
<br />C NAMED "COMPUTE" WHICH WILL PERFORM THE NECESSARY BOOK-KEEPING
<br />C OPERATIONS.
<br />C
<br />C THREE INPUT ARRAYS ARE PROVIDED AS FOLLOWS -
<br />C CDATA(K) - CONTAINS SINGLE ITEMS SUCH AS CONSTANTS AND INITIAL
<br />C VALUES OF VARRIABLES.
<br />C ADATA(K,J)- 12 ITEM ARRAYS - INCLUDE MONTHLY CONSTANTS ETC.
<br />C HDATA(K,J)- K SETS OF MONTHLY DATA EACH CONTAINING I YEARS
<br />C INCLUDES INFLOW, SECTION GRAINS, REQUIREMENTS, ETC.
<br />C TIlO OUTPUT ARRAYS ARE PROVIDED -
<br />C FLOW(K,J) STORES ONE YEAR OF MONTHLY DATA AND IS
<br />C USED AS THE COMPUTATION ARRAY
<br />C TABLE(K, I ,J) STORES SPECIFIC DATA FROM THE "FLOW" ARRAY AND/OR
<br />C VARIABLES FOR OUTPUT AS A SU~~Y TABLE.
<br />C
<br />C THE SUBROUTINE COMPUTE IS CALLED FROM THE MAIN PROGRAM ONCE FOR
<br />C EACH YEAR OF THE STUDY. THE GENERAL FORM OF THE SUBROUTINE
<br />
<br />2
<br />
|