CDIAC - Carbon Dioxide Information Analysis Center CDIAC - Carbon Dioxide Information Analysis Center

Part 2: Information About the Data Files Provided on Magnetic Tape or Floppy Diskettes

11. Contents of the Magnetic Tape or Floppy Diskettes

The following is a list of files distributed on magnetic tape or floppy diskettes by CDIAC along with this documentation.

---------------------------------------------------------------------------
File number, description,         Logical    Record      Block      Record
and name                          records    format°      size      length
---------------------------------------------------------------------------

 1.General descriptive
   information file:
   NDP044.DES                      324        FB          8000       80

 2.Track list of
   expedition legs:
   TRACKLST                         66        FB          9000       90

 3.List of data
   filenames:
   DATA.LST                         84        FB          8000       80

 4.FORTRAN-77 data
   retrieval code to
   read and print the
   surface water and
   atmospheric CO2 and
   N20 data (Files 5-86):
   NDPO44.FOR                       21        FB          8000       80

 5.SASb input/output
   routine to read and
   print the surface water
   and atmospheric CO2 and
   N2O data (Files 5-86):
   NDPO44.SAS                       26        FB          8000       80

 6.Atmospheric CO2 and N20
   data for Indomed Leg 2:
   INDOM2.AIR                     1080       FB          8000       80

 7.Surface seawater CO2 and
   N20 data for Indomed Leg 2:
   INDOM2.H2O                     1068       FB          8000       80

 8.Atmospheric CO2 and N20
   data for Indomed Leg 3:
   INDOM3.AIR                      349       FB          8000       80

 9.Surface seawater CO2 and
   N20 data for indomed Leg 3:
   INDOM3.H20                      357       FB          8000       80

10.Atmospheric CO2 and N2O
   data for indomed Leg 4:
   INDOM4.AIR                     1607       FB          8000       80

11.Surface seawater CO2 and
   N20 data for Indomed Leg 4:
   INDOM4.H20                     1529       FB         8000        80

12.Atmospheric CO2 and N20
   data for Indomed Leg 5:
   INDOM5.AIR                     1233       FB         8000        80

13.Surface seawater CO2 and
   N20 data for Indomed Leg 5:
   INDOM5.H20                     1223       FB         8000        80

14.Atmospheric CO2 and N2O
   data for Indomed Leg 11A
   INDOM I1AAIR                    204        FB         8000        80

15.Surface seawater CO2 and
   N20 data for Indomed Leg 11A
   INDOM11AH2O                     207        FB         8000        80

16.Atmospheric CO2 and N20
   data for Indomed Leg 12:
   INDOM 12.AIR                   1520       FB         8000        80

17.Surface seawater CO2 and
   N20 data for Indomed Leg 12:
   INDOM12.H20                    1521       FB         8000        80

18.Atmospheric CO2 and N20
   data for Indomed Leg 15:
   INDOM15.AIR                     989        FB         8000        80

19.Surface seawater CO2 and
   N20 data for Indomed Leg 15:
   INDOM15.H20                     934        FB         8000        80

20.Atmospheric CO2 and N20
   data for Indomed Leg 15A:
   INDOM 15A.AIR                   353        FB         8000        80

21.Surface seawater CO2 and
   N20 data for Indomed Leg 15A
   INDOM 15A.H2O                   353        FB         8000        80

22.Atmospheric CO2 and N2O
   data for NORPAX Transit:
   NORPAXO.AIR                     375        FB         8000        80

23.Surface seawater CO2 and
   N2O data for NORPAX Transit:
   NORPAXO.H20                     375        FB         8000        80

24.Atmospheric CO2 and N2O
   data for NORPAX Leg 7:
   NORPAX7.AIR                    1115       FB         8000        80

25.Surface seawater CO2 and
   N20 data for NORPAX Leg 7:
   NORPAX7.H20                    1107       FB          8000        80

26.Atmospheric CO2 and N20
   data for NORPAX Leg 9:
   NORPAX9.AIR                    1141       FB          8000        80

