*
*  To use, grads -p
*
'reinit'
'open /net/cjs/gpcp/pptn.ctl'
'enable print pptn.gx'
'set lon 0 360'
'set lat -90 90'
'set z 1'
'set t 120'
xres = 5
yres = 5
'define pptn2 = regrid2(pptn,'xres','yres',bl)'
'q time'
date = subwrd(result,3)
*
*  plot results
*
'set vpage  0 8.5 5.5 11'
'set parea  1 7   1 4.5'
'set grads off'
'set gxout shaded'
'set clevs  0 2 4 6 8 10 12 14 16 18 20 22'
'd pptn'
'draw title \\ GPCP Precipitation 'date' (mm d`a-1`n) \ (`02.5`3.`0 x 2.5`3.`0 grid)'
'run cbar 0.7'
'set vpage  0 8.5 0 5.5'
'set parea  1 7   1 4.5'
'set grads off'
'set gxout shaded'
'set clevs  0 2 4 6 8 10 12 14 16 18 20 22'
'd pptn2'
'draw title \\ GPCP Precipitation 'date' (mm d`a-1`n) \ (`0'xres'`3.`0 x 'yres'`3.`0 grid)'
'run cbar 0.7'
'print'
'disable print'
