- 积分
- 2221
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2012-4-28
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
先叙述一下背景:
资料是txt的,686个站单时次的。数据文件(r70.txt)一共就三列,分别是lat lon 月平均雨量。
按照教程来的,最后在 !stnmap -i 这一步出错了,错误原因如图。
曾经编对过一次,不知今日为何屡次试都不可以。
哪位明眼人帮看看,拨一下在下。(数据,程序都在这了)
fortran程序如下:
program main
implicit none
integer,parameter::nt=1,nn=686
real lat(nt,nn),lon(nt,nn),rain(nt,nn),tim
integer yr(nt,nn),mon(nt,nn)
integer nlev,nflag,i,k
open(11,file='I:\sd\r07.txt')
do i=1,nt
do k=1,nn
read(11,*)lon(i,k),lat(i,k),rain(i,k)
enddo
enddo
close(11)
open(12,file='I:\sd\obs.grd',form='binary')
do i=1,nt
tim=0.0
nlev=1
nflag=1
do k=1,nn
write(12) lat(i,k),lon(i,k),tim,nlev,nflag,rain(i,k)
enddo
nlev=0
write(12) lat(i,k-1),lon(i,k-1),tim,nlev,nflag
enddo
close(12)
end
ctl如下:
dset I:\sd\obs.grd
dtype station
stnmap I:\sd\obs.map
undef -999.0
title ob
tdef 1 linear JUL2010 1mo
vars 1
rain 0 99
endvars
|
-
错误提示图
-
-
r07.txt
29.48 KB, 下载次数: 5, 下载积分: 金钱 -5
原始数据
|