|
<br />
<br />LABEL caNT . I , 1 , .. . Ii I. II . .2. . i' -/ ill' II 3 .. . . ./_ . II .4-. . . . I . . . I 5 . . . . I II . . .6. . . . I . . . .7. . . . P Po GL I N
<br />DO 15 VEAR..YEARl,YEAR2 001030
<br />DO 15 MOKTH-1,7 . 001040
<br />PCTSUNlMONTH,YEARf...01Itl.tTEMPtMONTH,YEAR)-14.26). 001050
<br />1 PCTSUNtMONTH,YEAR) 001060
<br />15 CONTINUE 001070
<br />WRITE16,1(35) 001080
<br />1035 F.ORMATt'1',"AVERASE DAILY'POTENTIAL EVAflOTR.ANSPIRATION lINrDAYTUS 0010'0
<br />1 ING.AP'PA<OX.ENERSY &uoeE:T hI' '001;100
<br />WRITE(6,1015)WDIST 001110
<br />WRITE(6,1020) 001120
<br />WRITEI6.1022) 001130
<br />DO 17 YEAR-YEAR1,YEAR2 00111t0
<br />NYYY-YEAR~aASlyR.. . . Oa1150
<br />WRITEl6,1025)NVYY'(~CTSUNlMONTH'YEAR)'MONTH_1.71 001160
<br />CONT]NUE . . 001110
<br />001180
<br />GROSS CONSUMPTIVE USE FOR AL.L. CROPS 001190
<br />001200
<br />READl 5, 1038 IWOIST , I NCROP.(.CROP I, CROP..1'6) 001.210
<br />FORMAT(I3'2X,6I1) . 001220
<br />DO 100 CROP-li6 00i230
<br />READt5,10'l0)ICOEFICROP,MONTHI,MONTH..1,71 00121t0
<br />FORMAT(7X,?F~'21 001250
<br />CONTINUE 001260
<br />DO 299 CRQP-l,6.. .. 001270
<br />IFINCRO~ICRO~))299,299,105 001280
<br />IF 1 CROP-S I 11.0, 1/tO, 155 001290
<br />DO 115 YEAR=YEAR1,VEAR2 001300
<br />DO 115 MONTH-1,6 001310
<br />GCUICROP,MONTH+1,YEAR).COEF(CROP,MONTH).PCTSUNtMONTH+1,YEAR) 001320
<br />TGCU( CRep,YEAR) ..TGCU (.CROP',YEAR) +GCU I CROP. MONTH.+1' YEAR I 0.01330
<br />CONTINuE 0013~0
<br />WRITE{6,1042)WDIST 001~50
<br />FORMATI'1',32X,'WATER DISTRICT NO,',I31 001360
<br />IFICROP-11120,120,125 001370
<br />WRITEI6J10~4) 001380
<br />FORMATJ'O','MONTHL.Y GROSS CONSUMPTIVE USE OF CORN BV THE MODI.IED 001390
<br />JENSEN-HAISE METHOD IN INCHES') 0011t00
<br />GO TO 130 0011t10
<br />WRITEl6,10461 001~20
<br />FORMATI'O','MONTHL.Y GROSS CONSUMPTIVE USE OF POTATOES RY THE MOOIF 001..30
<br />IED JENSEN-HAISE METHOD IN INCHES') 0011t1t0
<br />WRITE(6,10..8) 001..50
<br />FORMAT(' 'dXI 001460
<br />'''''''W'R-tTi!'1-e:.tO!5 0 I ,_._..~~.,----,.._~........._,,,.. ..-".......... ...-......-.........-. ..............-.... '..............'......,. '''OOl'1f1'O'' ...
<br />FORMAT('O','VEAR MAY JUNE JUL.Y AUG SEP 0011t80
<br />T OCT TOT AL.' ) 001490
<br />WRITEI6,10~8) 001500
<br />DO 135 YEAR..YEAR1,YEAR2 001510
<br />NVYV..YEAR+8ASEYR 001520
<br />WRITEl6i1052)NYYY'IGCU(CROP,MONTH,YEARI,MONTH"2,7I,TGCU(CROP,YEARI 001530
<br />1052 FORMAT(' ','19',I2,lX,713X,F?3) I 00151t0
<br />135 CONTINUE 001550
<br />
<br />.
<br />
<br />.
<br />
<br />FULL. FORTRAN IV
<br />
<br />RF'06
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br /> 17
<br />C
<br />C COMPUTE
<br />C
<br /> 1038
<br /> 10..0
<br /> 100
<br /> 105
<br /> 110
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />115
<br />1042
<br />120
<br />10....
<br /> 1
<br />125
<br />1046
<br /> 1
<br />130
<br />1048
<br />1050
<br /> 1
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />PROGRAM HEL.TON 00
<br />
<br />SOURCE
<br />
<br />DATE 21t/01t174
<br />
|