Skip to main content
OCADSAccess DataNDP-076NDP-076 - talkdat.for (File 5)

talkdat.for (File 5)

This file contains a FORTRAN 77 data-retrieval routine to read and print talk_*.dat (Files 10-14). 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 talk_*.dat.

     c********************************************************************
     c* FORTRAN 77 data retrieval routine to read and print the files    
     c* named "talk_*.dat" (Files 10-14)                                 
     c********************************************************************
     
     c*Defines variables*
     
            REAL lon, lat, dep, mld, talk, tmp, sal, coefa, coefb
            REAL coefc
            OPEN (unit=1, file='talk_*.dat')
            OPEN (unit=2, file='talk_*.txt')
            write (2, 5)
            
     c*Writes out column labels*
           
      5     format (3X,'LONG',4X,'LAT',3X,'DEPTH',5X,'MLD',6X,
          1'TALK', 4X,'TEMP',2X,'SALNTY',4X,'A_COEFF',4X,
          2 'B_COEFF',4X,'C_COEFF',/,4X,'DEG',4X,'DEG',7X,'M',
          3 7X,'M',3X,'µmol/KG',5X,'DEG',2X,'PSS-78',5X,'OFFSET',
          4 7X,'TEMP',5X,'SALNTY',/)
     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, talk, tmp, 
          1 sal, coefa, coefb, coefc
          
      10    format (F7.1, 1X, F6.1, 1X, F7.1, 1X, F7.1, 1X, F9.1,
          1 1X, F7.3, 1X, F7.3, 1X, F10.3, 1X, F10.3, 1X, F10.3)
          
            write (2, 20) lon, lat, dep, mld, talk, tmp, 
          1 sal, coefa, coefb, coefc
          
      20    format (F7.1, 1X, F6.1, 1X, F7.1, 1X, F7.1, 1X, F9.1,
          1 1X, F7.3, 1X, F7.3, 1X, F10.3, 1X, F10.3, 1X, F10.3)
     
            GOTO 7
      999   close(unit=1)    
            close(unit=2)
            stop
            end
Last modified: 2021-03-17T18:30:28Z