温度平流和水汽通量叠加

realzly · 发表于 2011-9-26 22:44:50

登录后查看更多精彩内容~

您需要登录才可以下载或查看，没有帐号？立即注册

x

来自：http://hzysara.blog.163.com/blog/static/142648576201061111856281/
这个是用NCEP资料画温度平流和水汽通量叠加的，不知道有用没
'reinit'
'sdfopen e:\surface\uwnd.2008.nc'
'sdfopen e:\surface\vwnd.2008.nc'
'sdfopen e:\surface\rhum.2008.nc'
'sdfopen e:\surface\air.2008.nc'
'set map 1 1 1'
'set mpdraw on'
'set poli on'
'set mproj latlon'
'set clab forced'
'set mpdset cnworld cnriver'
'set cthick 6'
'set lon 95 130'
'set lat 25 50'
'set lev 850'
'set xlopts 1 1 0.15'
'set ylopts 1 1 0.15'
'set clopts 1 1 0.15'
'set xlint 5'
'set ylint 5'
'set t 905'
'set grads off'
'set grid off'
'set gxout shaded'
'set clevs 1 2 4 6 8 10 12 14 16 18'
'define prs=lev'
'define g=9.8'
'define es=(6.112*exp((17.67*(air.4-273.15))/(air.4-29.65)))'
'define qs=(0.62197*es/(prs-0.378*es))'
'define q=qs*rhum.3/100'
'd mag(q*uwnd.1/g,q*vwnd.2/g)*1000'
*'set gxout vector'
*'d q*uwnd.1/g;q*vwnd.2/g'
'set cthick 6'
'set ccolor 1'
'set gxout barb'
'd uwnd.1;vwnd.2'
'run cbarn'
*'d uwnd.1/g;vwnd.2/g;mag(uwnd.1,vwnd.2)'
'set gxout contour'
'define dtx=cdiff(air.4-273.15,x)'
'define dty=cdiff(air.4-273.15,y)'
'define dx=cdiff(lon,x)*3.1416/180'
'define dy=cdiff(lat,y)*3.1416/180'
'set ccolor 2'
'set cstyle 2'
*'set cint 1'
'set csmooth on'
'd -1*((uwnd.1*dtx)/(cos(lat*3.1416/180)*dx)+vwnd.2*dty/dy)/6.37e6*100000'
'printim e:\surface\theta\a\sdtl2008081408-850hPa-3.png white'
;

godenflame135 · 发表于 2011-9-26 22:46:09

沙发，抢占！
楼主的东西是好东西！

善人/jw · 发表于 2011-9-26 23:09:35

感谢LZ~~希望继续分享好东西

Donald · 发表于 2012-3-8 21:59:01

先收藏啦！

njzqxt · 发表于 2012-6-23 07:22:55

本帖最后由 njzqxt 于 2012-6-23 07:23 编辑

真好！
怎样设置，水汽通量的线条范围才能和风场、温度一样大呢？

stone · 发表于 2013-6-1 10:50:37

这个算出来的值是不是还要乘以10-4

小船 · 发表于 2013-6-18 19:31:11

最近在做，不断学习中，

Paranoia · 发表于 2013-8-6 11:41:58

学习了，谢谢

嘴角上扬 · 发表于 2014-5-11 22:25:04

有木有图能参考的

加油吧，骚年！ · 发表于 2014-5-14 00:45:11

正在参考

		自动登录	找回密码
密码			立即注册

[分享资料] 温度平流和水汽通量叠加

登录后查看更多精彩内容~

评分