|
<br />
<br />.
<br />
<br />.
<br />
<br />l"ULL FORTRAN IV
<br />
<br />.
<br />
<br />CUR.SYS.PK.NO.
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />.
<br />.'
<br />C.
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />"'''''C''
<br />
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<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 />,L
<br />
<br />8IY~.CoGO.Jo
<br />
<br />R.06
<br />000001
<br />
<br />PROGRAM HELTON 00
<br />
<br />SOURCE
<br />
<br />, DATE .2'1/0'117'1
<br />
<br />PAGE 001
<br />
<br />LABEL CONT . "1" ../.. ..2... '1..' .3. n ,./... .'1... '1' ...5.. ../... .6... ./... .7..' ..PAGI.,IN
<br />
<br />ERROR
<br />
<br />PHELTON
<br />PHELTON
<br />F
<br />1"
<br />
<br />ENN
<br />
<br />2S1N06'1
<br />
<br />COOOOO
<br />000010
<br />000020 eRTL"" (AIJA'-
<br />
<br />OO~30 HE.AD6ATE: D'''E:~S'01J
<br />"O~.,O'." ".',' , '.,., '.;';I! . ' , ,
<br />606050 4- Z
<br />000060
<br />000070
<br />000080
<br />.0000$0
<br />000100
<br />000110
<br />000120
<br />000130
<br />0001'10
<br />00,0150
<br />ClaOUO
<br />. 000170
<br />000180
<br />000190
<br />000200
<br />, 000210
<br />000220
<br />0002~0,
<br />0002'10
<br />000250
<br />000260
<br />00.0.270
<br />00n280 '
<br />00o-a:90
<br />000300
<br />000310
<br />000320
<br />000330
<br />0003'10
<br />000350
<br />000360
<br />000370
<br />000380
<br />000390
<br />0001t00
<br />0001110-- ..... ""',
<br />0001t20
<br />0001t30
<br />OOOHO
<br />0001t50
<br />0001t60
<br />0001t70
<br />000..80
<br />0001t90
<br />
<br />FORTIFN
<br />OPT! ON N
<br />05000 P1108002
<br />G-662e,,',.PIHtS-6
<br />,j,,', 'Jk'i" ,,'~, ,', '"
<br />'L ,j>~' /' ",- :- ,',,,,,, :",."" ~'", :.' ".'M6, "', '<",' -,''''w''''\''~':<~'> ':1'-J: '0
<br />MA . H.! &....fi~I;SSO.JAtli";i1<;9;1'2;i
<br />MARCH 23, 1971
<br />vEAR1.. 1
<br />VEAR2.. NUMBER OF YEARS TO BE COMPUTED
<br />BASEYR" YUR eEFORE .COMPUT ATlaN BEGINS. .' .
<br />PCTSUN(MONTH,YEAR)"INITIAL.L.Y USED FOR PERCENT.SUNSHtNE
<br />..THEN USED FOR SOL.AR RADIATION
<br />..THEN USED FOR POTENTIAL. EVAPOTRANSPIRATION
<br />RSO(MONTH)"CL.OUDL.ESS DAY SOL.AR RADIATION
<br />TEMP(MONTH,YEAR)..INITIAL.L.Y USED FOR AVERAGE MEAN DAIL.Y AIR TEMPERATuRE
<br />..THEN USED FOR MON'1'HL.Y 'PRECIPITATION
<br />..THEN USED FOR M.ONTHL.Y EFn:CTIVE PRECIpITATION
<br />.'l'HEN USED FOR MONTHLY CROPIRRIGATIflNREQUIREMENT
<br />COEFICROP,MONTH)..AVERAGE MONTHL.Y GROWTH STAGE COEFFICIENT WHERE
<br />CROp1 "" CORN
<br />CROP2 .. POTATOES
<br />CROPS ".GRAINSORGHUM
<br />CROPIt .. ALFAL.FA .
<br />CROP5 .. SUGARSEETS
<br />CROP6 .. WINTER WHEAT
<br />GCU(CROP,MONTH,YEARI..MONTHLV GROSS CONSUMPTIVE USE
<br />TGCU(CROP,vEAR)=IRRIGATION SEASON TOTAL GROSS CONSUMPTIVE USE
<br />TEP (VEARI ""lRR IGAT ION SEASON.TOTAL GROSS CONSIJMf'lTIVEUSE. ...... .
<br />TCIRIYEAR)..IRRIGATION SEASON TOtAL. CROP IRRIGATION REQUIREMENT
<br />HiR( VEAR) =-1RRI GAT! ON SEASON. TOTAL. HEAOGATEOIVERS I ON REQUIREMENT
<br />WDIST.. WATER DISTRICT
<br />NCROPs POSITIVE QUANTITY IF CROP IS TO BE COMPUTED
<br />NB" NUMBER OF DITCHES TO MAKE COMPUTATIONS FOR
<br />NDITCH.. NUMBER OF THE D1TCH
<br />ACRE(CROPI= ACREAGE OF EACH CROP
<br />TOTAc. TOTAL ACREAGE OF EACH DITCH
<br />LOSS(K). CANAL, LATERAL. AND FARM L.OSSES
<br />DATA CARDS MUST BE IN THE FOLL.OWING ORDER
<br />1. 1 CARD. YEAR1,YEAR2,BASEYR,WDIST
<br />2. 1.25 CARDs. NY,PCTSUN FOR SEVEN MONTHS
<br />3. 1 CARD. RSO FOR SEVEN MONTHS
<br />"'''''''i'''^1'"-!!!l C'AIHlS .. N~, T!MI" ,.OR S!'''!N MON'I'H-S------'"-..,---''---''-.~-...-.-..-..."-....,,.'".
<br />5. 1 CARD. NCROP FOR SIx CROPS
<br />6. 6 CARDS . COEF FOR EACH CROP FOR THE MONTHS OF THE GROWING SEAS
<br />7. 1.25 CARDs. NY,PRECIP FOR SEVEN MONTHS
<br />8. 1 CARD . ND
<br />9. 1.9 CA.RDS -NDnCH, ACRE FOR SIX CROPS, ..THREEI..OSSES
<br />
<br />1+
<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 />.
<br />
<br />.
<br />
<br />.
<br />
<br />....
<br />
|