- 积分
- 3085
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2012-5-16
- 最后登录
- 1970-1-1
|
发表于 2012-11-21 13:44:42
|
显示全部楼层
mofangbao 发表于 2012-11-21 13:21
一样就不会错了,你应该写错了,贴上来看看
我找了好几遍都没发现错误哦!
这是我的格点场的fortran程序:
program gen_grid
implicit none
integer,parameter::nx=29,ny=17
integer i,j
real grid
grid=1.0
open(1,file='e:\lianxi\sta2grd\grid.grd',status='replace',form='binary')
do i=1,ny
do j=1,nx
write(1)grid
enddo
enddo
close(1)
end
这是grid.ctl:
dset e:\lianxi\sta2grd\grid.grd
title grid data sample
undef -9.99E33
xdef 29 linear 70.0 2.5
ydef 17 linear 15.0 2.5
zdef l levels 1000
tdef 1 linear 01may2011 1mo
vars 1
g 0 99 grid data
endvars |
|