From 0941434a335fc087db461866ea77a952c01b8ec7 Mon Sep 17 00:00:00 2001 From: Erzsi86 <46902392+Erzsi86@users.noreply.github.com> Date: Sun, 23 Feb 2020 18:00:58 +0100 Subject: [PATCH] Changing mtc43 to wth, removing ini, mtcin files --- RBBGCMuso/R/getMeteoData1.R | 21 ++++++++++----------- 1 file changed, 10 insertions(+), 11 deletions(-) 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"))