Add custom_rel_epsilon to a truncate_small_values call

billsacks · Apr 5, 2024 · 96623dd · 96623dd
1 parent b826f72
commit 96623dd
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/biogeophys/CanopyFluxesMod.F90 b/src/biogeophys/CanopyFluxesMod.F90
@@ -1641,7 +1641,7 @@ subroutine CanopyFluxes(bounds,  num_exposedvegp, filter_exposedvegp,
       ! snocan < rel_epsilon * snocan_baseline will be set to zero
       ! See NumericsMod for rel_epsilon value
       call truncate_small_values(fn, filterp, begp, endp, &
-         snocan_baseline(begp:endp), snocan(begp:endp))
+         snocan_baseline(begp:endp), snocan(begp:endp), custom_rel_epsilon=1.e-10_r8)
 
       if ( use_fates ) then