27.Surface seawater CO2 and
   N20 data for NORPAX Leg 9:
   NORPAX9.H20                    1143       FB          8000        80

28.Atmospheric CO2 and N20
   data for NORPAX Leg 13:
   NORPAX13.AIR                   1130       FB          8000        80

29.Surface seawater CO2 and
   N20 data for NORPAX Leg 13:
   NORPAX13.H20                   1128       FB          8000        80

30.Atmospheric CO2 and N20
   data for NORPAX Leg 15:
   NORPAX15AIR                    1301       FB          8000        80

31.Surface seawater CO2 and
   N20 data for NORPAX Leg 15:
   NORPAX15.H20                   1300       FB          8000        80

32.Atmospheric CO2 and N20
   data for TTOINAS Leg 1:
   NASLAIR                         568       FB          8000        80

33.Surface seawater CO2 and
   N,O data for TTO/NAS Leg 1:
   NAS 1.H20                       542       FB          8000        80

34.Atmospheric CO2 and N20
   data for TTO/NAS Leg 2:
   NAS2.AIR                       1201       FB          8000        80

35.Surface seawater CO2 and
   N20 data for TTO/NAS Leg 2:
   NAS2.H20                       1115       FB          8000        80

36.Atmospheric CO2 and N2O
   data for TTO/NAS Leg 3:
   NAS3.AIR                       1300       FB          8000        80

37.Surface seawater CO2 and
   N20 data for TTO/NAS Leg 3:
   NAS3.H20                       1274       FB          8000        80

38.Atmospheric CO2 and N2O
   data for TTO/NAS Leg 4:
   NAS4.AIR                       1119       FB          8000        80

39. Surface seawater CO2 and
    N20 data for TTO/NAS Leg 4:
    NAS4.H20                       933        FB           8000        80

40. Atmospheric CO2 and N20
    data for TTO/NAS Leg 5:
    NAS5AIR                       1206        FB           8000        80


41. Surface seawater CO2 and
    N20 data for TTO/NAS Leg 5:
    NAS5.H20                      1109        FB           8000        80

42. Atmospheric CO2 and N20
    data for TTO/NAS Leg 6:
    NAS6AIR                       1255        FB           8000        80

43. Surface seawater CO2 and
    N20 data for TTO/NAS Leg 6:
    NAS6.H20                      1212        FB           8000        80

44. Atmospheric CO2 and N20
    data for TTO/NAS Leg 7:
    NAS7.AIR                      1144        FB           8000        80

45. Surface seawater CO2 and
    N20 data for TTO/NAS Leg 7:
    NAS7.H2O                      1089        FB           8000        80

46. Atmospheric CO2 and N20
    data for Hudson 82-001 Leg 1:
    HUD LAM                       1578        FB           8000        80

47. Surface seawater CO2 and N20
    data for Hudson 82-001 Leg 1:
    HUD 1.H20                     1590         FB          8000        80


48. Atmospheric CO2 and N2O
    data for Hudson 82-001 Leg 2:
    HUD2.AIR                       544         FB          8000        80

49. Surface seawater CO2 and N20
    data for Hudson 82-001 Leg 2:
    HUD2.H2O                       496         FB          8000         80

50.Atmospheric CO2 and N20
    data for TTOTTAS Leg 1:
    TASIAIR                        953         FB          8000         80


51.Surface seawater CO2 and
    N20 data for TTO/TAS Leg 1:
    TAS1.H20                       947         FB          8000         80


52.Atmospheric CO2 and N20
    data for TTO/TAS Leg 2:
    TAS2.AIR                      1165        FB          8000         80

53.Surface seawater CO2 and
   N2O data for TTO/TAS Leg 2:
   TAS2.H20                       1133       FB          8000        80

54.Atmospheric CO2 and N20
   data for TTOiTAS Leg 3:
   TAS3.AIR                        905        FB          8000        80

55.Surface seawater CO2 and
   N20 data for TTO/TAS Leg 3:
   TAS3.H20                        904       FB          8000        80

56.Atmospheric CO2 and N20
   data for Ajax Leg 1:
   AJAX LAIR                      1408       FB          8000        80

