tco2dat.for (File 6)
This file contains a FORTRAN 77 data-retrieval routine to read and print tco2_*.dat (Files 15-19). The following is a listing of this program. For additional information regarding variable definitions, variable lengths, variable types, units, and codes, please see the description for tco2_*.dat.
cc******************************************************************* c* FORTRAN 77 data retrieval routine to read and print the files c* named "tco2_*.dat" (Files 15-19) c******************************************************************** c*Defines variables* REAL lon, lat, dep, mld, trco2, tmp, aou, sal OPEN (unit=1, file='tco2_*.dat') OPEN (unit=2, file='tco2_*.txt') write (2, 5) c*Writes out column labels* 5 format (3X,'LONG',4X,'LAT',3X,'DEPTH',5X,'MLD',6X,'TCO2', 1 4X,'TEMP',5X,'AOU',2X,'SALNTY',/,4X,'DEG',4X,'DEG',7X,'M', 2 7X,'M',3X,'µmol/KG',5X,'DEG',1X,'µmol/KG',2X,'PSS-78',/) c*Sets up a loop to read and format all the data in the file* read (1, 6) 6 format (///////////) 7 CONTINUE read (1, 10, end=999) lon, lat, dep, mld, trco2, tmp, 1 aou, sal 10 format (F7.1, 1X, F6.1, 1X, F7.1, 1X, F7.1, 1X, F9.1, 1 1X, F7.3, 1X, F7.3, 1X, F7.3) write (2, 20) lon, lat, dep, mld, trco2, tmp, aou, sal 20 format (F7.1, 1X, F6.1, 1X, F7.1, 1X, F7.1, 1X, F9.1, 1 1X, F7.3, 1X, F7.3, 1X, F7.3) GOTO 7 999 close(unit=1) close(unit=2) stop end
Last modified: 2024-09-03T18:01:04Z