- 积分
- 1523
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2012-8-21
- 最后登录
- 1970-1-1
|
楼主 |
发表于 2016-2-17 21:52:03
|
显示全部楼层
'reinit'
'sdfopen f:\fnl\nc\uwnd.1973.nc'
'sdfopen f:\fnl\nc\vwnd.1973.nc'
'sdfopen f:\fnl\nc\hgt.1973.nc'
'sdfopen f:\fnl\nc\air.1973.nc'
'set grads off'
'set grid off'
'set mpdset hires cnworld'
'set lon 90 150'
'set lat 10 50'
*
*
'c'
d1=1973
b1=775
while(b1<=843)
'set lev 850'
'set t 'b1''
'query time'
tt1=sublin(result,1)
t1=subwrd(tt1,3)
say 'time=' tt1
'define w=sqrt(uwnd.1*uwnd.1+vwnd.2*vwnd.2)'
'set gxout shaded'
'set cterp on'
'set csmooth on'
'set cint 4'
'set cmin 12'
'd w'
'run cbarn.gs'
*
'draw title ' t1 ' 850w&h'
'enable print f:\fnl\nc\gmf\'t1'850str-hgt.gmf'
'print'
'disable print'
;
|
|