Use get_do_tillage() in first readParams_netcdf() return check.

ESCOMP · Aug 14, 2023 · fe568e1 · fe568e1
1 parent c5ee474
commit fe568e1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/soilbiogeochem/TillageMod.F90 b/src/soilbiogeochem/TillageMod.F90
@@ -120,7 +120,7 @@ subroutine readParams_netcdf(ncid)
     ! Initialize tillage multipliers as all 1, and exit if not tilling
     allocate(tillage_mults_allphases(ndecomp_pools, ntill_stages_max))
     tillage_mults_allphases(:,:) = 1.0_r8
-    if (tillage_mode == "off") then
+    if (.not. get_do_tillage()) then
         return
     end if