- 积分
- 1184
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2015-3-28
- 最后登录
- 1970-1-1
|
楼主 |
发表于 2020-9-14 22:19:23
|
显示全部楼层
'reinit'
'open D:/grads/gs/202007.ctl'
aa=subwrd(result,3)
hour=substr(aa,1,2)
day=substr(aa,4,2)
month=substr(aa,6,3)
year=substr(aa,9,12)
*------------
'set mpdset cnworld'
'set zlog on'
'set lev 1000 200'
'set t 1 5'
'set grads off'
'set grid off'
'set lon 123'
'set lat 42'
'set xlopts 1 8 0.18'
'set ylopts 1 8 0.18'
'set gxout contour'
*'set cint 0.4'
'set ccolor 1'
'define div=hdivg(ugrdprs,vgrdprs)*100000'
*'d skip(ugrdprs*2.5,1.5);skip(vgrdprs*2.5,1.5)'
'd div'
'draw title uv'
'printim D:/grads/gs/uvpou1.png white'
'c'
'reinit'
|
|