Fix bug with incorrect pass of AR_thr_ratio

jimmielin · Apr 18, 2022 · 9dcca08 · 9dcca08
1 parent 41ff6b3
commit 9dcca08
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/KPP/fullchem/gckpp_Integrator.F90 b/KPP/fullchem/gckpp_Integrator.F90
@@ -430,7 +430,7 @@ SUBROUTINE Rosenbrock(N,Y,Tstart,Tend, &
     ENDIF
 !~~~> Auto-reduction threshold ratio (only if ICNTRL(10) is not zero)
     AR_thr_ratio = 0.001_dp
-    IF (RCNTRL(8) > ZERO) THEN
+    IF (RCNTRL(10) > ZERO) THEN
        AR_thr_ratio = RCNTRL(10)
     ENDIF
 !~~~>  CALL Auto-reducing Rosenbrock method