PR errmsg update to indicate what column index failed to converge

ESCOMP · Jun 4, 2024 · 724f30c · 724f30c
1 parent 3174426
commit 724f30c
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/dry_adiabatic_adjust/dadadj.F90 b/dry_adiabatic_adjust/dadadj.F90
@@ -200,7 +200,8 @@ subroutine dadadj_run( &
             zeps = zeps + zeps
             if (zeps > 1.e-4_kind_phys) then
                errflg = i
-               errmsg = trim(scheme_name)//': Convergence failure, zeps > 1.e-4'
+               write(errmsg,*) trim(scheme_name)//': Convergence failure at column ',i,' zeps > 1.e-4 '// &
+                    '(errflg set to failing column index)'
                return                ! error return
             end if
          end do DBLZEP