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 and Name |
Description |
Logical Records |
Record Format |
Block Size |
Record Length |
| 1. NDP044.DES |
General descriptive information file |
324 |
FB |
8000 |
80 |
| 2. TRACKLST |
Track list of expedition legs |
66 |
FB |
9000 |
90 |
| 3. DATA.LST |
List of data filenames |
84 |
FB |
8000 |
80 |
| 4. NDPO44.FOR |
FORTRAN-77 data retrieval code to read and print the surface water and atmospheric CO2 and N20 data (Files 5-86) |
21 |
FB |
8000 |
80 |
| 5. NDPO44.SAS |
SASb input/output routine to read and print the surface water and atmospheric CO2 and N2O data (Files 5-86) |
26 |
FB |
8000 |
80 |
| 6. INDOM2.AIR |
Atmospheric CO2 and N20 data for Indomed Leg 2 |
1080 |
FB |
8000 |
80 |
| 7. INDOM2.H2O |
Surface seawater CO2 and N20 data for Indomed Leg 2 |
1068 |
FB |
8000 |
80 |
| 8. INDOM3.AIR |
Atmospheric CO2 and N20 data for Indomed Leg 3 |
349 |
FB |
8000 |
80 |
| 9. INDOM3.H20 |
Surface seawater CO2 and N20 data for indomed Leg 3 |
357 |
FB |
8000 |
80 |
| 10. INDOM4.AIR |
Atmospheric CO2 and N2O data for indomed Leg 4 |
1607 |
FB |
8000 |
80 |
| 11. INDOM4.H20 |
Surface seawater CO2 and N20 data for Indomed Leg 4 |
1529 |
FB |
8000 |
80 |
| 12. INDOM5.AIR |
Atmospheric CO2 and N20 data for Indomed Leg 5 |
1233 |
FB |
8000 |
80 |
| 13. INDOM5.H20 |
Surface seawater CO2 and N20 data for Indomed Leg 5 |
1223 |
FB |
8000 |
80 |
| 14. INDOM I1AAIR |
Atmospheric CO2 and N2O data for Indomed Leg 11A |
204 |
FB |
8000 |
80 |
| 15. INDOM11AH2O |
Surface seawater CO2 and N20 data for Indomed Leg 11A |
207 |
FB |
8000 |
80 |
| 16. INDOM 12.AIR |
Atmospheric CO2 and N20 data for Indomed Leg 12 |
1520 |
FB |
8000 |
80 |
| 17. INDOM12.H20 |
Surface seawater CO2 and N20 data for Indomed Leg 12 |
1521 |
FB |
8000 |
80 |
| 18. INDOM15.AIR |
Atmospheric CO2 and N20 data for Indomed Leg 15 |
989 |
FB |
8000 |
80 |
| 19. INDOM15.H20 |
Surface seawater CO2 and N20 data for Indomed Leg 15 |
934 |
FB |
8000 |
80 |
| 20. INDOM 15A.AIR |
Atmospheric CO2 and N20 data for Indomed Leg 15A |
353 |
FB |
8000 |
80 |
| 21. INDOM 15A.H2O |
Surface seawater CO2 and N20 data for Indomed Leg 15A |
353 |
FB |
8000 |
80 |
| 22. NORPAXO.AIR |
Atmospheric CO2 and N2O data for NORPAX Transit |
375 |
FB |
8000 |
80 |
| 23. NORPAXO.H20 |
Surface seawater CO2 and N2O data for NORPAX Transit |
375 |
FB |
8000 |
80 |
| 24. NORPAX7.AIR |
Atmospheric CO2 and N2O data for NORPAX Leg 7 |
1115 |
FB |
8000 |
80 |
| 25. NORPAX7.H20 |
Surface seawater CO2 and N20 data for NORPAX Leg 7 |
1107 |
FB |
8000 |
80 |
| 26. NORPAX9.AIR |
Atmospheric CO2 and N20 data for NORPAX Leg 9 |
1141 |
FB |
8000 |
80 |
| 27. NORPAX9.H20 |
Surface seawater CO2 and N20 data for NORPAX Leg 9 |
1143 |
FB |
8000 |
80 |
| 28. NORPAX13.AIR |
Atmospheric CO2 and N20 data for NORPAX Leg 13 |
1130 |
FB |
8000 |
80 |
| 29. NORPAX13.H20 |
Surface seawater CO2 and N20 data for NORPAX Leg 13 |
1128 |
FB |
8000 |
80 |
| 30. NORPAX15AIR |
Atmospheric CO2 and N20 data for NORPAX Leg 15 |
1301 |
FB |
8000 |
80 |
| 31. NORPAX15.H20 |
Surface seawater CO2 and N20 data for NORPAX Leg 15 |
1300 |
FB |
8000 |
80 |
| 32. NASLAIR |
Atmospheric CO2 and N20 data for TTOINAS Leg 1 |
568 |
FB |
8000 |
80 |
| 33. NAS 1.H20 |
Surface seawater CO2 and N,O data for TTO/NAS Leg 1 |
542 |
FB |
8000 |
80 |
| 34. NAS2.AIR |
Atmospheric CO2 and N20 data for TTO/NAS Leg 2 |
1201 |
FB |
8000 |
80 |
| 35. NAS2.H20 |
Surface seawater CO2 and N20 data for TTO/NAS Leg 2 |
1115 |
FB |
8000 |
80 |
| 36. NAS3.AIR |
Atmospheric CO2 and N2O data for TTO/NAS Leg 3 |
1300 |
FB |
8000 |
80 |
| 37. NAS3.H20 |
Surface seawater CO2 and N20 data for TTO/NAS Leg 3 |
1274 |
FB |
8000 |
80 |
| 38. NAS4.AIR |
Atmospheric CO2 and N2O data for TTO/NAS Leg 4 |
1119 |
FB |
8000 |
80 |
| 39. NAS4.H20 |
Surface seawater CO2 and N20 data for TTO/NAS Leg 4 |
933 |
FB |
8000 |
80 |
| 40. NAS5AIR |
Atmospheric CO2 and N20 data for TTO/NAS Leg 5 |
1206 |
FB |
8000 |
80 |
| 41. NAS5.H20 |
Surface seawater CO2 and N20 data for TTO/NAS Leg 5 |
1109 |
FB |
8000 |
80 |
| 42. NAS6AIR |
Atmospheric CO2 and N20 data for TTO/NAS Leg 6 |
1255 |
FB |
8000 |
80 |
| 43. NAS6.H20 |
Surface seawater CO2 and N20 data for TTO/NAS Leg 6 |
1212 |
FB |
8000 |
80 |
| 44. NAS7.AIR |
Atmospheric CO2 and N20 data for TTO/NAS Leg 7 |
1144 |
FB |
8000 |
80 |
| 45. NAS7.H2O |
Surface seawater CO2 and N20 data for TTO/NAS Leg 7 |
1089 |
FB |
8000 |
80 |
| 46. HUD LAM |
Atmospheric CO2 and N20 data for Hudson 82-001 Leg 1 |
1578 |
FB |
8000 |
80 |
| 47. HUD 1.H20 |
Surface seawater CO2 and N20 data for Hudson 82-001 Leg 1 |
1590 |
FB |
8000 |
80 |
| 48. HUD2.AIR |
Atmospheric CO2 and N2O data for Hudson 82-001 Leg 2 |
544 |
FB |
8000 |
80 |
| 49. HUD2.H2O |
Surface seawater CO2 and N20 data for Hudson 82-001 Leg 2 |
496 |
FB |
8000 |
80 |
| 50. TASIAIR |
Atmospheric CO2 and N20 data for TTOTTAS Leg 1 |
953 |
FB |
8000 |
80 |
| 51. TAS1.H20 |
Surface seawater CO2 and N20 data for TTO/TAS Leg 1 |
947 |
FB |
8000 |
80 |
| 52. TAS2.AIR |
Atmospheric CO2 and N20 data for TTO/TAS Leg 2 |
1165 |
FB |
8000 |
80 |
| 53. TAS2.H20 |
Surface seawater CO2 and N2O data for TTO/TAS Leg 2 |
1133 |
FB |
8000 |
80 |
| 54. TAS3.AIR |
Atmospheric CO2 and N20 data for TTOiTAS Leg 3 |
905 |
FB |
8000 |
80 |
| 55. TAS3.H20 |
Surface seawater CO2 and N20 data for TTO/TAS Leg 3 |
904 |
FB |
8000 |
80 |
| 56. AJAX LAIR |
Atmospheric CO2 and N20 data for Ajax Leg 1 |
1408 |
FB |
8000 |
80 |
| 57. AJAX1.H20 |
Surface seawater CO2 and N20 data for Ajax Leg 1 |
1407 |
FB |
8000 |
80 |
| 58. AJAX2.AIR |
Atmospheric CO2 and N2O data for Ajax Leg 2 |
1785 |
FB |
8000 |
80 |
| 59. AJAX2.H20 |
Surface seawater CO2 and N20 data for Ajax Leg 2 |
1748 |
FB |
8000 |
80 |
| 60. TPS241.AIR |
Atmospheric CO2 and N20 data for TPS24 Leg 1 |
1392 |
FB |
8000 |
80 |
| 61. TPS241.H20 |
Surface seawater CO2 and N20 data for TPS24 Leg 1 |
1485 |
FB |
8000 |
80 |
| 62. TPS242.AIR |
Atmospheric CO2 and N20 data for TPS24 Leg 2 |
1499 |
FB |
8000 |
80 |
| 63. TPS242.H20 |
Surface seawater CO2 and N20 data for TPS24 Leg 2 |
1513 |
FB |
8000 |
80 |
| 64. TPS471.AIR |
Atmospheric CO2 and N2O data for TPS47 Leg 1 |
1554 |
FB |
8000 |
80 |
| 65. TPS471.H20 |
Surface seawater CO2 and N20 data for TPS47 Leg 1 |
1595 |
FB |
8000 |
80 |
| 66. ANT52.AIR |
Atmospheric CO2 and N20 data for Ant V Leg 2 |
3641 |
FB |
8000 |
80 |
| 67. ANT52.H20 |
Surface seawater CO2 and N20 data for Ant V Leg 2 |
1697 |
FB |
8000 |
80 |
| 68. ANT53.AIR |
Atmospheric CO2 and N20 data for Ant V Leg 3 |
3592 |
FB |
8000 |
80 |
| 69. ANT53.H20 |
Surface seawater CO2 and N20 data for Ant V Leg 3 |
2797 |
FB |
8000 |
80 |
| 70. SAVEO.AIR |
Atmospheric CO2 and N20 data for SAVE Transit |
825 |
FB |
8000 |
80 |
| 71. SAVEO.H20 |
Surface seawater CO2 and N20 data for SAVE Transit |
816 |
FB |
8000 |
80 |
| 72. SAVEI.AIR |
Atmospheric CO2 and N2O data for SAVE Leg 1 |
930 |
FB |
8000 |
80 |
| 73. SAVE1.H20 |
Surface seawater CO2 and N20 data for SAVE Leg 1 |
888 |
FB |
8000 |
80 |
| 74. SAVE2.AIR |
Atmospheric CO2 and N20 data for SAVE Leg 2 |
1624 |
FB |
8000 |
80 |
| 75. SAVE2.H20 |
Surface seawater CO2 and N20 data for SAVE Leg 2 |
1618 |
FB |
8000 |
80 |
| 76. SAVEO.AIR |
Atmospheric CO2 and N20 data for SAVE Leg 3 |
1790 |
FB |
8000 |
80 |
| 77. SAVE3.H20 |
Surface seawater CO2 and N20 data for SAVE Leg 3 |
1785 |
FB |
8000 |
80 |
| 78. SAVE4.AIR |
Atmospheric CO2 and N20 data for SAVE Leg 4 |
1713 |
FB |
8000 |
80 |
| 79. SAVE4.H20 |
Surface seawater CO2 and N20 data for SAVE Leg 4 |
1697 |
FB |
8000 |
80 |
| 80. SAVEO.AIR |
Atmospheric CO2 and N20 data for SAVE Leg 5 |
2044 |
FB |
8000 |
80 |
| 81. SAVE5.H20 |
Surface seawater CO2 and N2O data for SAVE Leg 5 |
1927 |
FB |
8000 |
80 |
| 82. SAVE6.AIR |
Atmospheric CO2 and N20 data for SAVE Leg 6 |
1471 |
FB |
8000 |
80 |
| 83. SAVE6.H20 |
Surface seawater CO2 and N2O data for SAVE Leg 6 |
1466 |
FB |
8000 |
80 |
| 84. CGC901.AIR |
Atmospheric CO2 and N20 data for CGC-90 Leg 1 |
1175 |
FB |
8000 |
80 |
| 85. CGC901.H20 |
Surface seawater CO2 and N20 data for CGC-90 Leg 1 |
1197 |
FB |
8000 |
80 |
| 86. CGC902.AIR |
Atmospheric CO2 and N2O data for CGC-90 Leg 2 |
996 |
FB |
8000 |
80 |
| 87. CGC902.H20 |
Surface seawater CO2 and N20 data for CGC-90 Leg 2 |
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 Type |
Variable Widthβ |
Line |
Starting Column |
Ending 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