- 积分
- 118
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2012-5-7
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
本帖最后由 cafflybird 于 2013-3-8 17:45 编辑
以下是我的程序,我所用的资料都是NCEP/NCAR数据,程序后面a1,a2,a3分别为1960-1980 6月,7月,8月的水汽通量平均值,a4,a5,a6分别为1981-2011 6月,7月,8月的水汽通量平均值,程序运行时,没有错误,但是没有图出现?期待高手解答啊。。。
'reinit'
'sdfopen e:\data0308\air.mon.mean.nc'
'sdfopen e:\data0308\rhum.mon.mean.nc'
'sdfopen e:\data0308\uwnd.mon.mean.nc'
'sdfopen e:\data0308\vwnd.mon.mean.nc'
'set t 145 768'
'set lev 500'
'define p=lev'
'define es=6.112*exp(17.67*air/(air+273.15-29.65))'
'define qs=0.622*es/(p-0.378*es)'
'define q=rhum.2*qs/100'
'define qu=(uwnd.3*10*q/9.8)'
'define qv=(vwnd.4*10*q/9.8)'
'define uvq=1000*mag(qu,qv)'
'set grads off'
'set grid off'
'set mpdset cnworld'
'set lon 40 170'
'set lat 10 70
'set gxout shaded'
'd uvq'
cbarn
'define a1=ave(uvq,t=150,t=390,12)'
'define a2=ave(uvq,t=151,t=391,12)'
'define a3=ave(uvq,t=152,t=392,12)'
'define a4=ave(uvq,t=402,t=762,12)'
'define a5=ave(uvq,t=403,t=763,12)'
'define a6=ave(uvq,t=404,t=764,12)'
'define sua=(a4+a5+a6)/3-(a1+a2+a3)/3'
'set lon 40 170'
'set lat 10 70'
'set gxout shaded'
'd a1'
cbarn
'printim e:\data0308\sua.bmp white'
|
|