求用欧洲中心的q,u,v数据求一个时次是水汽通量和水汽通量散度的垂直积分的gs文件

houzhaocan

我从家园上找的程序大多用的都不是欧洲中心资料的，我自己的感觉也出不来。求大佬帮助，求用欧洲中心的q,u,v数据求一个时次是水汽通量和水汽通量散度的垂直积分的gs文件
'reinit'
'sdfopen d:\1921\E5\quv.nc'
'set grads off'
'set grid off'
'set mpdset cnworld'
'set map 1 1 2'
'set lon 110 120'
'set lat 30 38'
'set t 1 2'
'set z 1 20'
'set xlopts 1 4 0.12'
'set ylopts 1 4 0.12'
'set ylint 2'
'set xlint 2'
'define uq=q*u'
'define vq=q*v'
'define uqs=vint(lev(z=1),uq,300)'
'define vqs=vint(lev(z=1),vq,300)'
'define sq=mag(uqs,vqs)'
'set gxout vector'
'set arrscl 0.08 10 '
'set arrowhead 0.05 '
'set ccolor 1'
'd sq'
'run C:\OpenGrADS-2.2\Contents\Resources\Scripts\cbarm_wql.gs 1 1'
'draw title shuiqi'
'printim d:\1921\shuiqi.00.png white'
;

houzhaocan