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