Table 3

Listing of the fortran retrieval program to read and print files ndp029e.dat, ndp029w.dat, and ndp029n.dat.

C
C   RETRIEVAL CODE TO READ AND PRINT THE CARBONATE
C   CHEMISTRY DATA FROM NOAA'S CO2 DYNAMICS CRUISES OF
C   THE EASTERN AND WESTERN NORTH PACIFIC OCEAN (NDP029W.DAT &
C   NDP029E.DAT) AND FROM LEGS 3 AND 13 OF THE NORPAX HAWAII-TAHITI
C   SHUTTLE EXPERIMENT (NDP029N.DAT).
C
C  READ THE HEADER RECORD PRECEDING EACH STATION FOR THE EASTERN
C  NORTH PACIFIC OCEAN DATA FILE (NDP029E.DAT)
C
      DIMENSION STANUM(2),STATN(2),LAT(2),LONG(2),DATE(2)
      OPEN(unit=3,file="ndp029e.dat",status='old',access='sequential')
      OPEN(unit=4,file="ndp029e.out",status='new',access='sequential')
      OPEN(unit=5,file="ndp029w.dat",status='old',access='sequential')
      OPEN(unit=6,file="ndp029w.out",status='new',access='sequential')
      OPEN(unit=7,file="ndp029n.dat",status='old',access='sequential')
      OPEN(unit=8,file="ndp029n.out",status='new',access='sequential')
  1   CONTINUE
      WRITE(4,5)
  5   FORMAT(/)
      READ(3,10) STANUM,LATDEG,LATMIN,LATTEN,HEMLAT,LONDEG,
     1 LONMIN,LONTEN,HEMLON,DATE
 10   FORMAT(2A3,1X,I2,1X,I2,2X,I1,A1,2X,I3,1X,I2,2X,I1,A1,1X,2A4,/)
      WRITE(4,15) STANUM,LATDEG,LATMIN,LATTEN,HEMLAT,LONDEG,
     1 LONMIN,LONTEN,HEMLON,DATE
 15   FORMAT(1X,2A3,2X,I2,1X,I2,'.',I1,A1,2X,I3,1X,I2,'.',
     1 I1,A1,2A4,/)
C
C   READ THE CARBONATE CHEMISTRY DATA FOR THE EASTERN NORTH PACIFIC
C   OCEAN (NDP029E.DAT)
C
  2   CONTINUE
      READ(3,20,END=99) DEPTH,TEMP,SALIN,PH,TOTALK,NCA
 20   FORMAT(1X,I4,2X,F5.2,3X,F6.3,3X,F5.3,3X,I4,3X,I5)
      IF(TEMP .EQ. 0) GOTO 1
      WRITE(4,25) DEPTH,TEMP,SALIN,PH,TOTALK,NCA
 25   FORMAT(1X,I4,2X,F5.2,3X,F6.3,3X,F5.3,3X,I4,3X,I5)
      GOTO 2
 99   CONTINUE
C
C  READ THE HEADER RECORD FOR EACH STATION OF THE WESTERN NORTH
C  PACIFIC OCEAN DATA FILE (NDP029W.DAT)
C
101   CONTINUE
      WRITE(6,105)
105   FORMAT(/)
      READ(5,110) STANUM,LATDEG,LATMIN,LATTEN,HEMLAT,LONDEG,
     1 LONMIN,LONTEN,HEMLON,DATE
110   FORMAT(2A3,1X,I2,1X,I2,2X,I1,A1,2X,I3,1X,I2,2X,I1,A1,1X,2A4,/)
      WRITE(6,115) STANUM,LATDEG,LATMIN,LATTEN,HEMLAT,LONDEG,
     1 LONMIN,LONTEN,HEMLON,DATE
115   FORMAT(1X,2A3,2X,I2,1X,I2,'.',I1,A1,2X,I3,1X,I2,'.',
     1 I1,A1,2A4,/)
C
C  READ THE CARBONATE CHEMISTRY DATA FOR THE WESTERN NORTH PACIFIC
C  OCEAN (NDP029W.DAT)
C
102   CONTINUE
      READ(5,120,END=199) DEPTH,TEMP,SALIN,PH,TOTALK
120   FORMAT(1X,I4,2X,F5.2,3X,F6.3,3X,F5.3,3X,I4)
      IF(TEMP .EQ. 0) GOTO 101
      WRITE(6,125) DEPTH,TEMP,SALIN,PH,TOTALK
125   FORMAT(1X,I4,2X,F5.2,3X,F6.3,3X,F5.3,3X,I4)
      GOTO 102
199   CONTINUE
C
C  READ THE HEADER RECORD PRECEDING EACH STATION FROM LEGS 3 AND 13
C  OF THE NORPAX HAWAII-TAHITI SHUTTLE EXPERIMENT DATA FILE
C  (NDP029N.DAT)
201   CONTINUE
      WRITE(8,205)
205   FORMAT(/)
      READ(7,210) STATN,LEG,NUM,LAT,LONG,DATE
210   FORMAT(2A4,I2,1X,I2,1X,2A3,1X,2A3,1X,2A4,/)
      WRITE(8,215) STATN,LEG,NUM,LAT,LONG,DATE
215   FORMAT(1X,2A4,I2,'-',I2,1X,2A3,1X,2A3,2A4,/)
C
C  READ THE CARBONATE CHEMISTRY DATA FROM THE NORPAX HAWAII-TAHITI
C  SHUTTLE EXPERIMENT DATA FILE (NDP029N.DAT)
C
202   CONTINUE
      READ(7,220,END=299) DEPTH,TEMP,SALIN,NCA,TOTALK,NCAREP
220   FORMAT(1X,I4,2X,F5.2,3X,F6.3,3X,I5,3X,I4,3X,I5)
      IF(TEMP .EQ. 0) GOTO 201
      WRITE(8,225) DEPTH,TEMP,SALIN,NCA,TOTALK,NCAREP
225   FORMAT(1X,I4,2X,F5.2,3X,F6.3,3X,I5,3X,I4,3X,I5)
      GOTO 202
299   CONTINUE
      STOP
      END