use preindctl.jja.nc
use ncep.jja.nc 
let ppt = prate[g=OPREC[d=1]]
let ts = skint[g=OPREC[d=1]]
save /file=ncep.jja.regrid.nc ppt,ts 
quit