- 积分
- 624
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2013-4-1
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
求助!我写了一个gs文件计算2011年7月整层水汽通量与常年的差值场,我觉得量级和方向都有问题(图片所示),但是我不知道是哪里出错,望高手指导,急
'reinit'
'sdfopen d:\nc\shum.mon.mean.nc'
'sdfopen d:\nc\uwnd.mon.mean.nc'
'sdfopen d:\nc\vwnd.mon.mean.nc'
'sdfopen d:\nc\pres.mon.mean.nc'
'enable print d:\gs\gmf\qtl11.gmf'
'set parea 1 9 1 8'
'set xlopts 1 4 0.2'
'set ylopts 1 4 0.2'
'set mpdset cnworld'
'set lon 60 140'
'set lat 0 40'
'set lev 1000 300'
'set grads off'
'set grid off'
'set t 763'
'define uuq=uwnd.2*shum'
'define vvq=vwnd.3*shum'
'pp=pres.4(z=1)'
'define ffuq=-vint(pp,uuq,300)/9.8'
'define ffvq=-vint(pp,vvq,300)/9.8'
'define shtll=mag(ffuq,ffvq)'
'define u=ave(uwnd.2,t=283,t=751,12)'
'define v=ave(vwnd.3,t=283,t=751,12)'
'define s=ave(shum,t=283,t=751,12)'
'define uq=u*s'
'define vq=v*s'
'set z 1'
'define p=ave(pres.4(z=1),t=283,t=751,12)'
'define fuq=-vint(p,uq,300)/9.8'
'define fvq=-vint(p,vq,300)/9.8'
'define shtl=mag(fuq,fvq)'
'set gxout shaded'
'run cbar.gs'
'set cthick 6'
'd shtll-shtl'
'd ffuq;ffvq'
'cbarn 0.7 1 9.5 4.5'
'print'
c
'reinit'
|
|