爱气象,爱气象家园! 

气象家园

 找回密码
 立即注册

QQ登录

只需一步,快速开始

新浪微博登陆

只需一步, 快速开始

搜索
查看: 2347|回复: 2

[求助] 散涡比图形优化

[复制链接]

新浪微博达人勋

发表于 2013-8-19 22:04:31 | 显示全部楼层 |阅读模式

登录后查看更多精彩内容~

您需要 登录 才可以下载或查看,没有帐号?立即注册 新浪微博登陆

x
我想作出散涡比的时间序列图,这是其中一段程序,涡度散度同时大于0的情况,但是图形很不美观
do k=1,nz
do s=1,nt
        do j=1,ny
                do i=1,nx
                if (vor2(i,j,s,k)>=0 .and.div(i,j,s,k)>=0)then
                svbit(i,j,s,k)=div(i,j,s,k)/vor2(i,j,s,k)
                else
                svbit(i,j,s,k)=9.999E+20
                endif
  enddo
  enddo
  enddo
  enddo
这是ctl:
dset d:\zssdata\svbit.grd
undef 9.999E+20
title uwnd
xdef 21 linear 110 1
ydef 11 linear 25 1
zdef 26 levels  
1000 975 950 925 900 850 800 750 700 650 600 550 500 450 400 350 300 250 200 150 100 70 50 30 20 10
tdef 29 linear 00:00Z08jul2011 6hr
vars 1
svbit 26 99 vorticity using hgt
endvars
这是gs:
'reinit'
'clear'
'open D:\zssdata\svbit.ctl'
'enable print D:\zssdata\svbitt2.gmf'
'set grads off'
'set grid on'
'set lev 1000 100'
'set t 9 29'
'set xlevs 00 06 12 18 00 06 12 18 00 06 12 18 00 06 12 18 00 06 12 18 00 '
'define avesvbit=tloop(aave(svbit,lon=117,lon=120,lat=30,lat=32))'
'set xyrev off'
'set gxout contour'
'set ccolor 1'
'set cthick 4'
'set clopts -1 -1 0.18'
'set xlopts 1 5 0.2'
'set cint 10'
'set ylopts 1 5 0.2'
'set parea 1 10 1 7.5'
'set lat 29'
'set lon 117'
'set t 9 29'
'set lev 900 100'
'set zlog on'
'd avesvbit'



最后出图是这样的:
捕获.PNG
请问这种图形是怎么一回事呢,有什么办法优化它呢?


密码修改失败请联系微信:mofangbao

新浪微博达人勋

发表于 2013-8-20 05:52:10 | 显示全部楼层
图很不好看0.0
密码修改失败请联系微信:mofangbao

新浪微博达人勋

 楼主| 发表于 2013-8-20 08:29:14 | 显示全部楼层
密码修改失败请联系微信:mofangbao
您需要登录后才可以回帖 登录 | 立即注册 新浪微博登陆

本版积分规则

Copyright ©2011-2014 bbs.06climate.com All Rights Reserved.  Powered by Discuz! (京ICP-10201084)

本站信息均由会员发表,不代表气象家园立场,禁止在本站发表与国家法律相抵触言论

快速回复 返回顶部 返回列表