运行stnmap出错

schLltt

  ！！！！！这个是根据清风的站点数据程序做了微小的改动后：！！！！

program main
   implicit none
   character*8 stid
   real lon,lat,win,dir,tim
   integer nlev,flag,error
   tim=0.0
   nlev=1
   flag=1
   open (101,file='13080100.txt',status='old',iostat=error)
   
   if(error/=0)then
   write(*,*) 'open file failed.'
   end if
   open (102,file='sta.dat',status='replace',form='binary')
   10 read(101,*,end=100)stid,lon,lat,dir,win
   WRITE(*,*)stid,lat,lon,tim,nlev,flag,dir,win
  ! PAUSE
  ! write(102)stid,lat,lon,tim,nlev,flag,dir,win
   goto 10
   100 continue
   close(101)
   nlev=0
   write(2)stid,lat,lon,tim,nlev,flag
   close(102)
   end

！！！！！图片2为通过pause查看数据写入二进制文件之前的数值！！！！！

！！！！！下面为ctl文件！！！！！！
   dset  G:/data/sta.dat
   dtype station
   stnmap G:/data/sta.map
   title  wind stream
   undef 9999.
   tdef 1 linear 00Z01Aug2013 1hr
   vars 2
   dir 0 99  surface wind-direction
   win 0 99  surface wind
   ENDVARS

！！！！！！！！！！！！！！！！！！！！！！！！！！！
在grads命令窗口输入！stnmap -i G:/data/sta.dat 出现了“问题截图”上的错误提示，烦请各位给看下是什么问题！

river

write(2)stid,lat,lon,tim,nlev,flag
这个的文件号怎么是2呢

schLltt

river 发表于 2015-4-2 20:17
write(2)stid,lat,lon,tim,nlev,flag
这个的文件号怎么是2呢

多谢～～真的是这个问题。。。。太不仔细了。。

river

schLltt 发表于 2015-4-2 21:25
多谢～～真的是这个问题。。。。太不仔细了。。

那句的意思是这个时间段内的所有数据记录结束了。那句没写进去，grads就找不到结束的理由，所以就会报错了