- 积分
- 1594
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2011-12-13
- 最后登录
- 1970-1-1
|
楼主 |
发表于 2015-11-23 22:06:28
|
显示全部楼层
非常感谢您~
您好换了下顺序,grads可以运行了。但是出来的图是空白
格点插值的是1°的,三个时次的。时间不用管么
program griddata
integer,parameter::nx=71,ny=41,nt=3
real grid
integer i,j,k
open(11,file='grid.grd',form='binary')
grid=1.0
do k=1,nt
do i=1,nx
do j=1,ny
write(11)grid
enddo
enddo
enddo
close(11)
stop
end
----------------------------------------
'reinit'
'open c:\msdev\projects\k_9\grid.ctl'
'open c:\msdev\projects\k_9\k_4.ctl'
'define kk=oacres(g,k.2)''set lon 100'
'set lat 30'
'set lev 1000'
'set t 1 3'
'd kk'
'printim c:\msdev\projects\k_9\tk_4.png white'
; |
|