- 积分
- 84
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2012-9-23
- 最后登录
- 1970-1-1
![未绑定新浪微博用户 新浪微博达人勋](source/plugin/sina_login/img/gray.png)
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
program main
implicit none
integer i,j,d(181,360)
do j=1,360
do i=1,45
d(i,j)=0
enddo
do i=46,135
d(i,j)=500
enddo
do i=136,181
d(i,j)=1000
enddo
enddo
open(8,file='c:/caidai.grd',form='binary')
write(8)((d(i,j),j=1,360),i=1,181)
close(8)
end program
dset c:/caidai.grd
undef 9E100
xdef 360 linear -180 1
ydef 181 linear -90 1
zdef 1 levels 500
tdef 1 linear 08Z29apr2012 1dy
vars 1
z 0 99 height
endvars
程序如上,想画个简单的彩带,结果出来的是个常数场,grads提示数据全是0,请各位高手指导 |
|