Micaps地面数据转成grd格式是出现的问题

wan_wan

将micaps 第三类数据 转为grads支持的GRD格式，编译连接都没有问题，但是运行不了，错误代码是forrt1:severe(159):program exception——breakpoint，
实在不清楚哪里有问题，希望得到大家的帮助。
程序如下：
program micaps
implicit none
character*8 stid
real lon,lat,h,rain,tim
integer nlev,flag
tim=0.0
nlev=1
flag=1
open(1,file='e:\hejing\atmosphere\rainstorm\jiami\1208\12082117.000',status='old')
open(2,file='e:\hejing\atmosphere\rainstorm\grads\12082117.grd',status='replace')
read(1,*);read(1,*);read(1,*);read(1,*);read(1,*);read(1,*);read(1,*);read(1,*);read(1,*)
read(1,*);read(1,*)
10 read(1,*,end=100)stid,lon,lat,h,rain
write(2)stid,lat,lon,tim,nlev,flag,rain
go to 10
100 continue
close(1)
nlev=0
write(2)stid,lat,lon,tim,nlev,flag,rain
close(2)
end

XiaoyuBai

是不是std的大小有问题，写的时候是*8，但是你确定读进来的std是8那么大吗

wan_wan

std大小选大一点没问题的，我把路径都改到C盘就对了。。。

我是吉星

最近要用这个了，谢谢分享

我是吉星

最近也要用这个数据了

lllllys

感谢分享！