|
<br />$S'rORAc;E: 2
<br />$LARGE
<br />$DEBUG
<br />CHARACTER*10 TITLE,ATHEAD,AGHEAD,CNAME,ANAME,RDATE
<br />CHARACTER*S ALHEAD "
<br />CHARACTER*5 ISTUDY
<br />CHARACTER*l ANS
<br />DIMENSION ISAVE(4S),IPLOT(24),IRES(15)
<br />COMMON CI'lA'1'A(R5) ,'1'ABLE(10,42,13) ,FLOW(?24,13) ,HDATA(42,12),
<br />+IFRST,IGROUP(40) ,HOLD(224,13),ADATA(35,12) ,ISTART,IEN D,J,I,
<br />+NT,NCL,IE,NG,NL,NC,NA,NH,NYI,NRES,TITLE(2,S),ATHEAD(1O,S),
<br />+ALHEAD(224,4),AGHEAD(40,4),CNAME(85,4),ISTUDY,ANAME(35,S),RDATE,
<br />+OWN(11),OWNACC(7),GAIN(5),STORE(7),OWNMAX(6),OWNPRE(11),PREACC(7)
<br />
<br />l'd~\S~$
<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 />r 9. PRINTS AVERAGE MONTHLY DATA AND ANNUAL TOTALS FOR THE PERIOD
<br />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 TWO 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 Sm1MARY 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 />C SHOULD BE AS FOLLOWS -
<br />C
<br />
<br />\...
<br />C
<br />C
<br />
<br />SUBROUTINE COMPUTE
<br />COMMON STATEMENT
<br />DIMENSION STATEMENT - USER DEFINED
<br />J=O
<br />
|