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

Fix bug about vacancy generation in subroutine constitutive_microstructure

This commit is contained in:
Haiming Zhang 2014-12-11 13:07:15 +00:00
parent 8588cb5d09
commit 5bc93efd63
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
code/constitutive.f90
View File

@ -557,6 +557,7 @@ subroutine constitutive_microstructure(Tstar_v, Fe, Fp, subdt, ipc, ip, el)
use material, only: & use material, only: &
phase_plasticity, & phase_plasticity, &
phase_damage, & phase_damage, &
phase_vacancy, &
material_phase, & material_phase, &
PLASTICITY_dislotwin_ID, & PLASTICITY_dislotwin_ID, &
PLASTICITY_dislokmc_ID, & PLASTICITY_dislokmc_ID, &
@ -643,7 +644,7 @@ subroutine constitutive_microstructure(Tstar_v, Fe, Fp, subdt, ipc, ip, el)
end select end select
select case (phase_damage(material_phase(ipc,ip,el))) select case (phase_vacancy(material_phase(ipc,ip,el)))
case (LOCAL_VACANCY_generation_ID) case (LOCAL_VACANCY_generation_ID)
call constitutive_getAccumulatedSlip(nSlip,accumulatedSlip,ipc, ip, el) call constitutive_getAccumulatedSlip(nSlip,accumulatedSlip,ipc, ip, el)
call vacancy_generation_microstructure(constitutive_homogenizedC(ipc,ip,el), Fe, & call vacancy_generation_microstructure(constitutive_homogenizedC(ipc,ip,el), Fe, &