| |||||||||||||||||||||||||||||||||||
| |||||||||||||||||||||||||||||||||||
APPENDIX 1
COMPUTER PROGRAM FOR COMPUTING
CONSUMPTIVE USE OF BLANEY-CRIDDLE METHOD
0001 DIMENSIONMO(100),T(100),P(100),AK(100),RE(100),D1(100),D2(100), 0002 1 F(100),CU(100),AIR(100),ERE(100),STA(100),LAT(100),LON(100), 0003 1 ELEV(100),MON(20,20),CROP(100),NO(100),IT(100) 0004 READ20,NSETS 0005 20 FORMAT(I10) 0006 DO6J=1,NSETS 0007 READ2,(STA(I),I=1,5),(LAT(I),I=1,2),(LON(I),I=1,2),(ELEV(I),I=1,2) 0008 2 FORMAT(5A4,2A3,2A3,2A3) 0009 PRINT3,STA(1),STA(2),STA(3),STA(4),STA(5),LAT(1),LAT(2),LON(1) 0010 1 LON(2),ELEV(1),ELEV(2) 0011 3 FORMAT(1H151X5A4,//18X8HLATITUDEX2A3,19X9HLONGITUDEX2A3, 0012 1 19X9HELEVATIONX2A3,17X) 0013 PRINT4 0014 4 FORMAT(/5X5HMONTH,7X,4HMEAN,8X,7HDAYTIME,4X,6HFACTOR,4X,11HCOEFFIC 0015 1 IENT,4X,11HCONSUMPTIVE,7X,4HMEAN,6X,9HEFFECTIVE,3X,11HCONSUMPTIVE, 0016 1 4X,/16X,7HMONTHLY,7X,5HHOURS,34X,3HUSE,9X7HMONTHLY,5X,8HRAINFALL, 0017 1 4X,10HIRRIGATION,5X,/14X11HTEMPERATURE,56X,8HRAINFALL,16X,11HREQUI 0018 1 REMENT,4X,/18X,3H(T),10X3H(P),7X3H(F),10X3H(K),12X4H(CU),10X3H(R), 0019 1 9X4H(RE),8X7H(CU-RE),6X) 0020 DO75M=1,8 0021 READ7,(CROP(I),I=1,6),NO(I) 0022 7 FORMAT(6A4,39XI10) 0023 IF(NO(I).GT.0)GOTO6 0024 PRINT68,CROP(1),CROP(2),CROP(3),CROP(4),CROP(5),CROP(6) 0025 68 FORMAT(6A4) 0026 SIR=0 0027 DO5I=1,10 0028 READ1,MO(I),T(I),P(I),AK(I),RE(I),D1(I),D2(I),(MON(I,K),K=1,3) 0029 1 FORMAT(I1,6F8.3,10X3A3) 0030 IF(MO(I).EQ.1)GOTO9 0031 5 CONTINUE 0032 9 DO10I=1,10 0033 IF(D1(I))11,11,12 0034 11 D=1. 0035 GOTO25 0036 12 D=D1(I)/D2(I) 0037 25 F(I)=T(I)*P(I)/100. 0038 CU(I)=D*F(I)*AK(I) 0039 IF(RE(I).LE.4.)ERE(I)=2.67+.65*(RE(I)-3.) 0040 IF(RE(I).LE.3.)ERE(I)=1.85+.82*(RE(I)-2.) 0041 IF(RE(I).LE.2.)ERE(I)=.95+.9*(RE(I)-1.) 0042 IF(RE(I).LE.1.)ERE(I)=RE(I)*.95 0043 IF(I.EQ.1)GOTO13 0044 GOTO26 0045 13 D=1. 0046 26 AIR(I)=CU(I)-(D*ERE(I)) 0047 IF(AIR(I).LT.0.)AIR(I)=0.0 0048 F(I)=F(I)+.005 0049 CU(I)=CU(I)+.005 0050 ERE(I)=ERE(I)+.005 0051 AIR(I)=AIR(I)+.005 0052 IT(I)=T(I) 0053 SIR=SIR+AIR(I) 0054 IF(MO(I).EQ.0)GOTO69 0055 PRINT16,MON(I,1),MON(I,2),MON(I,3),IT(I),P(I),F(I),AK(I),CU(I), 0056 1 RE(I),ERE(I)AIR(I) 0057 16 FORMAT(4X,3A3,6X,I2,8XF5.2,6XF4.2,9XF4.2,11XF5.2,10XF4.2, 0058 1 8XF4.2,10XF4.2) 0059 10 CONTINUE 0060 69 PRINT70,SIR 0061 70 FORMAT(62X8HSEASONAL,X11HCONSUMPTIVE,X10HIRRIGATION, 0062 1 X11HREQUIREMENT,2XF6.2) 0063 75 CONTINUE 0064 6 CONTINUE 0065 STOP 0066 END
WRS-19 Table of Contents
Water Resources Series List
Water Resources Data System Library |
Water Resources Data System Homepage
