|
<br />---------- -- ------ ~ - - -- - -- -- - - - - ---- - - - --- -----
<br />
<br />.
<br />
<br />.
<br />
<br />FULL. FORTRAN IV
<br />
<br />.
<br />
<br />RF06
<br />
<br />PROGRAM HELTON 00
<br />
<br />SOURCE
<br />
<br />DATE 21t/01t171t
<br />
<br />I ABEL cnNT ...1..*./....2....1....3..../....~....1....5....1....~....I....7....PA~LIN
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br /> 1
<br /> 999
<br />C
<br />C COMPUTE
<br />C
<br /> 1000
<br /> 2
<br /> 1002
<br /> 5
<br /> 1005
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />10
<br />1010
<br />
<br />.
<br />
<br />1015
<br />
<br />1020
<br />
<br />.
<br />
<br />1022
<br />
<br />.
<br />
<br />.
<br />
<br />1025
<br />12
<br />
<br />.
<br />
<br />C
<br />C COMPUTE
<br />C'
<br />
<br />.
<br />
<br />1030
<br />
<br />.
<br />
<br />11
<br />1032
<br />
<br />.
<br />
<br />14
<br />
<br />.
<br />
<br />1
<br />1
<br />
<br />DIMENSION PCTSUN(7,25),RSOL7),TEMPl7,25),COEF(6,7),GCU16.7,2S).
<br />TGCU16,2~),TEP125),ACREl6),LOSS(3)~HDRQj7,25),THRj2~1~NCROP/S),
<br />TWR17,25I,TOTWR/25)' . . .
<br />INTEGER YEAR,YEAR1,YEARa,BASEYR,CROP
<br />REAL L.OSS
<br />DATA TGCU/1S0.0'I,TEP/25.0.I,HDRQ/175.0.I,THR/25.0.I,TWR/17S.O.I,
<br />TO.TWR 125.0. I
<br />"REA;) ( 5, 999+YEAR1.VEA-R.c.,BASEVR.,WlilIST
<br />FORMATt3I2,I3) .
<br />
<br />SOL.AR RADIATION FROM PERCENT SUNSHINE - USE PCTSUN(MONTH,YEAR)
<br />
<br />DO.SYEAR-YEAR1, YEM2
<br />READ(S,1000)NY,lPCTSUNlMONTH,YEAR).MONTH..1,71
<br />FORMATl2X.Ia,1X,7F2i2)
<br />IFlNY-IYEAR+BASEYR))2,S,a
<br />WRITE(6.1002)
<br />FORMATI'1l,'PERCENT SUNSHINE CARDS ARE OUT OF SEQUENCEl)
<br />GO TO 500
<br />CONTINUE
<br />READ(5~1005)(RSOlMONrH),MONTH"l,1)
<br />FORMAT(7FIt.,,)
<br />DO 10 YEAR..YEAR1,YEAR2
<br />DO 10 MONTH..l,7
<br />PCTSUNlMONTH,YEAR)=.287J1oRSOlMONTH)+.5.RSOlMONTH).
<br />PCTSUNlMONTH,YEAR)+.0095 .
<br />CONTINUE
<br />WRITE (6,1010)
<br />FORMATI'1','COMPUTED SOL.AR RADIATION (IN/DAYI USING PERCENT SUNSHI
<br />NE AND AKRON CORRELATIONI)
<br />wRITEl6,1015)WDIST
<br />FORMATl' ',32X,'WATER DISTRICT NO.',I3)
<br />WRITEl6,1020)
<br />FORMAT( 'O'.'YEAR APRIL. MAY JUNE JUL.Y AUG
<br />SEPT OCT')
<br />WRITE(611022)
<br />FORMAT( '0',1X)
<br />00 12 YEAR..YEAR1,VEAR2
<br />NYYY.YEAR+BASEYR
<br />WRITE(6,102S)NYYY,(PCTSUNlMONTH,YEAR),MONTH.1,7)
<br />FORMAT (' ',' 19 I, I 211 X, 7 I 'IX. F 6' " I )
<br />CONTI NUE
<br />
<br />POTENTIAL. EVAPOTRANSPIRATION. USE PCTSUN(MONTH,YEAR)
<br />
<br />1
<br />
<br />1
<br />
<br />1
<br />
<br />~. ~ "~._,, ._""'M_.._"..._.."..._,,,__... _""'-"~'_~'''_'_'''_'_~ ____..~..~ "" ,~"," ~.~.,_~""~ ~"'o_~~_._""~" "'~,~ _._. ''''...__ '__""~~"""~'OO'"" ". '<,,,.__,,.. ~_._
<br />
<br />DC lit YEAR.YEAR1,YEAR2
<br />READtS,1030)NY,(TEMP(MONTH,YEARl,MONTH.1,71
<br />FCRMAT(6X,I2,30X,7F6.2)
<br />IF(NY-IYEAR+BASEYRI111,1",11
<br />WRITE(6,10321
<br />FORMATll1','TEMPERATURE CARDS ARE OUT OF SEQUENCE')
<br />GO TO 500
<br />CONTI NUE
<br />
|