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 CO₂ 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 CO₂ 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

CDIAC Home Page

E-mail CDIAC