- out = interpp(x=lon,y=lat,z=var,xo=longitude,yo=latitude,linear=FALSE)
- out = out$z
- out[out<0&!(is.na(out))]=0
- out[is.na(out)]=-99
- result = matrix(out,76)
- result = round(result,digits=3)
- write.table(format(result,width=8,trim=FALSE),file=paste("raingrid1/",names[i],sep=""),append=TRUE,col.names=FALSE,row.names=FALSE,quote=FALSE,sep="")


雷达卡


京公网安备 11010802022788号







