- 积分
- 1831
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2012-5-6
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
program main
parameter(nx=21,ny=11,nz=26,nt=13,delta_lamda=3.14/180,delta_phi=3.14/180)! nx-lon(90E-140E);ny-lat(15N-60N);nt-time
real h(nx,ny,nz,nt),u(nx,ny,nz,nt),v(nx,ny,nz,nt),vor1(nx,ny,nz,nt),vor2(nx,ny,nz,nt),div(nx,ny,nz,nt),svbit(nx,ny,nz,nt)
real f(ny)
a=6371000.0 !radiu of earth
open(21,file='d:\zssdata\u.dat',form='binary')
do k=1,nt
do s=1,nz
do j=1,ny
read(21,rec=21)(u(i,j,s,k),i=1,nx)
enddo
end do
end do
close(21)
.........
open(5,file='d:\zssdata\data.grd',form='binary')
do k=1,nt
do s=1,nz
write(5)((svbit(i,j,s,k),i=1,nx),j=1,ny)
enddo
enddo
上面是程序的读写部分,下面是输出文件的ctl
ctl:
dset d:\zssdata\data.grd
undef 9.999E+20
title svbit
options template
xdef 21 linear 110 1
ydef 11 linear 40 1
zdef 26 levels
1000 975 950 925 900 850 800 750 700 650 600 550 500 450 400 350 300 250 200 150 100 70 50 30 20 10
tdef 13 linear 00:00Z11jul2011 6hr
vars 1
svbit 0 99 vorticity using hgt
endvars
为什么运行ctl显示错误呢?是哪儿有问题?
|
|