- 积分
- 131
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2012-2-7
- 最后登录
- 1970-1-1
|
楼主 |
发表于 2012-8-16 15:38:36
|
显示全部楼层
'reinit'
'open E:\fortran\tool\tankong\ref_grid.ctl'
'open E:\fortran\tool\tankong\ref.ctl'
'enable print E:\fortran\tool\tankong\tankong.gmf'
'set mpdset hires cnworld'
'set lon 75 138 '
'set lat 15 55 '
'define ro=oacres(g,rain.2,2,1)'
'set rbrange 35 100'
*'set cmin 35'
'set cterp on'
'define rm=maskout(ro,g-0.5)'
'define rs=smth9(rm)'
'set poli on'
'set grid off'
'set xlint 5'
'set ylint 5'
'set xlopts 1 4 0.12'
'set ylopts 1 4 0.12'
'SET GRADS off'
'set timelab off'
'set csmooth on'
'set gxout shaded'
'set rbcols 6 2 8 12 7 10 3 13 5 11 4 14 9 '
*9,14,4,11,5,13,3,10,7,12,8,2,6)'
'd rs'
'cbarn 1 1 '
'set gxout contour'
'set cint 5'
'set cthick thickness'
'set cthick 3'
'set clopts 5 1 0.1'
'd rs'
'cnbasemap rs'
'print'
'draw title The distribute of humidity for radiosonde '
'printim E:\fortran\tool\tankong\12051.gif white '
'print'
'disable print'
|
|