non-converging simulation is an error
This commit is contained in:
parent
26e6328664
commit
7072ab0984
12
src/IO.f90
12
src/IO.f90
|
@ -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
|
||||||
|
|
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue