- 积分
- 480
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2012-6-24
- 最后登录
- 1970-1-1
|

楼主 |
发表于 2012-7-18 20:49:41
|
显示全部楼层
很抱歉啊,没有考虑到会浪费各位前辈的积分,谢谢了。那ctl是不是应该改成这样啊
dset D:\ncep\b.dat
title NMC reanalysis atlas
undef -9.96921e+36
xdef 144 linear 0 2.5
ydef 73 linear -90 2.5
zdef 1 levels 1000
tdef 760 linear 00Z01JAN1948 1mo
vars 1
res 17 -999 Monthly Mean of res
endvars
这个是在网上下载的gs
'sdfopen D:\ncep\air.mon.mean.nc'
'sdfopen D:\ncep\rhum.mon.mean.nc'
'set gxout fwrite'
'set fwrite D:\ncep\b.dat'
'define air=0'
'define rhum=0'
lats=0.0
'set lev 1000'
while(lats<=60.0)
lons=120.0
while(lons<=260.0)
'define res=scorr(ave(air.1,t=1,t=396),ave(rhum.2,t=1,t=396),lon='lons',lon='lons+2.5',lat='lats',lat='lats+2.5')'
'd res'
'print lon='lons',lon='lons+2.5',lat='lats',lat='lats+2.5''
lons=lons+2.5
endwhile
lats=lats+2.5
endwhile
'disable fwrite'
'printim D:\ncep\res.gif gif white x1200 y800'
*run D:\ncep\a.gs
这个是我要出图的gs
'reinit'
'open D:\ncep\a.ctl'
'set grads on'
'set grid on'
*'set mpdset cnworld'
'set map 1 1 10'
'set mpdset guizhou guizhou_q'
'define res=0'
'd res'
'printim D:\ncep\res.gif gif white x1200 y800'
*run D:\ncep\a1.gs
请指教 |
|