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

Changing mtc43 to wth, removing ini, mtcin files

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

21
RBBGCMuso/R/getMeteoData1.R
View File

@ -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"))