用GRADS作图时出现的问题，请大家帮帮忙，很急~~谢谢

瀟緗繖亽 · 发表于 2014-6-7 10:24:06

登录后查看更多精彩内容~

您需要登录才可以下载或查看，没有帐号？立即注册

x

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

CTL文件：
DSET F:/station.grdDTYPE station STNMAP F:/grid.mapUNDEF -999.0TITLE DUCT Data TDEF 1 linear 01jan2014 1moVARS 1m 0 99 DUCT MAGTINUTYENDVARS请大家帮帮忙，谢谢~~有进一步讨论的好心人，可以加我QQ：1284569459

四叶草 · 发表于 2014-6-12 13:24:15

建议楼主把你的数据文件也上传一份，这样他人也好对你的程序进行测试，从而更快的找到解决问题的方法。

linikiku · 发表于 2014-6-7 16:14:22

把open(5,file='F:\station.grd',form='binary')这句改成
open(5,file='F:\station.grd',form='unformatted', recordtype='stream')
再试试看

瀟緗繖亽 · 发表于 2014-6-7 16:26:58

linikiku 发表于 2014-6-7 16:14
把open(5,file='F:\station.grd',form='binary')这句改成
open(5,file='F:\station.grd',form='unformatte ...

不行，C:\Documents and Settings\Administrator\桌面\QQ截图20140607162356.png

瀟緗繖亽 · 发表于 2014-6-7 16:28:04

linikiku 发表于 2014-6-7 16:14
把open(5,file='F:\station.grd',form='binary')这句改成
open(5,file='F:\station.grd',form='unformatte ...

forrtl: severe (257): formatted I/O to unit open for unformatted transfers, unit
5, file F:\station.grd
Image             PC       Routine          Line       Source
Text1.exe       0040A9F9  Unknown             Unknown  Unknown
Text1.exe       0040A857  Unknown             Unknown  Unknown
Text1.exe       00409A34  Unknown             Unknown  Unknown
Text1.exe       00409E69  Unknown             Unknown  Unknown
Text1.exe       00406121  Unknown             Unknown  Unknown
Text1.exe       00448B2D  Unknown             Unknown  Unknown
Text1.exe       0043F809  Unknown             Unknown  Unknown
Text1.exe       00428BD9  Unknown             Unknown  Unknown
kernel32.dll    7C816037  Unknown             Unknown  Unknown

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

linikiku · 发表于 2014-6-8 10:42:59

瀟緗繖亽发表于 2014-6-7 16:28
forrtl: severe (257): formatted I/O to unit open for unformatted transfers, unit
5, file F:\stat ...

这样的话，我就不明白了。请高人来解答吧

nuister · 发表于 2014-6-11 13:44:44

解决没，楼主。我也遇到了，一模一样

nuister · 发表于 2014-6-11 14:47:50

character*8 stid(12*176)
我的是这句有问题，改完就好了。

瀟緗繖亽 · 发表于 2014-6-23 08:26:49

nuister 发表于 2014-6-11 14:47
character*8 stid(12*176)
我的是这句有问题，改完就好了。

我把程序重新启动了一下就好了。。。

瀟緗繖亽 · 发表于 2014-6-23 08:27:11

四叶草发表于 2014-6-12 13:24
建议楼主把你的数据文件也上传一份，这样他人也好对你的程序进行测试，从而更快的找到解决问题的方法。

谢谢，已经解决

		自动登录	找回密码
密码			立即注册