diff --git a/.read_netcdf.r.swp b/.read_netcdf.r.swp
deleted file mode 100644
index 4547482b13ba38ebf14af7e28d90bfcca75ccdec..0000000000000000000000000000000000000000
Binary files a/.read_netcdf.r.swp and /dev/null differ
diff --git a/read_netcdf.r b/read_netcdf.r
index 6c4811660be191c62d76a324cb69382502e52019..fc1885579c199d753e9f58ece4cd34f3b1d890fa 100644
--- a/read_netcdf.r
+++ b/read_netcdf.r
@@ -1,15 +1,9 @@
 
 library(ncdf4)
 
-#path <- '/esarchive/recon/ecmwf/erainterim/daily_mean/tas/'
-#file <- 'tas_201801.nc'
-
 read_netcdf <- function(var_name, path, file) {
-
 nc_data <- nc_open(paste0(path,file))
 
-#nc_data <- nc_open('/esarchive/recon/ecmwf/erainterim/daily_mean/tas/tas_201801.nc')
-
 lon <- ncvar_get(nc_data, "longitude")
 lat <- ncvar_get(nc_data, "latitude")
 t <- ncvar_get(nc_data, "time")