Laserfiche WebLink
<br /> <br />. <br /> <br />. <br /> <br />FUL.L. FORTRAN IV <br /> <br />. <br /> <br />LABEL CONT <br /> <br />. <br /> <br />1068 <br /> <br />. <br /> <br />1070 <br /> <br />. <br /> <br />. <br /> <br /> 1072 <br /> 195 <br /> 299 <br />C <br />C COMPUTE <br />C <br /> 1080 <br /> 305 <br /> 1082 <br /> 310 <br /> <br />. <br /> <br />. <br /> <br />. <br /> <br />. <br /> <br />. <br /> <br />. <br /> <br />315 <br />320 <br />325 <br />330 <br />335 <br />31t0 <br />345 <br />350 <br />355 <br />360 <br />365 <br />"370' <br />375 <br />3S0 <br />10M <br />1 <br /> <br />. <br /> <br />. <br /> <br />. <br /> <br />. <br /> <br />. <br /> <br />. <br /> <br />. <br /> <br />. <br /> <br />. <br /> <br />RF06 <br /> <br />PROGRAM HEL.TON 00 <br /> <br />SOURCE <br /> <br />DATE 2'1/01t171t <br /> <br />1 <br /> <br />, Ii -1. . . t /. i . .2 i . . ,/_ Ii . .3. . . ,II, . ..... . . _/_ . . i 5... . ./.. . .6. .. ./. . ..7. . . . PAGL I N <br />WRITEl6,1068) 002090 <br />FORMAT l '0', 'MONTf,lL.Y GROSS CONSUMPTIVE USE OF VI INTER WHEA TSv THE M 002100 <br />ODIFIED JENSEN-HAISE METHOD IN INCHES') 002110 <br />WRITEl6,10ItS) 002120 <br />WRITEl6,10701 002130 <br />FORMATl 'O','YEAR APRIL. MAY JUNE TOTAL') 00211t0 <br />WRITEI6~1048]~02150 <br />00.195 i"l'~AR-~EA R,l,Y'SAR2 ." O.Qia~(j <br />NYYY=YEAR+BASEYR 002170 <br />WRITE(6,1072)NYYY'(GCU(CROP,MONTH,YEARI,MONTH=1,3),TGCU(CROP,YEAR) 0021S0 <br />FORMATl' ','19'd2I1X,4(3X,F7.3)1 002190 <br />CONTINUE 002200 <br />CONrlNUE002210 <br />002220. <br />002230 <br />0022110 <br />002250 <br />002260 <br />002270 <br />00.2280 <br />002296 <br />002300 <br />002310 <br />002320 <br />002330 <br />00231t0 <br />002350 <br />002360 <br />002370 <br />002380 <br />002390 <br />0021t00 <br />002410 <br />0021t20 <br />0021+30 <br />0021t40 <br />002'150 <br />002'160 <br />0021t70 <br />002ltSO <br />0021t90 <br />002500 <br />002510 <br />002520 <br />"-".._".....4l'O~... <br />00251+0 <br />002550 <br />002560 <br />002570 <br />002580 <br />002590 <br />002600 <br />002610 <br /> <br />EFFECT! VE PRECIPITATION BY USSR METHOD - USE TEMP (MONTH, vEAR) <br /> <br />DO 310 YEAR..VEAR1,YEAR2 <br />REAO(S,1030)NY,(TEMPlMONTH,YEAR),MONTH..1,71 <br />~ORMATI2X)t2J1Xj7F4.2) <br />IFj~Y-lYEAR+BASEYR))30SJ310,SOS <br />WRtTEl6,1082) . <br />FORMAT( '1','PRECIP CARDS ARE OUT OF SEQUENCE') <br />GO TO 500 <br />CONTI NUE <br />DO 380YEAR.YEAR1,YEAR2 <br />DO 380 MONTH=1,7 <br />IF(TEMPlMONTH,yEAR)-1')315,31S,320 <br />TEMPlMONTH,YEARl='95.TEMP(MONTH,VEARI <br />GO TO 375 <br />IFITEMP(MONTH,VEAR)-2.)325,325,330 <br />. T.EMP I MONTH., YEAR).= '95+' 9.1 TEMP ( MONTH, Y.EAR ) -1. J <br />GO iO'375 <br />tF(TEM~IMONTH~YEARl-3j)335,335,SItO <br />TEMP(MONTH,YEAR)=1.85+.825.ITEMPIMONTH,yEAR)-2.) <br />GO TO 375 <br />IF(TEMPlMONTH,yEAR)-4.)345,34S,350 <br />TEMPIMONTH,YEAR)=2.67S+.65.(TEMPlMONTH,YEARl-3.) <br />GO TO 375 <br />IF(TEMPIMONTH,VEAR)-S,,355,355,360 <br />TEMP(MONTH,YEAR)..3'325+.1t5.ITEMPlMONTH,YEARI.It.) <br />GO TO 375 <br />IF(TEMP(MONTH,YEAR)-6')365,365,370 <br />TEMPlMONTH,YEAR)..3'775+.25.1TEMP(MONTH,YEARI-S.) <br />GO TO 375 <br />-'\"!1'tPT1"Itl'NT1't7'r E l>. R l """'O~M?t 1'10N THlYE"A1l/.,'DTT' "-...-.... .."..,-,.. <br />TEP(VEARl-TEPlYEARI+TEMPIMONTH,YEAR) <br />CONTINUE <br />WRITEI6,10l+2)WDIST <br />wRITE 16,1081+) <br />FORMAT( '0',15X, 'EFFECTIVE <br />ES'1 <br />WRITEI6,10118) <br />WRITE l 6,106111 <br /> <br />. <br /> <br />PRECIPITATION BY THE USBR METHOD IN INCH <br /> <br />ERROR <br />