non-converging simulation is an error

This commit is contained in:
Martin Diehl 2021-03-27 17:07:36 +01:00
parent 26e6328664
commit 7072ab0984
2 changed files with 3 additions and 12 deletions

View File

@ -524,16 +524,8 @@ subroutine IO_error(error_ID,el,ip,g,instance,ext_msg)
msg = 'mixed boundary conditions allow rotation' msg = 'mixed boundary conditions allow rotation'
case (839) case (839)
msg = 'non-positive restart frequency in grid load case' 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) case (844)
msg = 'invalid VTR file' msg = 'invalid VTR file'
case (846)
msg = 'rotation for load case rotation ill-defined (R:RT != I)'
case (891) case (891)
msg = 'unknown solver type selected' msg = 'unknown solver type selected'
case (892) case (892)
@ -541,6 +533,8 @@ subroutine IO_error(error_ID,el,ip,g,instance,ext_msg)
case (894) case (894)
msg = 'MPI error' msg = 'MPI error'
case (950)
msg = 'max number of cut back exceeded, terminating'
!------------------------------------------------------------------------------------------------- !-------------------------------------------------------------------------------------------------
! general error messages ! general error messages
@ -606,8 +600,6 @@ subroutine IO_warning(warning_ID,el,ip,g,ext_msg)
msg = 'unknown crystal symmetry' msg = 'unknown crystal symmetry'
case (709) case (709)
msg = 'read only the first document' msg = 'read only the first document'
case (850)
msg = 'max number of cut back exceeded, terminating'
case default case default
msg = 'unknown warning number' msg = 'unknown warning number'
end select end select

View File

@ -441,9 +441,8 @@ program DAMASK_grid
timeinc = timeinc/real(subStepFactor,pReal) ! cut timestep timeinc = timeinc/real(subStepFactor,pReal) ! cut timestep
print'(/,a)', ' cutting back ' print'(/,a)', ' cutting back '
else ! no more options to continue else ! no more options to continue
call IO_warning(850)
if (worldrank == 0) close(statUnit) if (worldrank == 0) close(statUnit)
call quit(0) call IO_error(950)
endif endif
enddo subStepLooping enddo subStepLooping