Commit 814f16f7 authored by Burkhardt Rockel's avatar Burkhardt Rockel

Rebuild 3.0.1

parent 42034720
...@@ -97,7 +97,7 @@ function(file, sponge=0, ...@@ -97,7 +97,7 @@ function(file, sponge=0,
cex.axis=1, cex.lab=1, cex.main=1, cex.txt=1, cex.axis=1, cex.lab=1, cex.main=1, cex.txt=1,
main="", xlab="", ylab="", add=FALSE, main="", xlab="", ylab="", add=FALSE,
colourplot=TRUE, hires=FALSE, interior=FALSE, alt.poli=TRUE, colourplot=TRUE, hires=FALSE, interior=FALSE, alt.poli=TRUE,
nlongrid=10, nlatgrid=5, lon.ind, lat.ind, pollonshift=TRUE,smoothed=FALSE,geo.coordinate.names=c("lon","lat")){ nlongrid=10, nlatgrid=5, lon.ind, lat.ind, pollonshift=TRUE,smoothed=FALSE,geo.coordinate.names=c("lon","lat"),alt.contour=FALSE){
# help variable for the ICON model # help variable for the ICON model
icon<-FALSE icon<-FALSE
...@@ -366,7 +366,7 @@ function(file, sponge=0, ...@@ -366,7 +366,7 @@ function(file, sponge=0,
} else { } else {
lsm <- array(TRUE, dim(data)) lsm <- array(TRUE, dim(data))
} }
# alt.contour <- FALSE alt.contour <- FALSE
} else { } else {
nc.lsm <- nc_open(lsm.file) nc.lsm <- nc_open(lsm.file)
# check for orography and land sea mask data # check for orography and land sea mask data
...@@ -401,11 +401,11 @@ function(file, sponge=0, ...@@ -401,11 +401,11 @@ function(file, sponge=0,
lat <- array(tmp$y, c(nlon,nlat)) lat <- array(tmp$y, c(nlon,nlat))
} }
} }
# if (alt.contour & any(names(nc.lsm$var) == lsm.name)){ if (alt.contour & any(names(nc.lsm$var) == lsm.name)){
if (any(names(nc.lsm$var) == lsm.name)){ if (any(names(nc.lsm$var) == lsm.name)){
alt <- ncvar_get(nc.lsm, lsm.name) alt <- ncvar_get(nc.lsm, lsm.name)
} }
# } }
} }
nc_close(nc.lsm) nc_close(nc.lsm)
} }
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment