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

dont write bulk density

Browse Source
This commit is contained in:
Roland Hollós 2020-09-29 15:39:26 +02:00
parent cb08390a07
commit 2248452e17
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
RBBGCMuso/R/soilQuery.R
View File

@ -56,7 +56,7 @@ createSoilFile <- function(lat,lon,
paste(createMusoLayers(getMeanSoil(rest,"silt")/10), collapse="\t")) paste(createMusoLayers(getMeanSoil(rest,"silt")/10), collapse="\t"))
outFile[57] <- sprintf("%s (dimless) soil PH", outFile[57] <- sprintf("%s (dimless) soil PH",
paste(createMusoLayers(getMeanSoil(rest,"phh2o")/10), collapse="\t")) paste(createMusoLayers(getMeanSoil(rest,"phh2o")/10), collapse="\t"))
outFile[58] <- sprintf("%s (%%) bulk density",paste(createMusoLayers(soilDepth),collapse="\t")) # outFile[58] <- sprintf("%s (%%) bulk density",paste(createMusoLayers(soilDepth),collapse="\t"))
writeLines(outFile,outputFile) writeLines(outFile,outputFile)
} }
# createSoilFile(60,50) # createSoilFile(60,50)