<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 />
|