Rebuild 3.0.1

R/plotmap.R

@@ -97,7 +97,7 @@ function(file,  sponge=0,
     cex.axis=1, cex.lab=1, cex.main=1, cex.txt=1,
     main="", xlab="", ylab="", add=FALSE,
     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
      icon<-FALSE
@@ -366,7 +366,7 @@ function(file,  sponge=0,
         } else {
         lsm         <- array(TRUE, dim(data))
         }
-#        alt.contour <- FALSE
+        alt.contour <- FALSE
     } else {
         nc.lsm  <- nc_open(lsm.file)
         # check for orography and land sea mask data
@@ -401,11 +401,11 @@ function(file,  sponge=0,
                 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)){
               alt <- ncvar_get(nc.lsm, lsm.name)
         }
-#        }
+        }
         }
         nc_close(nc.lsm)
     }