hollorol/RBBGCMuso
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

removing grid ID from the wth file name

Browse Source
This commit is contained in:
Erzsi86 2020-02-23 19:14:55 +01:00 committed by GitHub
parent 0941434a33
commit 00a87b4e62
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
RBBGCMuso/R/getMeteoData1.R
View File

@ -507,10 +507,10 @@ getMeteoData1BGC <- function(startYear=2017, endYear=2017, lon=18.8, lat=47.3, t
# "_lat", latSub, "_lon", lonSub, ".mtcin")) # ID number (1,2,...) can be added to the title by using object grid befor "_lat" # "_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"), file.rename(paste0(fileDir, "/", destDir, "/1.mtc43"),
paste0(fileDir, "/", destDir, "/", grid, paste0(fileDir, "/", destDir, "/",
"_lat", latSub, "_lon", lonSub, ".wth")) # ID number (1,2,...) can be added to the title by using object grid befor "_lat" "_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.copy(paste0(fileDir, "/", destDir, "/", "_lat", latSub, "_lon", lonSub, ".wth"), fileDir)
# file.rename("1.ini", paste0(sprintf('%0.4d', gridID),".ini")) # file.rename("1.ini", paste0(sprintf('%0.4d', gridID),".ini"))
# #
# file.rename("1.mtcin", paste0(sprintf('%0.4d', gridID),".mtcin")) # file.rename("1.mtcin", paste0(sprintf('%0.4d', gridID),".mtcin"))