c
c TO READ TMI DAILY MEAN SST
c
parameter (idim = 1440, jdim = 305)
parameter (imiss = 255)
parameter (rmiss = -999.0)
real*4 sst(idim,jdim)
character*1 csst(idim,jdim)
integer*2 isst
character c1(2)*1, c2*2
equivalence (c1,c2)
101 format (a2)
c OPEN DATA FILE
open(10,file='tmi_1day.19990101', access='direct',
2 form='unformatted', status='old', recl=idim*jdim, err=99)
c READ COUNT DATA
read(10,rec=1) csst
c CONVERT COUNT TO SST
do 100 i = 1, idim
do 110 j = 1, jdim
c1(2) = csst(i,j)
read(c2,101) isst
if (isst.eq.imiss) then
c MISSING
xsst(i,j) = rmiss
else
xsst(i,j) = real(isst)/10.0 + 10.0
endif
110 continue
100 continue
c CLOSE
99 close(10)
c STOP
stop
end
5. GrADSによる画像表示
このデータは、GrADSの "non float data" のフォーマットで書かれています。
GrADS(The Grid Analysis and Display System)はデスクトップ上でインタラクティブに利用できるツールです。GrADSはほとんどのUNIXワークステーション、マッキントッシュ、DOSまたはLinuxベースのパソコン上で使用可能です。GrADSのソフトウェアはanonymous FTPを通じて、自由に取得することができます。