- 积分
- 290
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2017-10-30
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
我编写了txt改二进制的格式后出来了文件但是用grads作map文件时总是没有结果,fortron程序如下改了好几天了还是有错: parameter(m=2467,n=1)
integer:: year,k,j,q,nlev,nflag
real tm(N,M),lat(m),lon(m),tmax,tmin,pr,afw,rha,w10m,tim
character*8 sta(m)
tim=0.0
nlev=1
nflag=1
open(20,file="E:\www\RCP45.txt")
read(20,*)
DO K = 1,m
do j = 1,1068
if(j>60) then
read(20,*)sta(k),lat(k),lon(k),year,q,tt,tmin,tmax,pr,afw,rha,w10m
end if
end do
end do
close(20)
open(30,file="E:\www\eof\233.txt")
do j=1,M
read(30,*)tm(1,J)
end do
close(30)
open(40,file="E:\www\eof\grads\sta.grd",status="replace",FORM ="BINARY")
do k=1,m
WRITE(40)sta(k),lat(k),lon(k),TIM,NLEV,NFLAG,tm(1,k)
end do
nlev=0
WRITE(40) sta(k-1),lat(k-1),lon(k-1),tim,NLEV,NFLAG
close(40)
END
结果制作map文件时出现
Processing time step 1
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 = 0 flag = 1 time = 122.52
ga->
但是我看了好久感觉没错啊,请教大侠不胜感激
|
|