| 
 
	积分52贡献 精华在线时间 小时注册时间2014-5-20最后登录1970-1-1 
 | 
 
 
 楼主|
发表于 2015-8-22 18:03:06
|
显示全部楼层 
| 本帖最后由 djcj520 于 2015-8-22 18:05 编辑 
 'reinit'
 'open G:\fnl_20150601_00_00.ctl'
 'set grads off'
 'set grid off'
 'set zlog on'
 'set csmooth on'
 'run define_colors.gs'
 'set font 0'
 'set xlopts 1 4 0.20'
 'set ylopts 1 4 0.20'
 'set x 1'
 'set y 1'
 'set t 5'
 'set lev 1000 100'
 lon1 = 100.0
 lon2 = 120.0
 lat1 = 40.0
 lat2 = 20.0
 lon = lon1
 'collect 1 free'
 while (lon <= lon2)
 lat = lat1 + (lat2-lat1)*(lon-lon1) / (lon2-lon1)
 'collect 1 gr2stn(VVELprs*100,'lon','lat')'
 lon = lon + 1
 endwhile
 
 'set map 1 1 9'
 'set x 10 20'
 'set xaxis 'lon1' 'lon2
 'set clab on'
 
 'set gxout contour'
 'set cthick 5'
 'set clopts -1 4 0.15'
 'set cmin 0'
 'set cstyle 1'
 'set ccolor rainbow'
 'set cint 20'
 
 'd coll2gr(1,-u)'
 'set cmax 0'
 'set cthick 5'
 'set clopts -1 4 0.15'
 'set cstyle 3'
 'set ccolor rainbow'
 'set cint 100'
 'd coll2gr(1,-u)'
 
 *'set gxout shaded'
 *'set cmax 0'
 *'d coll2gr(1,-u)'
 *'set gxout contour'
 *'set cthick 6'
 *'d coll2gr(1,-u)'
 'draw title Omega along (20N,40E) to (40N,120E)'
 'gxprint g:\test.png white'
 ;
 
 | 
 |