- 积分
- 278
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2011-7-30
- 最后登录
- 1970-1-1
![未绑定新浪微博用户 新浪微博达人勋](source/plugin/sina_login/img/gray.png)
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
'reinit'
'sdfopen e:\air.2002.nc'
'sdfopen e:\rhum.2002.nc'
'set X 1'
'set Y 1'
'set t 1 1459'
'set grads off'
'set grid on'
'set lev 850'
'define T850=air.1-273.16'
'define Td850=T850-((14.55+0.114*T850)*(1-0.01*rhum.2) + pow((2.5+0.007*T850)*(1-0.01*rhum.2),3) + (15.9+0.117*T850)*pow((1-0.01*rhum.2),14))'
'set lev 700'
'define T700=air.1-273.16'
'define Td700=T700-((14.55+0.114*T700)*(1-0.01*rhum.2) + pow((2.5+0.007*T700)*(1-0.01*rhum.2),3) + (15.9+0.117*T700)*pow((1-0.01*rhum.2),14))'
'set lev 500'
'define T500=air.1-273.16'
'define K=T850-T500+Td850-(T700-Td700)'
'Display tloop(aave('K',lon=110,lon=117,lat=35,lat=40))'
|
|