- 积分
- 4170
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2017-6-6
- 最后登录
- 1970-1-1
|
发表于 2017-12-17 17:22:05
|
显示全部楼层
本帖最后由 爱喝柠檬汁 于 2017-12-17 17:56 编辑
'reinit'
'sdfopen e:\aaa.nc'
'set gxout fwrite'
'set fwrite e:\tzjuping.dat'
'set lon 110 130'
'set lat 45 60'
'set t 100'
i=1
while(i<=37)
'set z 'i
'define avez=aave(z,lon=110,lon=130,lat=45,lat=60)'
'define avet=aave(t,lon=110,lon=130,lat=45,lat=60)'
'd z/9.8-avez/9.8'
'd t-avet'
i=i+1
endwhile
'disable fwrite'
'set gxout contour'
;
用这个gs输出一个dat文件,里面的值就是距平值
下面是对应的ctl
dset e:\tzjuping.dat
undef -9.99E+33
title juping
xdef 41 linear 110 0.5
ydef 31 linear 45 0.5
zdef 37 linear 1 1
tdef 1 linear 00z25jan2010 6hr
vars 2
z 37 99 ** <z> hpa
t 37 99 ** <t> k
endvars
然后是画图的gs
'reinit'
'open E:/tzjuping.ctl'
'set grads off'
'set mpdset hires'
'set map 15 1 1'
'set t 1'
'set lon 123'
'set lat 45 60'
'set lev 1000 100'
'set zlog on'
'set gxout shaded'
'd z'
'run cbarn.gs'
'set gxout contour'
'set ccolor 15'
'set cstyle 1'
'set cthick 2'
'd t'
'printim E:/tzjuping.png white'
;
然后grads提示错误,如下图
|
|