The following is a listing of the FORTRAN 77 data retrieval code (flask.for)
written by CDIAC to read and print any of the files containing NOAA/CMDL CO2 mixing ratios
from individual flask air samples.
C FORTRAN 77 CODE TO READ AND PRINT ANY OF THE NOAA/CMDL DATA C FILES CONTAINING THE INDIVIDUAL FLASK OR SHIPBOARD CO2 MEASUREMENTS C CHARACTER STA*3,FLASKID*8,SMETHOD*1,DATASEL*3,INSTRU*2,DAYFILE*6 OPEN(UNIT=5,FILE='alt.co2') C C INSERT COLUMN HEADINGS TO IDENTIFY DATA C WRITE(6,50) 50 FORMAT(11X,'GMT TIME OF',42X,'DATA',32X,'DAILY',/, 1 'STATION',1X,'SAMPLE COLLECTION',6X,'FLASK',2X, 2 'SAMPLING',6X,'CO2',6X,'SELECTION',12X, 3 'ANALYSIS DATE',3X,'DATAFILE', 4 /,1X,'CODE',3X,'YYYY',1X,'MM',1X,'DD',1X,'HR',1X,'MIN',8X, 5 'ID',4X,'METHOD',2X,'MIXING RATIOS',4X,'CODE',3X, 6 'INSTRUMENT',1X,'YYYY',2X,'MM',3X,'DD',4X,'NUMBER',/) C C SKIP HEADER RECORD THAT IDENTIFIES CONWAY AND TANS AS C THE DATA SOURCE - PLEASE CREDIT CONWAY & TANS WHEN USING C THESE DATA! C READ(5,75) 75 FORMAT(/,/,/,/,/,/,/,/,/) C C READ AND WRITE DATA C 1 CONTINUE READ(5,100,END=99) STA,YYYY,MM,DD,HR,MIN,FLASKID,SMETHOD,CO2, 1 DATASEL,INSTRU,SAMYY,SAMMM,SAMDD,DAYFILE 100 FORMAT(A3,1X,I4,1X,I2,1X,I2,1X,I2,1X,I2,1X,A8,1X,A1,2X, 1 F7.2,1X,A3,1X,A2,1X,I4,1X,I2,1X,I2,1X,A6) WRITE(6,200) STA,YYYY,MM,DD,HR,MIN,FLASKID,SMETHOD,CO2, 1 DATASEL,INSTRU,SAMYY,SAMMM,SAMDD,DAYFILE 200 FORMAT(2X,A3,3X,I4,1X,I2,1X,I2,1X,I2,2X,I2,4X,A8,5X,A1,7X, 1 F7.2,9X,A3,7X,A2,5X,I4,2X,I2,3X,I2,4X,A6) GOTO 1 99 CONTINUE CLOSE(UNIT=5) STOP END
The following is a listing of the FORTRAN 77 data retrieval code (month.for) written by CDIAC to read and print any of the files containing the NOAA/CMDL monthly CO2 mixing ratios.
C FORTRAN 77 CODE TO READ AND PRINT ANY OF THE NOAA/CMDL C FILES CONTAINING THE MONTHLY CO2 MEANS DERIVED FROM C INDIVIDUAL FLASK AIR SAMPLES C CHARACTER STA*3 OPEN(UNIT=5,FILE='altmm.co2') C C INSERT COLUMN HEADINGS TO IDENTIFY DATA C WRITE(6,50) 50 FORMAT(22X,'ATMOSPHERIC',/,'STATION',15X,'CO2 MIXING',/, 1 2X,'CODE',3X,'YEAR',2X,'MONTH',2X,'RATIO (PPM)',/) C C SKIP HEADER RECORD THAT IDENTIFIES CONWAY AND TANS AS C THE DATA SOURCE - PLEASE CREDIT CONWAY & TANS WHEN USING C THESE DATA! C READ(5,75) 75 FORMAT(/,/,/,/,/,/,/,/,/) C C READ AND WRITE DATA C 1 CONTINUE READ(5,100,END=99) STA,YYYY,MM,CO2 100 FORMAT(A3,1X,I4,1X,I2,2X,F7.2) WRITE(6,200) STA,YYYY,MM,CO2 200 FORMAT(2X,A3,4X,I4,4X,I2,4X,F7.2) GOTO 1 99 CONTINUE CLOSE(UNIT=5) STOP END