- 积分
- 269
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2011-7-8
- 最后登录
- 1970-1-1
|

楼主 |
发表于 2012-7-31 20:23:24
|
显示全部楼层
做个霸气的木头 发表于 2012-7-31 15:50
我下了HadISST1_SST_update.nc.gz数据,先fwrite成二进制,再fortran读取并转换,很成功啊!因为是海温资 ...
唉 真是看不出错误。我也用了那个update试了以下,还是不出数据。给您看我的ctl和fortran 验证程序:
dset f:\sam\areacc\hadleycenter\sst_update.dat
title sst
undef -1e+30
xdef 360 linear -179.5 1
ydef 180 linear -89.5 1
zdef 1 linear 0 1
tdef 1 linear 00z01DEC2011 1mn
vars 1
sst 0 99 monthly 1 degree resolution sst
endvars
program readsst
integer,parameter:: ix=360,iy=180
real sst(ix,iy)
open(9,file='f:\sam\areacc\hadleycenter\sst_update.dat',form='unformatted',access='direct',recl=ix*iy)
read(9,rec=1) ((sst(ix,iy),i=1,ix),j=1,iy)
write(*,*) sst
end
fortran 和grads读出、画出的数据都是0,说明转化成二进制数据的步骤除了问题,所以我才一直怀疑fwrite. |
|