223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

polishing/fixing tests

This commit is contained in:
Martin Diehl 2021-03-27 23:58:49 +01:00
parent 0072ebfa64
commit 84e383964b
4 changed files with 4 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
PRIVATE

@ -1 +1 @@
Subproject commit 535310ae792895d1eca5d45af335cd7e227af145 Subproject commit c55d060b409c8a610b7fe8722fb756c1ed93c7ad

2
examples/config/Phase_Damage.config
View File

@ -1,2 +0,0 @@
damage_diffusion11 1.0
damage_mobility 0.001

5
examples/config/Source_Damage_IsoBrittle.config
View File

@ -1,5 +0,0 @@
(source) damage_isoBrittle
isobrittle_criticalStrainEnergy 1400000.0
isobrittle_atol 0.01
isobrittle_N 1.0
(output) isoBrittle_DrivingForce

6
src/mesh/DAMASK_mesh.f90
View File

@ -338,15 +338,15 @@ program DAMASK_mesh
cutBack = .False. cutBack = .False.
if(.not. all(solres(:)%converged .and. solres(:)%stagConverged)) then ! no solution found if(.not. all(solres(:)%converged .and. solres(:)%stagConverged)) then ! no solution found
if (cutBackLevel < maxCutBack) then ! do cut back if (cutBackLevel < maxCutBack) then ! do cut back
print'(/,a)', ' cut back detected'
cutBack = .True. cutBack = .True.
stepFraction = (stepFraction - 1) * subStepFactor ! adjust to new denominator stepFraction = (stepFraction - 1) * subStepFactor ! adjust to new denominator
cutBackLevel = cutBackLevel + 1 cutBackLevel = cutBackLevel + 1
time = time - timeinc ! rewind time time = time - timeinc ! rewind time
timeinc = timeinc/2.0_pReal timeinc = timeinc/2.0_pReal
print'(/,a)', ' cutting back'
else ! default behavior, exit if spectral solver does not converge else ! default behavior, exit if spectral solver does not converge
call IO_warning(850) if (worldrank == 0) close(statUnit)
call quit(1) ! quit call IO_error(950)
endif endif
else else
guess = .true. ! start guessing after first converged (sub)inc guess = .true. ! start guessing after first converged (sub)inc