- 积分
- 447
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2018-9-28
- 最后登录
- 1970-1-1
|
发表于 2020-3-26 13:44:11
|
显示全部楼层
补,这是我的ctl和gs文件:(多谢大神喽~)
out.ctl文件:
dset F:\pou\out.grd
title 25Nmay
undef -9.96921e+36
xdef 144 linear 0 2.5
ydef 1 linear 25 2.5
zdef 8 levels 1000 925 850 700 600 500 400 300
tdef 1 linear 00Z13May2007 360mn
vars 1
qva 8 99 poumian
endvars
gs文件:
'reinit'
'open F:\pou\out.ctl'
'open F:\NCEPdx\orog.ctl'
'set zlog on'
lon1=80.0
lon2=110.0
'set x 1'
'set y 1'
'set z 1 8'
'set t 1'
lon=lon1
'collect 1 free'
'collect 2 free'
while(lon<=lon2)
'collect 1 gr2stn(qva,'lon',25)'
'collect 2 gr2stn(orog.2(t=1),'lon',25)'
lon=lon+1
endwhile
'set lon 80 110'
'set z 1 8'
'set xlint 10'
'set ylint 100'
'set gxout shaded'
'set csmooth on'
'set clab off'
'set clevs 0'
'set ccols 0 1 0'
'd coll2gr(2,-u)'
'set gxout contour'
'set clab on'
'd maskout(coll2gr(1,-u),-coll2gr(2,-u))'
'printim F:\pou\dixing.png white'
;
|
|