m153dat.for (File 3)

This file contains a FORTRAN 77 data retrieval routine to read and print met153.dat (File 5). 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 met153.dat.

     
     c****************************************************************
     c* FORTRAN 77 data retrieval routine to read and print the             
     c* file named "met153.dat" (File 5).                            
     c****************************************************************
     
            CHARACTER qualt*16
            INTEGER sta, cast, samp, bot 
            REAL pre, ctdtmp, ctdsal, ctdoxy, theta, sal, oxy, silka
            REAL nitrat, nitrit, phspht, tcarb, talk, pco2, pco2tmp
            REAL cfc113, ccl4, cfc12, cfc11
            OPEN (unit=1, file='met153.dat')
            OPEN (unit=2, file='m153.dat')
            write (2, 5)
     
      5     format (2X,'STNNBR',2X,'CASTNO',2X,'SAMPNO',2X,'BTLNBR',2X,
          1 'CTDPRS',2X,'CTDTMP',6X,'CTDSAL',2X,'CTDOXY',3X,'THETA',6X,
          2 'SALNTY',2X,'OXYGEN',2X,'SILCAT',2X,'NITRAT',2X,'NITRIT',2X,
          3 'PHSPHT',2X,'TCARBN',4X,'TALK',4X,'PCO2',1X,'PCO2TMP',4X,
          4 'CFC113',6X,'CCL4',4X,'CFC-12',4X,'CFC-11',13X,'QUALT1',/,
          5 36X,'DBAR',2X,'ITS-90',6X,'PSS-78',1X,'µmol/KG',2X,'ITS-90',
          6 6X,'PSS-78',1X,7('µmol/KG',1X,),3X,'UATM',5X,'DEG',3X,
          7 4('PMOL/KG',3X,),15X,'*',/,25X,'*******',21X,
          8 2('*******',1X,),12X,9('*******',1X,),10X,4('*******',3X,),
          9 15X,'*',/)
     
      7     CONTINUE    
            read (1, 10, end=999) sta, cast, samp, bot, pre, ctdtmp,
          1 ctdsal, ctdoxy, theta, sal, oxy, silka, nitrat, nitrit,
          2 phspht, tcarb, talk, pco2, pco2tmp, cfc113, ccl4, cfc12, 
          3 cfc11, qualt
     
      10    format (5X, I3, 7X, I1, 6X, I2, 5X, I3, 2X, F6.1, 1X, F7.4,
          1 3X, F9.4, 1X, F7.1, 1X, F7.4, 3X, F9.4, 1X, F7.1, 1X, F7.2,
          2 1X, F7.2, 1X, F7.2, 1X, F7.2, 2X, F6.1, 1X, F7.1, 1X, F7.1,
          3 1X, F7.2, 2X, F8.3, 2X, F8.3, 2X, F8.3, 2X, F8.3, 2X, A16)
            
            write (2, 20) sta, cast, samp, bot, pre, ctdtmp,
          1 ctdsal, ctdoxy, theta, sal, oxy, silka, nitrat, nitrit,
          2 phspht, tcarb, talk, pco2, pco2tmp, cfc113, ccl4, cfc12, 
          3 cfc11, qualt
      
      20    format (5X, I3, 7X, I1, 6X, I2, 5X, I3, 2X, F6.1, 1X, F7.4,
          1 3X, F9.4, 1X, F7.1, 1X, F7.4, 3X, F9.4, 1X, F7.1, 1X, F7.2,
          2 1X, F7.2, 1X, F7.2, 1X, F7.2, 2X, F6.1, 1X, F7.1, 1X, F7.1,
          3 1X, F7.2, 2X, F8.3, 2X, F8.3, 2X, F8.3, 2X, F8.3, 2X, A16)
     
            GOTO 7
     
     999   close(unit=1)    
            close(unit=2)
            stop
            end