From 2248452e176b87b367c754108877319712ad063d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roland=20Holl=C3=B3s?= Date: Tue, 29 Sep 2020 15:39:26 +0200 Subject: [PATCH] dont write bulk density --- RBBGCMuso/R/soilQuery.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/RBBGCMuso/R/soilQuery.R b/RBBGCMuso/R/soilQuery.R index a81a0a1..6c4e189 100644 --- a/RBBGCMuso/R/soilQuery.R +++ b/RBBGCMuso/R/soilQuery.R @@ -56,7 +56,7 @@ createSoilFile <- function(lat,lon, paste(createMusoLayers(getMeanSoil(rest,"silt")/10), collapse="\t")) outFile[57] <- sprintf("%s (dimless) soil PH", 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) } # createSoilFile(60,50)