57.Surface seawater CO2 and
   N20 data for Ajax Leg 1:
   AJAX1.H20                      1407       FB          8000        80

58.Atmospheric CO2 and N2O
   data for Ajax Leg 2:
   AJAX2.AIR                      1785       FB          8000        80

59.Surface seawater CO2 and
   N20 data for Ajax Leg 2:
   AJAX2.H20                      1748       FB          8000        80

60.Atmospheric CO2 and N20
   data for TPS24 Leg 1:
   TPS241.AIR                     1392       FB          8000        80

61.Surface seawater CO2 and
   N20 data for TPS24 Leg 1:
   TPS241.H20                     1485       FB          8000        80

62.Atmospheric CO2 and N20
   data for TPS24 Leg 2:
   TPS242.AIR                     1499       FB          8000        80

63.Surface seawater CO2 and
   N20 data for TPS24 Leg 2:
   TPS242.H20                     1513       FB          8000        80

64.Atmospheric CO2 and N2O
   data for TPS47 Leg 1:
   TPS471.AIR                     1554       FB          8000        80

65.Surface seawater CO2 and
   N20 data for TPS47 Leg 1:
   TPS471.H20                     1595       FB          8000        80

66.Atmospheric CO2 and N20
   data for Ant V Leg 2:
   ANT52.AIR                      3641       FB          8000        80

67.Surface seawater CO2 and
   N20 data for Ant V Leg 2:
   ANT52.H20                      1697       FB          8000       80

68.Atmospheric CO2 and N20
   data for Ant V Leg 3:
   ANT53.AIR                      3592       FB          8000       80

69.Surface seawater CO2 and
   N20 data for Ant V Leg 3:
   ANT53.H20                      2797       FB          8000       80

70.Atmospheric CO2 and N20
   data for SAVE Transit:
   SAVEO.AIR                       825        FB          8000       80

71.Surface seawater CO2 and
   N20 data for SAVE Transit:
   SAVEO.H20                       816        FB          8000       80

72.Atmospheric CO2 and N2O
   data for SAVE Leg 1:
   SAVEI.AIR                       930        FB          8000       80

73.Surface seawater CO2 and
   N20 data for SAVE Leg 1:
   SAVE1.H20                       888        FB          8000       80

74.Atmospheric CO2 and N20
   data for SAVE Leg 2:
   SAVE2.AIR                      1624       FB          8000       80

75.Surface seawater CO2 and
   N20 data for SAVE Leg 2:
   SAVE2.H20                      1618       FB          8000       80

76.Atmospheric CO2 and N20
   data for SAVE Leg 3:
   SAVEO.AIR                      1790       FB          8000       80

77.Surface seawater CO2 and
   N20 data for SAVE Leg 3:
   SAVE3.H20                      1785       FB          8000        80

78.Atmospheric CO2 and N20
   data for SAVE Leg 4:
   SAVE4.AIR                      1713       FB          8000        80

79.Surface seawater CO2 and
   N20 data for SAVE Leg 4:
   SAVE4.H20                      1697       FB          8000        80

80.Atmospheric CO2 and N20
   data for SAVE Leg 5:
   SAVEO.AIR                      2044        FB         8000        80

81.Surface seawater CO2 and
   N2O data for SAVE Leg 5:
   SAVE5.H20                      1927       FB          8000        80

82.Atmospheric CO2 and N20
   data for SAVE Leg 6:
   SAVE6.AIR                      1471       FB          8000        80

83.Surface seawater CO2 and
   N2O data for SAVE Leg 6:
   SAVE6.H20                      1466       FB          8000        80

84.Atmospheric CO2 and N20
   data for CGC-90 Leg 1:
   CGC901.AIR                     1175       FB          8000        80

85.Surface seawater CO2 and
   N20 data for CGC-90 Leg 1:
   CGC901.H20                     1197       FB          8000        80

86.Atmospheric CO2 and N2O
   data for CGC-90 Leg 2:
   CGC902.AIR                      996        FB          8000        80

