- 积分
- 21
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2014-9-26
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
vel.gs内容
'reinit'
'set gxout fwrite'
'set fwrite d:\FNL\vel.dat'
'open D:\FNL\fnl201405.ctl'
i=28
while(i<=34)
'define vel=aave(vvelprs,lon=112,lon=115,lat=22,lat=23)'
'set t 'i''
'set lev 1000'
'd vel'
'set lev 900'
'd vel'
'set lev 800'
'd vel'
'set lev 700'
'd vel'
'set lev 600'
'd vel'
'set lev 500'
'd vel'
'set lev 400'
'd vel'
'set lev 300'
'd vel'
'set lev 200'
'd vel'
'set lev 100'
'd vel'
i=i+1
endwhile
'disable fwrite'
'reinit'
然后运行文件 产生vel.dat文件
接着编写
vel.ctl内容
DSET d:\FNL\vel.dat
TITLE Upper Data
undef -9.99E33
xdef 4 linear 112 1.0
ydef 2 linear 22 1.0
zdef 10 levels 1000 900 800 700 600 500 400 300 200 100
tdef 7 linear 0z21May2014 6hr
vars 1
vel 10 99 Pressure vertical velocity
Endvars
最后
omega.gs文件
'reinit'
'open d:\FNL\vel.ctl'
'set x 1'
'set y 1'
'set lev 1000 100'
'set t 1 7'
'define_colors'
'set cterp on'
'set csmooth on'
'set grads off'
'set grid off'
'd vel'
'enable print d:\fnl\omega0.gmf'
'print'
'disable print'
'reinit'
|
|