Laserfiche WebLink
<br /> <br />. <br /> <br />. <br />. <br />PAGE: 002 <br />. <br />ERROR <br />. <br />. <br />. <br />. <br />. <br />. <br />. <br />. <br />. <br />. <br />. <br />. <br />. <br />. <br />.. <br />. <br />. <br />. <br />. <br /> <br />. <br /> <br />FULL FORTRAN IV <br /> <br />RF06 <br /> <br />. <br /> <br />LABEL CONT <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 />10 <br /> <br />. <br /> <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 />IiII I . 1 . . , t/_ . . .2, . . II. . . .:3 Ii II . ,,/ j , II .4. . . ./. 5 . .5 f II " _/_ , . .6. . . . /. . . .7. . .. . PAaL I N <br />DIMENSION PCTSUNC 7. 25 I. RSO (7). TEMPC 7.25 I .caEF (6.7 I. GCU C 6.,. 25). 000500 <br />TGCU(6.251.TEPC251'ACRE(6)~LOSS(3J~HDRQl7~251.THR(25).NCROPCS). 000510 <br />TWRC7.25).TOTWRl25) 000520 <br />INTEGER YEAR.YEAR1.YEAR2.BASEYR.CROP 000530 <br />REAL LOSS 000540 <br />DATA TGCU/150.0'I.TEP/25.0'I.HDRQ/175.0'I.THR/25.0'I.TWR/175.0.1. 000550 <br />TOTWR/25.0'1 000560 <br />Re:.AOC ;;,9c99 I YUR1JYEAR-2,SAS.EYRiWDUT . ..000510 <br />FORMAT I 3I2JI3 I 0005S0 <br />000590 <br />000600 <br />000610 <br />00062Q <br />000630 <br />000640 <br />000650 <br />000660 <br />000670 <br />00.0680 . <br />000690 <br />000700 <br />000710 <br />000720 <br />000730 <br />000740 <br />000750 <br />000760 <br />000770 <br />0007S0 <br />000790 <br />000800 <br />000810 <br />000820 <br />AUG 000830 <br />000840 <br />000S50 <br />000860 <br />000870 <br />000880 <br />000S90 <br />000900 <br />000910 <br />000920 <br />000930 <br />.. ""'-O'OO'91rC" <br />000950 <br />000960 <br />000970 <br />0009S0 <br />000990 <br />001000 <br />001010 <br />001020 <br /> <br />PROGRAM HELTON 00 <br /> <br />SOURCE <br /> <br />1 <br />1 <br /> <br />SOLAR RADIATION FROM PERCENT SUNSHINE - USE PCTSUN(MONTH.YE:ARI <br /> <br />1 <br /> <br />005 Y.EAR.YEAR1. YI::AR2 . .... . . . . <br />READ(5.1000iNy.CPCTSUNCMONTH.YEAR).MONTH.l.71 <br />FORMATc2X.I2.1x.7F2.2) <br />IFINY-(YEAR+BASEYR))2.5.2 <br />WRITE (6.1002) <br />FORMAT C '1'. 'PERCENT SUNSH I NE <br />GO TO 500. <br />CONTINUE <br />READC5.1005)(RSOIMDNTH)iMONTH-l.7) <br />FORMATC7F4.4) <br />DO 10 YEAR-YEAR1.YEAR2 <br />DO 10 MONTH-l.7 <br />PCTSUN (MONTH. YEAR I ..287.RSO (MONTH) +. 5..RSO ( MONTH). <br />PCTSlJNCMONTH.YEAR)+~0095 . <br />CONTINUE <br />WRITE 16. 1010) <br />FORMATC'l'.'COMPUTEO SOLAR <br />NE AND AKRON CORRELATION') <br />WRITE(6.1015)WDIST <br />FORMATI 'I.32X. 'wATER DISTRICT NO.'.I3) <br />WRITEC 6.1.020) <br />FORMATC'O'.'YEAR <br />SEPT <br />wRITEI6.1022) <br />FORMAT I 'O'.lX) <br />00 12 YEAR-YEAR1.YEAR2 <br />NYYY=YEAf<+BASEYR <br />WRITEC6.1025)NYYY.CPCTSUNIMONTH.YEAR).MONTH_l.7) <br />FORMAT(' '. '19,.I2.1X.7C4x.F6.4) I <br />CONTI NUE <br /> <br />JULY <br /> <br />CARDS ARE OUT 0" SEQUENCE') <br /> <br />RADIATION CIN/DAY) USING PERCENT SUNSHI <br /> <br />1 <br /> <br />. <br />. <br /> <br />APRIL <br />OCT' ) <br /> <br />MAY <br /> <br />JUNE <br /> <br />. <br /> <br />C <br />C COMPUTE POTENTIAL EVAPOTRANSPIRATION. USE PCTSUN(MONTH.YEAR) <br />C <br /> <br />. <br /> <br />1030 <br /> <br />. <br /> <br />11 <br />1032 <br /> <br />. <br /> <br />1'+ <br /> <br />. <br /> <br />"'" .h,_ ~.."".~_<<.....,,_ ',,~," '.."............,."..,.~">..~.".,...,,,'"~'''_._,~''"...._<o..,~,~'''__.''_..,_-,.~_".._,~.~_...,.,..~"~ ,~.~,_"""".....,"',."'""..,,,",..""_,," "'..'"'''' <br /> <br />DO 14 YEAR.YEAR1.YEAR2 <br />READ(5.1030)NY,(TEMPIMONTH,YEAR).MONTH_l.7) <br />FORMAT(6X.I2.30X.'F6.2) <br />IFCNY-CYEAR+BASEYR))11.14.11 <br />WRITEC6.1032) <br />FORMATC'l'.'TEMPERATURE <br />GO TO 500 <br />CONTI NUE <br /> <br />CAROS ARE OUT OF SEQUENCE') <br /> <br />DATE 24/010174 <br />