- 积分
- 370
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2011-9-23
- 最后登录
- 1970-1-1
|

楼主 |
发表于 2014-11-17 08:52:36
|
显示全部楼层
本帖最后由 繁星一点 于 2014-11-17 08:57 编辑
'reinit'
'open H:\fnl\20140702\201407.ctl'
tt=1
while(tt<2)
'set lat 10 40'
'set lon 100 140'
'set lev 850'
'set t 'tt' '
'define div=hdivg(UGRDprs,VGRDprs)*1e6'
'define curl=hcurl(UGRDprs,VGRDprs)*1e6'
*****************************************
'set vpage 0.5 11 0.5 8.5 '
'set mpdset cnhimap hunan_q '
'set map 15 1 1'
'draw map'
********************************************
'set lat 20 35'
'set lon 105 125'
'set xlopts 1 6 0.15'
'set ylopts 1 6 0.15'
'set xlint 5'
'set ylint 5'
'set gxout shaded '
'set grads off'
'set grid off'
'define_colors'
'set clevs -100 -80 -60 -40 -20 0 20 40 60 80'
'set ccols 26 25 24 23 22 21 41 42 43 44 45'
'define div=hdivg(UGRDprs,VGRDprs)*1e6'
'd div'
'cbarn 0.8 0 5.5 8.2 '
'set gxout contour'
'set clevs -100 -80 -60 -40 -20 0 20 40 60 80'
'define curl=hcurl(UGRDprs,VGRDprs)*1e6'
'd curl'
************************************************
'draw string 0.6 0.6 time='tt''
if(rc='0') break;endif;
'printim H:\20140702\fnl\div\div_850_'tt'_2.gif white'
'print'
'c'
**************************************************
tt=tt+1
endwhile
'disable print'
return
======================================================
已经解决了 发现gs文件中脚本编写的问题 标红的那两句重复计算了一次涡度和散度
注释掉以后就好了
非常谢谢!
|
|