'reinit'
rc = gsfallow("on")
'open pptn.ctl'
'set x 1 144'
'set y 1'
'set z 1'
'set t 1 120'
'pptna = ave(pptn,lat=5,lat=35)'
'set gxout shaded'
'd pptna'
'draw title \\ "pptn" averaged for latitudes 5N to 35N'
'run cbar 0.7'
