Displaying 1 result from an estimated 1 matches for "scitm3".
Did you mean:
scim
2012 Mar 16
2
plotting border over map
...)[1])+0.5*lat.res
#centers of cells
col=rich.colors(32)
xlims <-c(-180,180)
ylims <-c(-90,90)
old.par <- par(no.readonly = TRUE)
par(mar=c(par()$mar[1:3],4))
cex.set <- 1.2
par(cex=cex.set)
par(mgp=c(2.0,0.3,0))
par(tcl=-0.1)
opath <- ("/Result/scitm3/") # path to save image
if(write_file){png(file=paste(opath,The_title[[ki]],".png",sep="
"),width=1000,height=800,pointsize=23)}
if(!write_file){x11()}
image.plot.fix(x=xs,y=ys,z=input[[ki]]$avg,zlim=c(1600,2000),nlevel=64,col=col,xlab="Longitude",ylab="...