87.Surface seawater CO2 and
   N20 data for CGC-90 Leg 2:
   CGC902.H20                     1003       FB          8000        80

Total records                  102,523 (or -7.1 mB)
---------------------------------------------------------------------------
αFB = fixed block.
βSAS is the registered trademark of SAS Institute, Inc., Cary, NC 27511-8000.

12. Descriptive File on the Tape/Diskettes

The following is a listing of File 1 on the magnetic tape (or NDP044.DES on the floppy diskettes) distributed by CDIAC. This file is intended to complement the documentation and provide details (i.e., variable descriptions, formats, and units) about the data files on the magnetic tape or floppy diskettes.

Title of the Data Set

Surface Water and Atmospheric Carbon Dioxide and Nitrous Oxide Observations by Shipboard Automated Gas Chromatography: Results from Expeditions between 1977 and 1990.

Data Contributors

R. F. Weiss, F. A. Van Woy, P. K. Salameh
Scripps Institution of Oceanography
University of Calfornia, San Diego
La Jolla, California

Source and Scope of the Data

Note: The material provided on the magnetic tape or floppy diskettes for this section is essentially identical to the contents of Sections 4 (Source Information) and 5 (Methodology) of Part I of this documentation.

Data Format

Eighty-seven files are provided on this magnetic tape or these floppy diskettes, including (1) this descriptive file - File 1 on the magnetic tape or NDP044.DES on the floppy diskettes; (2) a file containing a list of expedition legs on which measurements were made - File 2 on the magnetic tape or TRACK.LST on the floppy diskettes; (3) a file containing a list of the data filenames corresponding (by number) to the expedition legs listed in File 2 (or TRACK.LST) - File 3 on the magnetic tape or DATA.LST on the floppy diskettes; (4) a FORTRAN-77 retrieval program to read and print any of the data files - File 4 on the magnetic tape or NDP044.FOR on the floppy diskettes; (5) a SAS input/output routine to read and print any of the data files - File 5 on the magnetic tape or NDP044.SAS on the floppy diskettes; and (6) - (87) 82 files containing the surface water and atmospheric CO2 and N2O data - Files 6-87 on the magnetic tape or *.AIR and *.H2O on the floppy diskettes [with full filenames as listed in File 3 (or DATA.LST)].

Table 2 (located in the documentation that accompanies this tape/diskettes) presents a partial listing of one of the surface water and atmospheric CO2 and N2O data files. The data files are formatted in the following way:

	CHARACTER SAMPTYP, HEADER*77, DATEMO*3, LATHEM, LONHEM
	INTEGER DATADA, DATEYR, TIME
	REAL LAT, LON, PRESS, H2OTMP, XN2O, XCO2
	READ (5, 500) SAMPTYP, HEADER
   10	READ (5, 600, END=800) DATEDA, DATEMO, DATEYR, TIME,
    1	LAT, LATHEM, LON, LONHEM, PRESS, H2OTMP, XN20, XCO2
        GOTO 10
  500	FORMAT (A1, 2X, A77)
  600   FORMAT (I2, IX, A3, IX, I2, 3X, I4, 3X, F7.3, 1X, A1, 3X, F8.3, 
    1           1X, A1, 3X, F6.1, 3X, F5.2, 3X, F5.A, 3X, F5.1)
  800   STOP

where

