From 84e383964bd67390b374cf84057ffcf53ff713d5 Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Sat, 27 Mar 2021 23:58:49 +0100
Subject: [PATCH] polishing/fixing tests

---
 PRIVATE                                         | 2 +-
 examples/config/Phase_Damage.config             | 2 --
 examples/config/Source_Damage_IsoBrittle.config | 5 -----
 src/mesh/DAMASK_mesh.f90                        | 6 +++---
 4 files changed, 4 insertions(+), 11 deletions(-)
 delete mode 100644 examples/config/Phase_Damage.config
 delete mode 100644 examples/config/Source_Damage_IsoBrittle.config

diff --git a/PRIVATE b/PRIVATE
index 535310ae7..c55d060b4 160000
--- a/PRIVATE
+++ b/PRIVATE
@@ -1 +1 @@
-Subproject commit 535310ae792895d1eca5d45af335cd7e227af145
+Subproject commit c55d060b409c8a610b7fe8722fb756c1ed93c7ad
diff --git a/examples/config/Phase_Damage.config b/examples/config/Phase_Damage.config
deleted file mode 100644
index f34a78627..000000000
--- a/examples/config/Phase_Damage.config
+++ /dev/null
@@ -1,2 +0,0 @@
-damage_diffusion11              1.0
-damage_mobility                 0.001
diff --git a/examples/config/Source_Damage_IsoBrittle.config b/examples/config/Source_Damage_IsoBrittle.config
deleted file mode 100644
index b36165ab4..000000000
--- a/examples/config/Source_Damage_IsoBrittle.config
+++ /dev/null
@@ -1,5 +0,0 @@
-(source) damage_isoBrittle
-isobrittle_criticalStrainEnergy 1400000.0
-isobrittle_atol                 0.01
-isobrittle_N                    1.0
-(output) isoBrittle_DrivingForce
diff --git a/src/mesh/DAMASK_mesh.f90 b/src/mesh/DAMASK_mesh.f90
index 5ef0f7a36..ed99d1143 100644
--- a/src/mesh/DAMASK_mesh.f90
+++ b/src/mesh/DAMASK_mesh.f90
@@ -338,15 +338,15 @@ program DAMASK_mesh
         cutBack = .False.
         if(.not. all(solres(:)%converged .and. solres(:)%stagConverged)) then                       ! no solution found
           if (cutBackLevel < maxCutBack) then                                                       ! do cut back
-            print'(/,a)', ' cut back detected'
             cutBack = .True.
             stepFraction = (stepFraction - 1) * subStepFactor                                       ! adjust to new denominator
             cutBackLevel = cutBackLevel + 1
             time    = time - timeinc                                                                ! rewind time
             timeinc = timeinc/2.0_pReal
+            print'(/,a)', ' cutting back'
           else                                                                                      ! default behavior, exit if spectral solver does not converge
-            call IO_warning(850)
-            call quit(1)                                                                            ! quit
+            if (worldrank == 0) close(statUnit)
+            call IO_error(950)
           endif
         else
           guess = .true.                                                                            ! start guessing after first converged (sub)inc