PROGRAM CACDLY CHARACTER*5 BKIDN CHARACTER NB*248 c ' This code reads a basic CAC monthly file (new format)' c ' It expects the input file as a directed input, ' c ' e.g a.out < data (uncompressed data file) ' c ' or zcat data.Z | a.out (compressed data file)' print 1000 1000 format( * ' Variables numbered as in format ',/, * ' 1 2 3 4 5 6 7 8 9 10 ' * ' 11 12 13 14 15 16 17 18 19 ' * ' 20 21 22 23 24 25 26 27 28 29 30 ' * ' 31 32 33 34 25 36 37 38 39 40 41 42 43' * ' 44 45 46 47 48 49 50') NREC=0 1 NREC=NREC+1 READ(5,'(a)',ERR=50,END=100) NB if(nb(109:114).eq.' -9.99') nb(109:114)=' -99.9' READ(nb(1:),10,ERR=50,END=100) IDATE,BKIDN,TMEAN,TMAX,TMIN,HMAX, *RMINL, *CTMEAN,APTMAX,WCMIN,HMAXAPT,WCLMINL,RPCP,EPCP,CPCP,EPCPMX,AHS,AVP, *APET,AVPD,RSV1,TRAD,AMAXRH,AMINRH,IHDD,ICDD,IGDD,NRADV,IRSV2, *NOBS,NOBSP,N6HE,NPMXMN,NMX,NMN,MXDAT,MNDAT,NDPR,NDTPR,NMAPT,NMWC, *NSV,NVPT,NPET,NMXRH,NMNRH,MXAPTD,MNWCD,MXPCPD,NDAYS 10 FORMAT(1X,I6,A5,10F5.1,3F7.1,F5.1,4F5.2,F6.1,F5.2,2F5.0,3I5,I3, *4I4,3I3,2I8,9I3,3I8,I3) C C IDATE-YEAR AND MONTH OF DATA. C BKIDN- 5 CHARACTER STATION IDENTIFIER. C TMEAN - AVERAGE DAILY MEAN TEMPERATURE C TMAX - AVERAGE DAILY MAXIMUM TEMPERATURE. C TMIN - AVERAGE DAILY MINIMUM TEMPERATURE. C HMAX - THE HIGHEST MAXIMUM TEMPERATURE REPORTED DURING MONTH C RMINL - THE LOWEST MINIMUM TEMPERATURE REPORTED DURING MONTH C CTMEAN - THE REPORTED MONTHLY CLIMATE TEMPERATURE. C APTMAX - AVERAGE MAXIMUM APPARENT TEMPERATURE. C WCMIN - AVERAGE MINIMUM WIND CHILL TEMPERATURE. C HMAXAPT- HIGHEST DAILY MAXIMUM APPARENT TEMPERATURE DURING MONTH C WCLMINL- LOWEST DAILY MINIMUM WIND CHILL TEMPERATURE DURING MONTH C RPCP - TOTAL REPORTED PRECIPITATION FOR MONTH. C EPCP - TOTAL PRECIPITATION INCLUDING ESTIMATES FOR ANY PERIODS C CPCP - TOTAL PRECIPITATION REPORTED IN CLIMAT MESSAGE. C EPCPMX - MAXIMUM DAILY PRECIPITATION INCLUDING ESTIMATES. C AHS - AVERAGE HOURS OF SUNSHINE C AVP - AVERAGE VAPOR PRESSURE C APET - AVERAGE PAN EVAPORTRANSPORATION C AVPD - AVERAGE VAPOR PRESSURE DEFICIT C RSV1 - RESERVED C TRAD - AVERAGE TOTAL RADIATION C AMAXRH - AVERAGE MAXIMUM RELATIVE HUMIDITY. C AMINRH - AVERAGE MINIMUM RELATIVE HUMITITY. C IHDD - TOTAL HEATING DEGREE DAYS. C ICDD - TOTAL COOLING DEGREE DAYS. C IGDD - TOTAL GROWING DEGREE DAYS. C NRADV - NUMBER OF RADIATION VALUES C IRSV2 - RESERVED C NOBS - NUMBER OF OBSERVATIONS C NOBSP - NUMBER OF OBSERVATIONS WITH PRECIPITATION C N6HE - NUMBER OF 6 HOUR PERIODS THAT PRECIPITATION ESTIMATED C NPMXMN - NUMBER OF PAIRED MAXIMUM AND MINIMUM TEMPERATURES C NMX - NUMBER OF DAILY MAXIMUM TEMPERATURES C NMN - NUMBER OF DAILY MINIMUM TEMPERATURES C MXDAT - DATE THE MAXIMUM MONTHLY TEMPERATURE OCCURRED C MNDAT - DATE THE MINIMUM MONTHLY TEMPERATURE OCCURRED C NDPR - DAYS MEASURABLE PRECIPITATION REPORTED C NDTPR - NUMBER OF DAYS A TRACE OF PRECIPITATION REPORTED C NMAPT - NUMBER OF DAILY MAXIMUM APPARENT TEMPERATURES C NMWC - NUMBER OF DAILY MINIMUM WIND CHILL VALUES C NSV - NUMBER OF DAILY SUNSHINE VALUES C NVPT - NUMBER OF DAILY VAPOR PRESSURE VALUES C NPET - NUMBER OF DAILY PAN EVAPORATION VALUES C NMXRH - NUMBER OF DAILY MAXIMUM RELATIVE HUMIDITY VALUES C NMNRH - NUMBER OF DAILY MINIMUM RELATIVE HUMIDITY VALUES C MXAPTD - DATE MONTHLY MAXIMUM APPARENT TEMPERATURE OCCURRED C MNWCD - DATE MONTHLY MINIMUM WIND CHILL OCCURRED C MXPCPD - DATE THE MAXIMUM DAILY PRECIPITATION OCCURRED C NDAYS - NUMBER OF DAYS IN THE MONTH C PRINT 20,IDATE,BKIDN,TMEAN,TMAX,TMIN,HMAX,RMINL, *CTMEAN,APTMAX,WCMIN,HMAXAPT,WCLMINL,RPCP,EPCP,CPCP,EPCPMX,AHS,AVP, *APET,AVPD,RSV1,TRAD,AMAXRH,AMINRH,IHDD,ICDD,IGDD,NRADV,IRSV2, *NOBS,NOBSP,N6HE,NPMXMN,NMX,NMN,MXDAT,MNDAT,NDPR,NDTPR,NMAPT,NMWC, *NSV,NVPT,NPET,NMXRH,NMNRH,MXAPTD,MNWCD,MXPCPD,NDAYS 20 FORMAT(1X,I6,1X,A5,10F6.1,3F8.1,F6.1,4F6.2,F7.1,F6.2,2F6.0,3I6,I4, *4I5,3I4,2I9,9I4,3I9,I4) GO TO 1 50 CONTINUE NERROR=NERROR+1 PRINT 51,NREC 51 FORMAT(' ERROR, REC',I10) GO TO 1 100 CONTINUE NREC=NREC-1 PRINT 101,NREC,NERROR 101 FORMAT('0RECORDS READ',I10,/,' RECORDS IN ERROR',I10) END