xco2airdat.for (File 2)

This file contains a FORTRAN 77 data-retrieval routine to read and print all *air.dat files. 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 *air.dat files.

   c*********************************************************************
   c* This is a Fortran 77 retrieval code to read and format the underway   
   c* air xCO2 and hydrographic measurements from the WOCE Indian Ocean
   c* survey cruises (*air.dat files)
   c********************************************************************* 
         
          INTEGER  flag
          REAL jday, atmpre, airxco2, lat, lon, temp, sal
          CHARACTER sect*11, date*8, time*8
          OPEN (unit=1, file='input.dat')
          OPEN (unit=2, file='output.dat')
          write (2, 5)
          
    5     format (2X,'SECTION',7X,'DATE',6X,'TIME',4X,'JULIAN',2X,
        1 'ATM_PRES',5X,'XCO2',5X,'XCO2',2X,'LATIT',3X,'LONGIT',3X,
        2 'SUR_TMP',2X,'SUR_SAL',/,5X,'#',11X,'GMT',7X,'GMT',5X,'DATE',
        3 6X,'ATM',3X,'DRY_AIR_PPM',1X,'QC_FL',3X,'DCM',6X,'DCM',5X,
        4 'DEG_C',5X,'PSS',/)
        
          read (1, 6)
    6     format (//////)
    
    7     CONTINUE    
           read (1, 10, end=999) sect, date, time, jday, atmpre, airxco2,
        1 flag, lat, lon, temp, sal

    10    format (1X, A11, 2X, A8, 2X, A8, 2X, F7.3, 2X, F7.5, 3X, F7.3,  
        1 5X, I1, 2X, F8.4, 1X, F8.4, 2X, F7.4, 2X, F7.4)

           write (2, 20) sect, date, time, jday, atmpre, airxco2,
        1 flag, lat, lon, temp, sal

    20    format (1X, A11, 2X, A8, 2X, A8, 2X, F7.3, 2X, F7.5, 3X, F7.3, 
        1 5X, I1, 2X, F8.4, 1X, F8.4, 2X, F7.4, 2X, F7.4)

           GOTO 7
   999   close(unit=5)    
           close(unit=2)
           stop
           end