Laserfiche WebLink
<br />- ---- - - -- - - -" - ~ - - - - - - - - <br /> <br />. <br /> <br />"-. <br /> <br />'3/\J..3_'-<JQV.3(2) <br /> <br />. <br /> <br />. <br /> <br />FULL FORTRAN IV <br /> <br />RF06 <br /> <br />PROGRAM HELTON 00 <br /> <br />SOURCE <br /> <br />DATE 24/04/74 <br /> <br />PAGE 001 <br /> <br />. <br /> <br />. <br /> <br />CUR.SYS.PK.NO. <br /> <br />000001 <br /> <br />. <br /> <br />. <br /> <br />LABEL CONT <br /> <br />....1....I....2....I.,...3....I....~....I....5,....I.,...6..../....'....PAGLIN <br /> <br />3, :... ? <br /> <br />PHELTON FORT/FN <br />.,. PHELTON OPTION N <br />.,. F 05000 Pl108002 S <br />.,. .... ..............F ...06622/M.Ua6~O~O ........ ...... <br />f~~~~~H;l!~l~~~]~f1JJm~:m't:~~~~~~~i~~~~~t$iit4~t..'~~~. <br /> <br />C MARCH 23J 1971 <br />C YEAR1.. 1 <br />C YEAR2.. NUMBER OF YEARS TO BE COMPUTED <br />C BASEYfl- YEAR BEF.ORE COMPUTA TI ON s~(Ut'>jS <br />C PCTSUNIMONTHJYEAR)-INITIALLY USED FOR PERCENT SUNSHINE <br />C-THEN USED FOR soeAR RADIATION <br />C -THEN USED FOR POTENTIAL EVAPOTRANSPIRATION <br />C RSOIMONTH)=CLOUDLESS DAY SOLAR RADIATION <br />C TEMPIMONTHlYEAR)"INITIALLY USED FOR AVERAGE MEAN DAILY AIR TEMPERATuRE <br />C -THEN USED FOR MONTHLY PRECIPITATICN <br />C -THEN USED FOR MONTHLY EFFECTIVE PRECIPPATION <br />C -THEN USED FOR MONTHLY CROP IRRIGATION REQUIREMENT <br />C COEFICROPIMONTH)"AVERAGE MONTHLY GROWTH STAGE COEFFICIENT WHERE <br />C CROP1" CORN <br />C CROP2" POTATOES <br />C CROP3 . GRAIN SORGHUM <br />C CROPIt" ALFALFA <br />C CROP5 "SUGAR BEETS <br />C CROP6. WINTER WHEAT <br />C GCUtCROPJMONTHJYEAR)_MONTHLY GROSS CONSUMPTIVE USE <br />C TGCUICROPJYEARI"IRRIGATION SEASON TOTAL GROSS CONSUMPTIVE USE <br />C TEPtYEAR)-IRRIGATION SEASON TOTAL GROSS CONSUMPTIVE USE <br />C TCIRtYEAR)"IRRIGATION SEASON ToTAL CROP IRRIGATION REQUIREMENT <br />C THR (YEAR) "I RR IG.A TI ON SEASON . TOTAL HEADGA TE 01 VEilS ION REQUIREMENT <br />C WDIST" WATER DISTRICT <br />C NCROP" POSITIVE QUANTITY IF CROP IS TO BE COMPUTED <br />C NB" NUMBER OF DITCHES TO MAKE COMPUTATIONS FOR <br />C NDITcH" NUMBER OF THE DITCH <br />C ACREtCROP)" ACREAGE OF EACH CROP <br />C TOTAc" TOTAL ACREAGE OF EACH DITCH <br />C LOSSCK)" CANALJ LATERAL AND FARM LOSSES <br />C DATA CARDS MUsT BE IN THE FOLLOWING OROER <br />C 1. 1 CARD. YEAR1JyEAR2J8ASEYR/WDIST <br />C 2. 1-25 CARDS - NY/PCTSUN FOR SEVEN MONTHS <br />C 3. 1 CARD. RSO FOR SEVEN MONTHS <br />. -c w ... ..... ...1""'.2.5-,-.c'-A.-R.O'S"'''',.-.,..~,.T.E.t4P.~,,,~..s&-v~...M.QN.:l''~.- '",..~"',,_ "_"~<-'%'.. '.v ."".. "..~ v,... ~'__' '.o>,~<..,,,.~.."'" "_ ..._~.._.. .. <br />C 5. 1 CARD - NCROP FOR SIX CROPS <br />C 6. 6 CARDS - COEF FOR EACH CROP FOR THE MONTHS OF THE GROW!NG SEAS <br />C 7. 1-25 CARDS - NY,PRECIP FOR SEVEN MONTHS <br />C 8. 1 CARD 5 NO <br />C 9. 1-9 CARDS -NDITCHJ ACRE FOR SIx CROPS I THREE LOSSES <br />C <br />C <br />C <br /> <br />ENN <br /> <br />2B1N064 <br /> <br />'I <br /> <br />ERROR <br />CO""~II~PT1I(F uSE <br />000000 (, <br />000010 2,~~8 SHI\t..€S z:,'33'A~eE"s.J <br />000020 CATLUJ CAt./AL- <br />:~g:~ 4/3.04/74: <br /> <br />000050 <br />000060 <br />000070 <br />000080 <br />O()OOS.D <br />000.100 <br />000110 <br />000120 <br />000130 <br />000140 <br />000150 <br />000.160 <br />000170 <br />000180 <br />000190 <br />000200 <br />000210 <br />000220 <br />000230 <br />000240 <br />000250 <br />000260 <br />000270 <br />000280 <br />000290 <br />000300 <br />000310 <br />000320 <br />000330 <br />000340 <br />000350 <br />000360 <br />000370 <br />000380 <br />000390 <br />000400 <br />"" '-,000.1<1 <br />000420 <br />000430 <br />000440 <br />000450 <br />000460 <br />000470 <br />000'180 <br />000490 <br /> <br />. <br /> <br />. <br /> <br />. <br /> <br />. <br /> <br />. <br /> <br />. <br /> <br />. <br /> <br />. <br /> <br />. <br /> <br />. <br /> <br />. <br /> <br />. <br /> <br />. <br /> <br />. <br /> <br />. <br /> <br />. <br /> <br />. <br /> <br />. <br /> <br />. <br /> <br />(,3""3 7 <br />l..'-/ ::, I <br />2'-1 '; z. <br />! L 7 Z. <br />8':""~' <br /> <br />. <br /> <br />. <br /> <br />. <br /> <br />. <br /> <br />. <br /> <br />. <br /> <br />. <br /> <br />. <br /> <br />. <br /> <br />. <br /> <br />. <br /> <br />. <br /> <br />. <br /> <br />. <br /> <br />. <br /> <br />. <br /> <br />. <br /> <br />. <br />