SAMPTYP is a one-character code describing the type of samples being presented in the data file: A = atmospheric samples, S = surface seawater (i.e., gas equilibrated with surface seawater) samples;
HEADER is a descriptive character string consisting of (1) the name of the expedition (e.g., AJAX Leg 1) and (2) the name of the research vessel (e.g., R/V Knorr);
DATEDA is the numeric day of the month on which the sample was collected;
DATEMO is the three-letter abbreviation (Jan, Feb, etc.) for the month in which the sample was collected;
DATEYR is the final two digits of the year (since 1900) in which the sample was collected;
TIME is the Greenwich Mean Time at which the sample was collected, expressed in 24-hour time from 0000 to 2359;
LAT is the latitude (in decimal degrees) at which the sample was collected, with possible values from -90,000 to 90,000 (north latitudes are represented as positive);
LATHEM is the latitudinal hemisphere in which the sample was taken; N = Northern Hemishpere, S = Southern Hemisphere;
LON is the longitude (in decimal degrees) at which the sample was collected, with possible values from -180,000 to 180,000 (east longitudes are represented as positive);
LONHEM is the longitudinal hemisphere in which the sample was taken: E = Eastern Hemisphere, W = Western Hemisphere;
PRESS is the approximate sea level barometric pressure in mBar, interpolated from discrete values recorded on the ship at hydrographic stations;
H2OTMP is the approximate surface water temperature in degrees Celsius, interpolated from discrete values recorded on the ship at hydrographic stations;
XN2O is the dry gas mole fraction of nitruos oxide (N2O) in the sample, measured in parts per billion (ppb);
XCO2 is the dry gas mole fraction of carbon dioxide(CO2) in the sample, measured in parts per million (ppm);

Stated in tabular form, the contents include the following:

--------------------------------------------------------
          Variable  Variable            Starting  Endin
Variableα  type      widthβ    Line     column    column
--------------------------------------------------------
SAMPTYP   Character  Al         1         1        1
HEADER    Character  A77        1         4        80
DATEDA    Numeric     I2       2...n      1        2
DATEMO    Character  A3        2...n      4        6
DATEYR    Numeric     12       2...n      8        9
TIME      Numeric     I4       2...n     13        16
LAT       Numeric    F73       2...n     20        26
LATHEM    Character  Al        2...n     28        28
IAN       Numeric    F8.3      2...n     32        39
LONHEM    Character  Al        2...n     41        41
PRESS     Numeric    F6.1      2...n     45        50
H2OTMP    Numeric    F5.2      2...n     54        58
XN2O      Numeric    F5.1      2...n     62        66
XCO2      Numeric    F5.1      2...n     70        74
--------------------------------------------------------
αMissing values are represented as follows - PRESS: -999.9; H2OTMP: 99.99; XN2O: -99.9; XCO2:-99.9.
βValues for variable width are entered as FORTRAN 77 format codes.

References

Note: The material provided on the magnetic tape or floppy diskettes for this secion is identical to the contents of Section 9 (References) of Part I of this document

13. Listing of the FORTRAN-77 Data Retrieval Program

