diff --git a/src/IO.f90 b/src/IO.f90 index 36b774191..0ed26b1d4 100644 --- a/src/IO.f90 +++ b/src/IO.f90 @@ -524,16 +524,8 @@ subroutine IO_error(error_ID,el,ip,g,instance,ext_msg) msg = 'mixed boundary conditions allow rotation' case (839) msg = 'non-positive restart frequency in grid load case' - case (841) - msg = 'missing header length info in grid mesh' - case (842) - msg = 'incomplete information in grid mesh header' - case (843) - msg = 'material count mismatch' case (844) msg = 'invalid VTR file' - case (846) - msg = 'rotation for load case rotation ill-defined (R:RT != I)' case (891) msg = 'unknown solver type selected' case (892) @@ -541,6 +533,8 @@ subroutine IO_error(error_ID,el,ip,g,instance,ext_msg) case (894) msg = 'MPI error' + case (950) + msg = 'max number of cut back exceeded, terminating' !------------------------------------------------------------------------------------------------- ! general error messages @@ -606,8 +600,6 @@ subroutine IO_warning(warning_ID,el,ip,g,ext_msg) msg = 'unknown crystal symmetry' case (709) msg = 'read only the first document' - case (850) - msg = 'max number of cut back exceeded, terminating' case default msg = 'unknown warning number' end select diff --git a/src/grid/DAMASK_grid.f90 b/src/grid/DAMASK_grid.f90 index abf86e161..7bbb71872 100644 --- a/src/grid/DAMASK_grid.f90 +++ b/src/grid/DAMASK_grid.f90 @@ -441,9 +441,8 @@ program DAMASK_grid timeinc = timeinc/real(subStepFactor,pReal) ! cut timestep print'(/,a)', ' cutting back ' else ! no more options to continue - call IO_warning(850) if (worldrank == 0) close(statUnit) - call quit(0) + call IO_error(950) endif enddo subStepLooping