|
<br />~ - - - - - - - - - - - - - - - - - ~ ~ - - - - - - - - - - - - - - - - ~ - ~ ~ - - - - - - - - - ~ - - - - - - - - - - - - ~ - --- - - - - - - - - ~ -
<br />
<br />.
<br />
<br />.
<br />
<br />LABEL caNT ..'1....I.t..2..i.I'~..3..'.I....~...i/....5..t.I....6..../....7....PAGLIN ERROR
<br />WRITE(6,1068) 002~90
<br />1068 FORMAT! 10l,IMONTHLY GROSS CCNSUMPTIVE USE 0.1" WINTER WHEAT BY THE M 002100
<br />1 ODIFIED JENSEN-HAISE METHOD IN INCHES') 002110
<br />WRITEl6,10481 002120
<br />WRITE(6,10701 002130.
<br />1070 FCRMAT(IOI"vEAR APRIL MAY JUNE TCTALI) 002140
<br />WIU TEt6,1048) 002150
<br />P9~~,~ YUR!"XEAR1! YEAR2 ,01)2UO
<br />NYYY.YEAR+SASEvR 002170
<br />WRITEl6,1072lNYYY,lGCUlCRCP,MONTH,YEARl,MONTHa1,3l,TGCUICRCP,YEARI 002180
<br />FORMAT( I 1,119I,I2,lX,413X,F7.3) I 002190
<br />CONTINUE 002200
<br />CONTINUE 002210.
<br />662220
<br />EFF'ECTIVE PRECIPITATION BY USBR METHOe- USE TEMPI MONTH, YEAR) 002230
<br />002240
<br />DO 310 YEAR-YEAR1'VEAR2 002250
<br />READI5,1030INY,ITEMPIMONTH,YEARI,MONTH_l,7) 002260
<br />F'ORMATI2X,I2,lx.7F'4.2) 002270
<br />IF'INY-lVEAR+BASEYRI130!.310i305 002280
<br />WRrTE16,l 0.82) 002290
<br />FORMAT I Ill, I PREC I P CARDS ARE CUT OF SEQUENCE I ) 002300
<br />GO TO 500 002310
<br />CONTINUE 002320
<br />eo 380 YEAR.YEAR1'VEAR2 002330
<br />DO 380 MONTH-l,7 002340
<br />IF~TEMP(MONTH,YEAR).1')315,315.320 002350
<br />TEMPIMCNTH,YEAR).'9S.TEMPIMONTH.YEAR) 002360
<br />GO TO 375 002370
<br />IFITEMPIMONTH,YEARI-e.)325,325,330 002380
<br />TEMPIMONTH,YEAR)a'95+'9.ITEMPIMONTH,YEAR)-1.) 002390
<br />GO TO 375 002400
<br />IFITEMplMONTH,YEARI-3.)335,335,340 002410
<br />TEMP(MONTH,YEAR)al.8S+.825.ITEMP(MONTH,YEAR)_2.) 002420
<br />GO TO 375 002430
<br />IFITEMPIMONTH,YEAR)-4.)345,34S,350 002440
<br />TEMPIMONTH,YEAR)-2'675+.65.CTEHP(MONTH,YEAR)_3.) 002450
<br />GO TO 375 002460
<br />IFITEMPIMONTH,YEARI-5'1355,355,360 002470
<br />TEMPCMCNTH,vEAR).3.325+.45.CTEMPIMONTH,YEAR).4.) 002480
<br />GO TO 375 002490
<br />IFITEMP(MONTH,vEARI-6.)365,365,370 002500
<br />TEMPIMONTH,YEAR)a3f775+.25.ITEMP1MONTH,YEAR)_5.) 002510
<br />GO TO 375 002520
<br />.,"IE,M.ELU~lo.N!~~~E.Aa.lA,4t"'~_~~""-r:E.~$t.t-~lH",,"~.&A~')"""+"-_"~"'_'d..~,., .~,,~""'''_,.. "..",,,,~,,,-_ "."..~"""~""__,<"' _"'" .'" A" ""_.",,,,_,_ --'.'-- -,,,
<br />TEP(YEAR)aTEPIVEAR)+TEMP(MONTH,VEAR) 002540
<br />CONTINUE 002550
<br />wRITEI6,1042)WOIST 002560
<br />wRITEI6,10S4) 002570
<br />FORMATcI0'J15X,'EFFECTIVE PRECIPITATION BY THE USBR METHOD IN INCH 002580
<br />ES I I 002590
<br />WRITEI6,10~S) 002600
<br />wRITEI6,106~) 002610
<br />
<br />315
<br />320
<br />325
<br />330
<br />335
<br />340
<br />345
<br />350
<br />355
<br />360
<br />365
<br />370
<br />375
<br />380
<br />10S~
<br />1
<br />
<br />.
<br />.
<br />PAGE 005
<br />.
<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 />PROGRAM HELTON 00
<br />
<br />SOURCE
<br />
<br />DATE 24/04/74
<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 />
|