The following is a listing of the FORTRAN-77 data retrieval program (File 4 on magnetic tape or NDP044.FOR on floppy diskette) provided by CDIAC to read and pring the surface water and atmospheric CO2 and N2O data (Files 6-87 on magnetic tape or files *.AIR and *.H2O on floppy diskettes). The job control language (JCL) statements (preceded by // or /*) shown below are not provided in the file on the tape/diskette; requestors must add JCL statement themselves if required. The statments required will vary for each operating system. The JCL statements shown below are provided to illustrate the statements that an individual using an IBM mainframe (e.g., IBM 3090) at ORNL would need to read these data from a nine-track, 6250 BPI, standard-labeled tape with character written in EBCDIC.

//UTDCO2 JOB(12345), 'USER ADDRESS'
//OUT OUTPUT DEFAULT=YES,JESDS=ALL,DEST=LOCAL
//EXEC FORTVCLG
//FORT.SYSIN DD =

C*************************************************************
C A FORTRAN program to read and print the surface water and
C   atmospheric carbon dioxide and nitrous oxide data.
C
C*************************************************************

	CHARACTER SAMPTYP, HEADER*77, DATEMO*3, LATHEM, LONHEM
	INTEGER DATEDA, DATEYR, TIME
	REAL LAT, LON, PRESS, H2OTMP, XN2O, XCO2
	READ (5, 500) SAMPTYP, HEADER
	WRITE (6, 500) SAMPTYP, HEADER
     10 READ (5, 600, END=800) DATEDA, DATEMO, DATEYR, TIME, LAT,
       1   LATHEM, LON, LONHEM, PRESS, H2OTMP, XN2O, XCO2
        WRITE (6, 650 DATEDA, DATEMO, DATEYR, TIME, LAT,
       1   LATHEM, LON, LONHEM, PRESS, H2OTMP, XN2O, XCO2
        GOTO 10
    500 FORMAT (A1, 2X, A77)
    600 FORMAT (I2, 1X, A3, 1X, I2, 3X, I4, 3X, F7.3, 1X, A1, 3X, F8.3, 1X, A1, 
       1        3, F6.1, 3X, F5.2, 3X, F5.1, 3X, F5.1)
    650 FORMAT (I2, 1X, A3, 1X, I2, 3X, I4.4, 3X, F7.3, 1X, A1, 3X, F8.3, 1X,
       1        A1, 3X, F6.1, 3X, F5.2, 3X, F5.1, 3X, F5.1, '       ')
    800 STOP
        END
/*
//GO.FT05F001 DD UNIT=TAPE62, VOL=SHR=TAPEVOL, DISP=(,PASS),
// LABEL=(4, SL, RETPD=0),
// DSN=TAB.NDP044.DATA
//GO.FTO6F001 DD *
//

14. Listing of the SAS Input/Output Retrieval Program

The following is a listing of the SASα data retrieval program (File 5 on magnetic tape or NDP044.SAS on floppy diskette) provided by CDIAC to read and print the surface water and atmospheric CO2 and N2O data (Files 6-87 on magnetic tape or files *.AIR and *.H2O on floppy diskettes). The JCL statements (preceded by // or /*) shown below are not provided in the file on the tape/diskette; requestors must add JCL statements themselves if required. The statements required will vary for each operating system. The JCL statements shown below are provided to illustrate the statements that an individual using an IBM mainframe (e.g., IBM 3090) at ORNL would need to read these data from a nine-track, 6250 BPI, standard-labeled tape with characters written in EBCDIC.

//UIDCO2 JOB (12345), 'USER ADDRESS'
//OUT OUTPUT DEFAULT=YES, JESDS=ALL, DEST=LOCAL
//STEP1 EXEC SAS, SASRGN=4096K, WORK=1600
//IN DD UNIT=TAPE62, VOL=SER=TAPEVOL,DISP=(,PASS),
// DSN=TAB.NDP044.DATA, LABEL=(4,SL,RETPD=0)
//FT06F001 DD SYSOUT=A
//SYSIN DD *

* A SAS program to rad and print the surface water and
   atmospheric carbon dioxide and nitrous oxide data;
DATA WEISS(DROP=X);
  INFILE IN;
  INPUT X $ 2 @;
  IF X EQ ' ' THEN DO;
    INPUT SAMPTYP $ 1 @4 HEADER $CHAR77.;
    RECCODE=1;
    END;
  ELSE DO;
    INPUT DATEDA 1-2 DATEMO $ 4-6 DATEYR 8-9 TIME 13-16 LAT 20-26
      LATHEM $ 28 LON 32-39 LONHEM $41 PRESS 45-50 H2OTMP 54-58
      XN2O 62-66 XCO2 70-74;
    RECCODE=2;
    END;
DATA PRINT;
  SET WEISS;
  FILE PRINT;
  OPTIONS MISSING=' ';
  IF RECCODE=1 THAN
    PUT SAMPTYP 1 HEADER 4-80;
  ELSE IF RECCODE-2 THEN
    PUT DATEDA 1-2 DATEMO 4-6 DATEYR 8-9 @13 TIME z4. @20 LAT 7.3
    LATHEM 28 @32 LOW 8.3 LONHEM 41 @45 PRESS 6.1 @54 H2OTMP 5.2
      @62 XN2O 5.1 @70 XCO2 5.1 @75 '      ';
RUN;
/*
//
-------------------------------------------------------------------
αSAS is the registered trademark of SAS Institute, Inc., Cary, NC 27511-8000.

15. Verification of Data Transport

The surface water and atmospheric CO2 and N2O data can be read by using the FORTRAN or SAS input/output routines provided. Users should verify that the data file had been correctly transported to theri systems by generating some or all of the statistics presented in Table 3. These statistics were generated in FORTRAN but can be duplicated in other languages or statistical packages. If the statistics generated by the user differ from those presented here, the data files may have been corrupted in transport.

These statistics are presented only as a tool to ensure proper reading of the data files. They are not to be construed as summarizing the surface water and atmospheric CO2 and N2O data.

The following is a listing of the FORTRAN program used to generate the statistics described in Table 3:

    CHARACTER DATAFIL*12, VARNAME(9)*6
    INTEGER DATEDA, DATEYR, TIME, I, J, N
    REAL LAT, LON, PRESS, H2OTMP, XN2O, XCO2, DATA(9, 5)
    VARNAME(1)='DATEDA'
    VARNAME(2)='DATEYR'
    VARNAME(3)='TIME  '
    VARNAME(4)='LAT   '
    VARNAME(5)='LON   '
    VARNAME(6)='PRESS '
    VARNAME(7)='H2OTMP'
    VARNAME(8)='XN2O  '
    VARNAME(9)='XCO2  '
    DO 10 I=1,9
      DO 5 J=1,5
        DATA(I,J)=0
  5   CONTINUE
 10 CONTINUE
    N=0
    OPEN (UNIT=2, FILE='DATA.LST', ACCESS='SEQUENTIAL',
   1  FORM='FORMATTED', STATUS='OLD')
    OPEN (UNIT=4, FILE='SUMSTATS.OUT', ACCESS='SEQUENTIAL',
   1  FORM='FORMATTED', STATUS='NEW')
 15 READ (2, 100, END=45) DATAFIL
    OPEN (UNIT=3, FILE=DATAFIL, ACCESS='SEQUENTIAL',
   1  FORM='FORMATTED', STATUS='OLD')
    READ (3, 200)
 20 READ (3, 300, END=40) DATEDA, DATEYR, TIME, LAT, LON, PRESS
   1  H2OTMP, XN2O, XCO2
    DATA(1, 1)=REAL(DATEDA)
    DATA(2, 1)=REAL(DATEYR)
    DATA(3, 1)=REAL(TIME)
    DATA(4, 1)=LAT
    DATA(5, 1)=LON
    DATA(6, 1)=PRESS
    DATA(7, 1)=H2OTMP
    DATA(8, 1)=XN2O
    DATA(9, 1)=XCO2

    IF(N.EQ.0) THEN
      DO 30 I=1,9
        DO 25 J=4,5
	  DATA(I, J)=DATA(I,1)
 25	CONTINUE
 30   CONTINUE
    END IF
    DO 35 I=1,9
      DATA(I, 2)=DATA(I, 2)+DATA(I,1)
      IF(DATA(I, 1).LT.DATA(I, 4)) DATA(I, 4)=DATA(I, 1)
      IF(DATA(I, 1).GT.DATA(I, 5)) DATA(I, 5)=DATA(I, 1)
 35 CONTINUE
    N=N+1
    GOTO 20
 40 CLOSE (UNIT=3)
    GOTO 15
 45 CLOSE (UNIT=2)
    DO 50 I=1,9
      DATA(I, 3)=DATA(I, 2)/REAL(N)
 50 CONTINUE
    DO 55 I=1,9
      WRITE (4, 400) VARNAME(I), N, DATA(I, 3), DATA(I, 4),
   1    DATA(I, 5)
 55 CONTINUE
    CLOSE (UNIT=4)
    STOP
100 FORMAT (4X, A12)
200 FORMAT (1X)
300 FORMAT (I2, 5X, I2, 3X, I4, 3X F7.3, 5X, F8.3, 5X, F6.1, 3X, F5.2, 
   1  3X, F5.1, 3X, F5.1)
400 FORMAT (1X, A6, 2X, I6, 2X, F8.3, 2X, F8.3, 2X, F8.3)
    END
Home About CDIAC FAQ What's New? CDIAC Publications Products AmeriFlux Network Ocean CO2 NARSTO FACE Newsletter Search CDIAC Data Submission Staff Contact Us
Find
CDIAC logo CDIAC Carbon Dioxide Information Analysis Center http://cdiac.ornl.gov CDIAC Services CDIAC - Carbon Dioxide Information Analysis Center