- 积分
- 2473
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2015-3-27
- 最后登录
- 1970-1-1
|
发表于 2015-5-10 19:41:12
|
显示全部楼层
'reinit'
'sdfopen e:\atmodate\pressure\air.2009.nc'
'sdfopen e:\atmodate\pressure\rhum.2009.nc'
'sdfopen e:\atmodate\pressure\uwnd.2009.nc'
'sdfopen e:\atmodate\pressure\vwnd.2009.nc'
'set mpdset cnworld'
'set lon 70 150'
'set lat 15 70'
'set lev 925'
tt=302
while(tt<=303)
'set t 'tt''
'set grads off'
'set grid off'
'define p=lev'
'define e=exp(17.67*(air-273.15)/(air-29.65))*(rhum.2/100)*6.112'
'define q=622*e/(p-0.378*e)'
'define q1=uwnd.3*q/9.8'
'define q2=vwnd.4*q/9.8'
'set gxout shaded'
'set cint 5'
'd mag(q1,q2)'
*'d q1;q2'
'set gxout barb'
'set ccolor 2'
'd uwnd.3*2.5;vwnd.4*2.5'
'run cbarn.gs'
tt=tt+1
endwhile
'disable print'
'printim C:\Users\Administrator\Desktop\chutu\d.png white x1000 y800'
|
|