- 积分
- 2093
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2013-3-14
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
本帖最后由 边缘人糊涂乐 于 2014-8-7 17:11 编辑
站点转格点程序:
!转化成格点
program main
parameter(m=22)
real jd(m),wd(m),a(m),b(m),c(m)
character*8 sta(m)
!-----read data
open(1,file='e:\f\egvt.txt')
do i=1,m
read(1,*) sta(i),jd(i),wd(i),a(i),b(i),c(i)
end do
close(1)
!第一模态
open (1,file='e:\f\1.grd',form='binary')
tim=0.0
nlev=1
nflag=1
do j=1,m
write(1) sta(j),wd(j),jd(j),tim,nlev,nflag,a(j)
print*,sta(j),wd(j),jd(j),tim,nlev,nflag,a(j)
end do
tim=0.0
nlev=0
nflag=1
write(1) sta(j-1),wd(j-1),jd(j-1),tim,nlev,nflag
close (1)
end
背景格点程序:
program sx
parameter (nx=200,ny=200)
real lat(ny),lon(nx),s(nx,ny)
open(1,file='e:\f\grid.grd',form='binary')
lat(1)=35
lon(1)=118
do j=1,ny-1
lat(j+1)=lat(j)+0.1
end do
do i=1,nx-1
lon(i+1)=lon(i)+0.1
end do
print *, 'ok'
do i=1,nx
do j=1,ny
s(i,j)=1
end do
end do
write(1)s
end
两个ctl如下:
dset e:\f\1.grd
dtype station
stnmap e:\f\1.map
undef -999.0
title rain
tdef 1 linear may1981 1yr
vars 1
p 0 99 rain data
endvars
dset e:\f\grid.grd
title grid
undef -999.0
xdef 200 linear 118 0.1
ydef 200 linear 35 0.1
zdef 1 levels 1000 1
tdef 1 linear may1981 1yr
vars 1
g 0 99 grid data
endvars
gs如下:'reinit'
'open e:\f\grid.ctl'
'open e:\f\1.ctl'
'set grid off'
'set grads off'
'set mpdset cnworld'
'set lat 35 54'
'set lon 118 137'
'define a=oacres(g,p.2)'
'define a1=maskout(a,g-0.5)'
'define aa=smth9(a1)'
'set gxout contour'
'set clab forced'
'set cint 0.05'
'd aa'
'enable print e:\f\1.gmf'
'print'
'disable print'
;
出现错误:
求大神解答!万分感谢。
来自群组: 成于大气 信达天下 |
|