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

updated local damage post results for newer models

This commit is contained in:
Pratheek Shanthraj 2014-11-26 11:32:19 +00:00
parent a91ebafa0e
commit 6e90260817
1 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
code/constitutive.f90
View File

@ -1972,7 +1972,9 @@ function constitutive_postResults(Tstar_v, FeArray, ipc, ip, el)
LOCAL_DAMAGE_isoBrittle_ID, & LOCAL_DAMAGE_isoBrittle_ID, &
LOCAL_DAMAGE_isoDuctile_ID, & LOCAL_DAMAGE_isoDuctile_ID, &
LOCAL_DAMAGE_anisoBrittle_ID, & LOCAL_DAMAGE_anisoBrittle_ID, &
LOCAL_DAMAGE_anisoDuctile_ID, &
LOCAL_DAMAGE_gurson_ID, & LOCAL_DAMAGE_gurson_ID, &
LOCAL_DAMAGE_phaseField_ID, &
LOCAL_THERMAL_ADIABATIC_ID, & LOCAL_THERMAL_ADIABATIC_ID, &
LOCAL_VACANCY_generation_ID LOCAL_VACANCY_generation_ID
use constitutive_j2, only: & use constitutive_j2, only: &
@ -1995,10 +1997,14 @@ function constitutive_postResults(Tstar_v, FeArray, ipc, ip, el)
damage_isoBrittle_postResults damage_isoBrittle_postResults
use damage_isoDuctile, only: & use damage_isoDuctile, only: &
damage_isoDuctile_postResults damage_isoDuctile_postResults
use damage_gurson, only: &
damage_gurson_postResults
use damage_anisoBrittle, only: & use damage_anisoBrittle, only: &
damage_anisoBrittle_postResults damage_anisoBrittle_postResults
use damage_anisoDuctile, only: &
damage_anisoDuctile_postResults
use damage_gurson, only: &
damage_gurson_postResults
use damage_phaseField, only: &
damage_phaseField_postResults
use thermal_adiabatic, only: & use thermal_adiabatic, only: &
thermal_adiabatic_postResults thermal_adiabatic_postResults
use vacancy_generation, only: & use vacancy_generation, only: &
@ -2058,10 +2064,14 @@ function constitutive_postResults(Tstar_v, FeArray, ipc, ip, el)
constitutive_postResults(startPos:endPos) = damage_isoBrittle_postResults(ipc, ip, el) constitutive_postResults(startPos:endPos) = damage_isoBrittle_postResults(ipc, ip, el)
case (LOCAL_DAMAGE_isoDuctile_ID) case (LOCAL_DAMAGE_isoDuctile_ID)
constitutive_postResults(startPos:endPos) = damage_isoDuctile_postResults(ipc, ip, el) constitutive_postResults(startPos:endPos) = damage_isoDuctile_postResults(ipc, ip, el)
case (LOCAL_DAMAGE_gurson_ID)
constitutive_postResults(startPos:endPos) = damage_gurson_postResults(ipc, ip, el)
case (LOCAL_DAMAGE_anisoBrittle_ID) case (LOCAL_DAMAGE_anisoBrittle_ID)
constitutive_postResults(startPos:endPos) = damage_anisoBrittle_postResults(ipc, ip, el) constitutive_postResults(startPos:endPos) = damage_anisoBrittle_postResults(ipc, ip, el)
case (LOCAL_DAMAGE_anisoDuctile_ID)
constitutive_postResults(startPos:endPos) = damage_anisoDuctile_postResults(ipc, ip, el)
case (LOCAL_DAMAGE_gurson_ID)
constitutive_postResults(startPos:endPos) = damage_gurson_postResults(ipc, ip, el)
case (LOCAL_DAMAGE_phaseField_ID)
constitutive_postResults(startPos:endPos) = damage_phaseField_postResults(ipc, ip, el)
end select end select
startPos = endPos + 1_pInt startPos = endPos + 1_pInt