diff --git a/RBBGCMuso/R/getMeteoData1.R b/RBBGCMuso/R/getMeteoData1.R
index 0527fd2..ef0a0af 100644
--- a/RBBGCMuso/R/getMeteoData1.R
+++ b/RBBGCMuso/R/getMeteoData1.R
@@ -498,20 +498,19 @@ getMeteoData1BGC <- function(startYear=2017, endYear=2017, lon=18.8, lat=47.3, t
     #                    "_lat", latSub, "_lon", lonSub, ".wth"))
     ###
 
-    file.copy(paste0(destDir,"/1.mtc43"), fileDir)
+    #file.rename("1.ini",
+    #            paste0(grid,
+    #                   "_lat", latSub, "_lon", lonSub, ".ini")) # ID number (1,2,...) can be added to the title by using object grid befor "_lat"
 
-    file.rename("1.ini",
-                paste0(grid,
-                       "_lat", latSub, "_lon", lonSub, ".ini")) # ID number (1,2,...) can be added to the title by using object grid befor "_lat"
-
-    file.rename("1.mtcin",
-                paste0(grid,
-                       "_lat", latSub, "_lon", lonSub, ".mtcin")) # ID number (1,2,...) can be added to the title by using object grid befor "_lat"
-
-    file.rename("1.mtc43",
-                paste0(grid,
+    #file.rename("1.mtcin",
+    #             paste0(grid,
+    #                   "_lat", latSub, "_lon", lonSub, ".mtcin")) # ID number (1,2,...) can be added to the title by using object grid befor "_lat"
+      
+    file.rename(paste0(fileDir, "/", destDir, "/1.mtc43"),
+                paste0(fileDir, "/", destDir, "/", grid,
                        "_lat", latSub, "_lon", lonSub, ".wth")) # ID number (1,2,...) can be added to the title by using object grid befor "_lat"
 
+    file.copy(paste0(fileDir, "/", destDir, "/", grid, "_lat", latSub, "_lon", lonSub, ".wth"), fileDir)
     # file.rename("1.ini", paste0(sprintf('%0.4d', gridID),".ini"))
     #
     # file.rename("1.mtcin", paste0(sprintf('%0.4d', gridID),".mtcin"))