- 积分
- 239
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2014-6-4
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
本帖最后由 lyj 于 2015-5-10 16:45 编辑
'reinit'
'set grads off'
'sdfopen e:/lunwen/shuju/uwnd.2013.nc'
'sdfopen e:/lunwen/shuju/vwnd.2013.nc'
'sdfopen e:/lunwen/shuju/shum.2013.nc'
'set fwrite e:/lunwen/grd/qdiv850.grd'
'enable print e:/lunwen/tu/qdiv850.gmf'
'set lat 25 40 '
'set lon 100 125'
'set lev 850'
t=741
while(t<=756)‘set t ’ t
'define qu=uwnd.1*shum.3*1e3'
'define qv=vwnd.2*shum.3*1e3'
'define qdiv=hdivg(qu,qv)*1e5/9.8'
'd qdiv '
t=t+1
'print'
'c'
endwhile
'disable print'
'disable fwrite'
;
|
|