- 积分
- 10645
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2015-10-17
- 最后登录
- 1970-1-1
![[只吃蛋白不吃huang] 粉丝数:71 微博数:136 新浪微博达人勋](source/plugin/sina_login/img/light.png)
|
发表于 2016-4-14 11:15:46
|
显示全部楼层
又来麻烦你了,我画FNL1°×1°自带的数据,比如温度,垂直速度我已经可以画出来了,但是假相当位温还是有问题,运行完gs没有错误 但是图是这样的F:/G/TU.png
'reinit'
'open F:/G/FNL/test1/fnl_20121101_00_00.ctl'
*t=1
*while(t<=20)
*'clear'
*'set t 't
*'q time'
*m_time=subwrd(result,3)
'set t 2'
'set grads off'
'set grid off'
'set zlog on'
'set csmooth on'
'set ylint 100'
'set xlint 2'
'set xlopts 1 6 0.14'
'set ylopts 1 6 0.14'
'set x 1'
'set y 1'
'set lev 1000 100'
lon1=116
lon2=125
lat1=37
lat2=42
lon=lon1
'collect 1 free'
while(lon<=lon2)
lat=lat1+(lat2-lat1)*(lon-lon1)/(lon2-lon1)
'define tmp=TMPprs'
'define rh=RHprs'
'define prs=lev'
'define es=(6.11*exp(17.27*(tmp-273.16)/(tmp-35.86)))'
'define q=rh*(0.62197*es/(prs-es))/100.'
'define e=prs*q/(0.62197+q)+1e-10'
'define tlcl=55.0+2840.0/(3.5*log(tmp)-log(e)-4.805)'
'define theta=tmp*pow((1000/prs),(0.2854*(1.0-0.28*q)))'
'define eqt=theta*exp(((3376./tlcl)-2.54)*q*(1.0+0.81*q))'
'collect 1 gr2stn(eqt,'lon','lat')'
lon=lon+1
endwhile
'set lon 116 125'
*'set xaxis 116 125 2'
'set clab on'
'set gxout contour'
'd coll2gr(1,-u)'
*'draw title fnl,'m_time
*'gxprint F:/G/FNL/test1/jxdww/'t'.png white'
*t=t+1
*endwhile
这个是我的gs |
|