From e5370d4327798a41ff6585512e61a9c65fc30c10 Mon Sep 17 00:00:00 2001 From: Sam Harrison Date: Wed, 8 Jan 2025 15:00:52 +0000 Subject: [PATCH] Updating soil texture auditing --- src/Soil/SoilProfileModule.f90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/Soil/SoilProfileModule.f90 b/src/Soil/SoilProfileModule.f90 index c16640c..f0a2b34 100644 --- a/src/Soil/SoilProfileModule.f90 +++ b/src/Soil/SoilProfileModule.f90 @@ -558,10 +558,10 @@ subroutine parseNewBatchDataSoilProfile(me) me%coarseFragContent = DATASET%soilTextureCoarseFragContent(me%x, me%y) ! Check if clay, sand and silt sum to (nearly) 1, and if not, default to ! the average soil texture for Europe - if (abs(1.0 - me%clayContent - me%sandContent - me%siltContent) > 1e-3) then - me%clayContent = 0.18 - me%sandContent = 0.46 - me%siltContent = 0.36 + if (abs(100.0 - me%clayContent - me%sandContent - me%siltContent) > 0.1) then + me%clayContent = 18.0 + me%sandContent = 46.0 + me%siltContent = 36.0 end if if (me%coarseFragContent == nf90_fill_real) then me%coarseFragContent = 0.0