program readoiv2clim parameter(im=360,jm=180) real sst(im,jm,12) c---------------------------------------------------------------------------- c This program reads the Version 2 OI ASCII climatology c c The SST data are in degrees Celsius. c Missing values over land are set to -999.9 c c c GRID ORIENTATION c ---- ----------- c sst(1,1,k) = 0.5E, 89.5S c sst(1,2,k) = 0.5E, 88.5S c sst(1,180,k) = 0.5E, 89.5N c sst(2,1,k) = 1.5E, 89.5S c sst(360,1,k) = 359.5E, 89.5S c sst(360,180,k) = 359.5E, 89.5N c c where c k = 1 is January, k= 2 is February, and so on to k = 12 which is December. c c--------------------------------------------------------------------------- open (10,file='aoi.71.00.clim.asc',form='formatted') read(10,'(20f7.2)') sst do K=1,12 PRINT 7,K,SST(70,80,K) 7 FORMAT ('MONTH =',I3,3X,'SST (69.5E,10.5S) =',F6.2) enddo stop end