登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
下面是gs文件内容:
'reinit'
var='air'
pathr='D:\'
pathw='D:\'
y=1979
while (y<=2014)
say y
'sdfopen 'pathr''var'.'y'.nc'
'set fwrite 'pathw''var'.'y'.grd'
k=1
while (k<=17)
say k
j=1
while (j<=365)
'set lon 1 144'
'set lat 1 73'
'set z 'k''
'set t 'j''
'set gxout fwrite'
'd 'var''
j=j+1
endwhile
k=k+1
endwhile
'disable fwrite'
'close 1'
y=y+1
endwhile
'reinit'
;
然后运用fortran进行处理时如下:
OPEN(10,FILE="air.1979.grd",form='binary')
do iv=1,17
do id=1,365
read(10)((DAT(I,J,id,iv),I=1,NO),J=1,NA)
enddo
enddo
close(10)
出现问题:end of file during reading
请你们看看到底出了什么问题啊?多谢各位了!
|