	DIMENSION COLO3(18,360),AREA(18)
C
       DATA AREA/0.0152,0.0451,0.0737,0.1000,0.1233,
     *  0.1428,0.1580,0.1683,0.1736,0.1736,0.1683,
     *  0.1580,0.1428,0.1233,0.1000,0.0737,0.0451,
     *  0.0152/
	IJMAX=18
	WRITE(6,110)
 110	FORMAT(' READ IN IOUT (I3)',
     *  ' THE NUMBER OF TIMES COLO3 IS WRITTEN')
	READ(5,101)IOUT
 101	FORMAT(I3)
	write(97)iout
	DO 100 I=1,IOUT
	   READ(96)COLO3
	TOTALO3=0.0E0
	DO 400 IDAY=1,360
	DO 400 IJ=1,IJMAX
	TOTALO3=TOTALO3+COLO3(IJ,IDAY)*AREA(IJ)
400	CONTINUE
	DOBSON=TOTALO3/360./2./2.69E+16
	WRITE(6,505)I,DOBSON
	write(97)i,dobson
505	FORMAT(' I=',I3,
     *  ' GLOBAL YEARLY AVERAGE (DOBSON UNITS) =',1PE21.13)
 100	CONTINUE
C
       STOP
       END

