- 积分
- 120
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2011-6-27
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
本帖最后由 气象局 于 2013-11-11 17:22 编辑
我根据清风http://bbs.06climate.com/forum.php?的帖子,做了修改,程序如下:
* This is a script for displaying moisture convergence
* Written by Michael Maxwell
*
* rh = Relative Humidity in %
* t = Temp at *set level in degrees Kelvin
* tc = Temp in degrees C
* td = Dewpoint at *set level in degrees C
* e = Vapor pressure
* mixr = Mixing ratio
* u = U-wind in m/s
* v = V-wind in m/s
* mconv = moisture convergence/divergence. convergence is positive and divergence is negative.
'reinit'
'sdfopen e:\zl\2012t.nc'
'sdfopen e:\zl\2012rhum.nc'
'sdfopen e:\zl\2012u.nc'
'sdfopen e:\zl\2012v.nc'
'set lev 700'
'set lat 23 30'
'set lon 101 111'
'set t 5'
'set mpdset cnworld'
'set xlopts 1 4 0.15'
'set ylopts 1 4 0.15'
'set grads off'
'set timelab off'
'set grid off'
'define tc=(t.1-273.16)'
'define td=tc-((14.55+0.114*tc)*(1-0.01*r.2)+pow((2.5+0.007*tc)*(1-0.01*r.2),3)+(15.9+0.37*tc)*pow((1-0.01*r.2),14))'
'define vapr=6.112*exp((17.67*td)/(td+243.5))'
'define e=vapr*1.001+(lev-100)/900*0.0034'
'define mixr=0.62137*(e/(lev-e))*1000/9.8'
#通过此gs文件算出的水汽通量的单位是g/(cm.s),一般为 十几到几十
'define qx=u.3*mixr'
'define qy=v.4*mixr'
'define mconv=hdivg(qx,qy)*1e6'
'enable print e:\tx\2lb-shuiqi900.gmf'
'set arrscl 1 500'
*'set lon 124'
*'set cmin 30'
'set gxout shaded'
'd mag(qx,qy)'
*'set cmin 30'
'set gxout contour'
'd mag(qx,qy)'
*'d theta'
*'d skip(u.3*2.5,4);skip(v.4*2.5,4)'
'print'
'disable print'
'printim e:\tx\2lb-shuiqi900.png white'
'reinit'
得到的图为:
修改程序得到的图片
我觉得不太对,请大家帮我看看。
我想得到下图:
这个程序能做到不?请大家帮我分析分析,我已经进入死胡同了!
|
|