爱气象,爱气象家园! 

气象家园

 找回密码
 立即注册

QQ登录

只需一步,快速开始

新浪微博登陆

只需一步, 快速开始

搜索
查看: 3664|回复: 4

[求助] grads加fortran画站点年均降水图

[复制链接]

新浪微博达人勋

发表于 2017-5-1 10:23:02 | 显示全部楼层 |阅读模式

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

您需要 登录 才可以下载或查看,没有帐号?立即注册 新浪微博登陆

x
QQ图片20170501102500.png

Enter stn ctl filename:  E:\taizhan\temp\zhandian\111p.ctl
  Name of binary data set: E:\taizhan\temp\zhandian\111p.grd
  Number of times in the data set: 50
  Number of surface variables: 1
  Number of level dependent variables: 0
Starting scan of station data binary file.
Processing time = 1
Binary data file open: E:\taizhan\temp\zhandian\111p.grd
  Invalid station hdr found in station binary file
  Possible causes:  Invalid level count in hdr
                    Descriptor file mismatch
                    File not station data
                    Invalid relative time
    levs = 1  flag = 1  time = 1961
  File name = E:\taizhan\temp\zhandian\111p.grd
这是在grads运行ctl的结果,说是二进制文件有问题。下面是原始txt被转为二进制的fortran程序
program sta2grd
implicit none
character*8 stid
real :: lon,lat,pre,year
integer :: nlev=1
integer :: flag=1
integer i
open(10,file='E:\taizhan\temp\zhandian\111p.txt',status='old',action='read')
open(11,file='E:\taizhan\temp\zhandian\111p.grd',status='replace',action='write',access='direct',form='unformatted',&
        recl=2500*5)

do i=1,2500
read(10,*)  stid,lat,lon,year,pre
!if(i==10 .or. i==11) then
write(11,rec=i) stid,lat,lon,year,nlev,flag,pre
!write(*,*) stid,lat,lon,tim,nlev,flag,rain
!endif
enddo
close(10)
nlev=0
write(11,rec=i+1) stid,lat,lon,year,nlev,flag,pre
close(11)
end program
求指点,到底是哪里错了?



捕获.PNG
密码修改失败请联系微信:mofangbao

新浪微博达人勋

发表于 2017-5-1 10:26:44 | 显示全部楼层
不是有好几种可能,描述性文件如何?
密码修改失败请联系微信:mofangbao

新浪微博达人勋

 楼主| 发表于 2017-5-1 10:40:50 | 显示全部楼层
男紫汗 发表于 2017-5-1 10:26
不是有好几种可能,描述性文件如何?

C:\Users\la\Desktop\11.png描述性文件
dset E:\taizhan\temp\zhandian\111p.grd
options template   
title 111p data
dtype station
stnmap E:\taizhan\temp\zhandian\111p.map
undef 1e+20
xdef 57 linear  70 2.5
ydef 17 linear  15 2.5
zdef 1 linear 1000 1
tdef 50 linear jan1961 1yr
vars 1
p   0  99  pre
endvars

我刚才打了打开dat看居然只有一行
密码修改失败请联系微信:mofangbao

新浪微博达人勋

发表于 2017-5-1 17:19:49 | 显示全部楼层
照着这个在检查检查

GrADS站点文件作图详细解决方案.pdf

954.55 KB, 下载次数: 19, 下载积分: 金钱 -5

密码修改失败请联系微信:mofangbao

新浪微博达人勋

发表于 2017-5-18 11:01:55 | 显示全部楼层
楼主最后问题解决了吗?同样遇到了这个问题~
密码修改失败请联系微信:mofangbao
您需要登录后才可以回帖 登录 | 立即注册 新浪微博登陆

本版积分规则

Copyright ©2011-2014 bbs.06climate.com All Rights Reserved.  Powered by Discuz! (京ICP-10201084)

本站信息均由会员发表,不代表气象家园立场,禁止在本站发表与国家法律相抵触言论

快速回复 返回顶部 返回列表