C==================================================================
C PROGRAM TO READ GRIDDED CO2 FOSSIL FUEL EMISSION DATA
C WHERE
C FF = CO2 EMISSION FROM FOSSIL FUELS (1000* METRIC TONS C PER YEAR)
C==================================================================

      INTEGER YEAR
      REAL*8 FF(180,360)
      REAL*8 SUM
      CHARACTER*40 INFILE
      CHARACTER*40 OUTFILE
C
C GRIDCAR.YEAR = ONE DEGREE GRIDDED C(O2) FOSSIL FUEL EMISSIONS
      YEAR=1950
      INFILE='GRIDCAR.50'
      OUTFILE='GRIDOUT.50'
C
      PRINT *,'PROCESSING YEAR: ',YEAR
      PRINT *,'INPUT FILE READ: ',INFILE
      PRINT *,'ECHO PRINT TO FILE: ',OUTFILE
C
      OPEN(10,FILE=INFILE,STATUS='OLD')
      OPEN(20,FILE=OUTFILE,STATUS='UNKNOWN')
C
      WRITE(20,*)'C(O2) EMISSIONS (UNITS) IN YEAR:', YEAR
      SUM=0.D0
C FROM NORTH>SOUTH
        DO 10 I=1,180
C FROM WEST>EAST:
           DO 10 J=1,360
              READ(10,*)FF(I,J)
              SUM=SUM+FF(I,J)
C ECHO PRINT:
C             WRITE(20,*)FF(I,J)
10      CONTINUE
      PRINT *,SUM
      CLOSE (UNIT=10)
      CLOSE (UNIT=20)
C
C 1990 -------------------------------------
C 5811613.7     
C 5811272. NATIONAL TOTALS FROM NDP030.R6/NATION92.EMS
C    -341.6 == DIFF IN NETHERLANDS ANTILLES  UN CODE 530
C 1980 -------------------------------------
C 5042867.8     
C 5042878. NATIONAL TOTALS FROM NDP030.R6/NATION92.EMS
C              DIFFERENCE == ROUNDOFF
C 1970--------------------------------------
C 3861021.8     
C 3861023. NATIONAL TOTALS FROM NDP030.R6/NATION92.EMS
C
C 1960--------------------------------------
C 2505231.8     
C 2505235. NATIONAL TOTALS FROM NDP030.R6/NATION92.EMS
C
C 1950--------------------------------------
C 1588607.5     
C 1587139. NATIONAL TOTALS FROM NDP030.R6/NATION92.EMS
C   -1471. == DIFF IN IRAN UN CODE 364 
C
      STOP
      END
C==================================================================