- 积分
- 4170
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2017-6-6
- 最后登录
- 1970-1-1
|
发表于 2017-12-18 21:34:44
|
显示全部楼层
本帖最后由 爱喝柠檬汁 于 2017-12-18 21:36 编辑
'reinit'
'sdfopen e:\aaa.nc'
'set gxout fwrite'
'set fwrite e:\tzjuping.dat'
'set lon 123'
'set lat 45 60'
'set t 109'
i=1000
while(i>=100)
'set lev 'i
'define avez=ave(z,lat=45,lat=60)'
'define avet=ave(t,lat=45,lat=60)'
'd z/9.8-avez/9.8'
'd t-avet'
i=i-100
endwhile
'disable fwrite'
'set gxout contour'
;
用这个gs输出一个dat文件,里面的值就是距平值
下面是对应的ctl
dset e:\tzjuping.dat
undef -9.99E+33
title juping
xdef 1 linear 123 0.5
ydef 31 linear 45 0.5
zdef 10 levels 1000 900 800 700 600 500 400 300 200 100
tdef 1 linear 00z28aug2017 6hr
vars 2
z 10 99 ** <z> hpa
t 10 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 x 1'
'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:/11.png white'
;
然后是出图
|
|