*2003年7月の月平均場

reinit
open ../ctl/2003JJA.ctl
set grads off

set lon 0 180
set lat 30 90
set time 1jul2003
set mproj nps
set lev 300

define meanu = ave(u,time=00z1jul2003,time=12z31jul2003)
define meanv = ave(v,time=00z1jul2003,time=12z31jul2003)
define meanuv = ave(mag(u,v),time=00z1jul2003,time=12z31jul2003)

set cthick 5
set clopts 1 1 0.1
set cint 5

d meanuv

set arrowhead 0.1
set arrscl 0.5 40
d skip(meanu,6,4);meanv

draw title JUL03 monthly-mean wind [m/s] at 300hPa

enable print meanUV300.gm
print
disable print


!gxeps -2 -c -i meanUV300.gm -o meanUV300.eps

!convert -rotate 90 -geometry 600x400  meanUV300.eps meanUV300.gif