- 积分
- 2221
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2012-4-28
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
数据是46年,每年9月份的,因此时次应该是46,每个时次有56个站点。每个时次有5列:站点号,经度,纬度,年份,月份,降水。(见附件)
fortran程序是这样的:
program main
implicit none
integer,parameter::nt=46,nn=56
real lat(nt,nn),lon(nt,nn),rain(nt,nn),tim
integer stan(nt,nn),yr(nt,nn),mon(nt,nn)
integer nlev,nflag,i,k
open(11,file='F:\cy\rain99.txt')
do i=1,nt
do k=1,nn
read(11,*)stan(i,k),lon(i,k),lat(i,k),yr(i,k),mon(i,k),rain(i,k)
enddo
enddo
close(11)
open(12,file='f:\cy\obs.grd',form='binary')
do i=1,nt
tim=0.0
nlev=1
nflag=1
do k=1,nn
write(12) stan(i,k),lat(i,k),lon(i,k),tim,nlev,nflag,rain(i,k)
enddo
nlev=0
write(12)stan(i,k-1),lat(i,k-1),lon(i,k-1),tim,nlev,nflag
enddo
close(12)
end
对应的ctl是这样的:
dset F:\cy\obs.grd
dtype station
stnmap F:\cy\obs.map
undef -999.0
title ob
tdef 46 linear 00Z01JAN1961 1mo
vars 1
rain 0 99
endvars
GrADS错误提示是这样的(见图):
|
|