GRADS站点资料画图求助~~参考过有关求助答案，但是一无所获，不知道有没有大神搭救

瀟緗繖亽

先贴出FORTRAN程序：


real::m(12*176),lat(12*176),lon(12*176)
character*8 stid(12*176)
integer nlev,flag
tim=0.0
nlev=1
flag=1

open(1,file='F:\m.dat')

read(1,*)m

open(2,file='F:\lat.dat')

read(2,*)lat

open(3,file='F:\lon.dat')
read(3,*)lon

close(1)
close(2)
close(3)

do i=1,176*12
if(lat(i)==0.0)then
m(i)=-999.0
endif
enddo

open(4,file='F:\station.txt')
do i=1,176*12
read(4,*)stid(i)
enddo
close(4)


open(5,file='F:\station.grd',form='binary')
do i=1,12*176
write(5,*)stid(i),lat(i),lon(i),tim,nlev,flag,m(i)
enddo
nlev=0
write(5,*)stid(i-1),lat(i-1),lon(i-1),tim,nlev,flag,m(i-1)
close(5)
end


我的ＣＴＬ：
DSET  F:/station.grd
DTYPE station
STNMAP F:/grid.map
UNDEF   -999.0
TITLE DUCT Data
TDEF 1 linear 01jan2014 1mo
VARS 1
m 0 99 DUCT MAGTINUTY
ENDVARS


请大家帮帮忙，如果可以进一步帮我，加我ＱＱ吧，我想跟大家多学点，1284569459

lqouc

Fortran输出的时候把*去掉。建议程序最好写的规范一点。

jeffggg

我以前遇到过i这个问题，后来我自己重新做就解决了，不知道你的问题具体处在哪里，不行你就重头重新再做一次

瀟緗繖亽

lqouc 发表于 2014-6-7 11:21
Fortran输出的时候把*去掉。建议程序最好写的规范一点。

lqouc，你好！我按照你说的，已经去掉了‘*’，但是还是不行，依然出现：
forrtl: severe (256): unformatted I/O to unit open for formatted transfers, unit
1, file F:\m.dat
Image              PC        Routine            Line        Source
Text1.exe          0040A279  Unknown               Unknown  Unknown
Text1.exe          0040A0D7  Unknown               Unknown  Unknown
Text1.exe          004092B4  Unknown               Unknown  Unknown
Text1.exe          004096E9  Unknown               Unknown  Unknown
Text1.exe          0040475A  Unknown               Unknown  Unknown
Text1.exe          004010DB  Unknown               Unknown  Unknown
Text1.exe          004310D9  Unknown               Unknown  Unknown
Text1.exe          0041A4D9  Unknown               Unknown  Unknown
kernel32.dll       7C816037  Unknown               Unknown  Unknown

Incrementally linked image--PC correlation disabled.
Press any key to continue

瀟緗繖亽

jeffggg 发表于 2014-6-7 11:45
我以前遇到过i这个问题，后来我自己重新做就解决了，不知道你的问题具体处在哪里，不行你就重头重新再做一 ...

jeffggg，你好！我的数据时处理过后的数据，stid读取的站点是我自己制作的，但是听师兄说，这个是不影响的

lqouc

瀟緗繖亽 发表于 2014-6-7 16:32
lqouc，你好！我按照你说的，已经去掉了‘*’，但是还是不行，依然出现：
forrtl: severe (256): unform ...

按照报错把你的1号文件格式声明补充完整，用循环读取。
程序规范是很重要的。

瀟緗繖亽

lqouc 发表于 2014-6-7 16:36
按照报错把你的1号文件格式声明补充完整，用循环读取。
程序规范是很重要的。

恩，我先试试，有问题再找你，谢谢

river

你的dat资料是二进制的还是十进制的啊，二进制的话，读的时候也不需要 * 的啊

瀟緗繖亽

river 发表于 2014-6-10 19:09
你的dat资料是二进制的还是十进制的啊，二进制的话，读的时候也不需要 * 的啊

能用MATLAB直接打开，应该是十进制

river

瀟緗繖亽 发表于 2014-6-23 08:28
能用MATLAB直接打开，应该是十进制

没有这么说的，matlab也可以打开二进制的文件。你用文本打开你的资料看看是不是乱码