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

Polishing.

This commit is contained in:
Haiming Zhang 2015-01-11 19:10:16 +00:00
parent 775146030c
commit a2552d6241
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
code/crystallite.f90
View File

@ -3271,7 +3271,7 @@ subroutine crystallite_integrateStateFPI()
- damageState(p)%subState0(1:mySizeDamageDotState,c) &
- (damageState(p)%dotState(1:mySizeDamageDotState,c) * damageStateDamper &
+ damageState(p)%previousDotState(1:mySizeDamageDotState,c) &
* (1.0_pReal - damageStatedamper)) * crystallite_subdt(g,i,e)
* (1.0_pReal - damageStateDamper)) * crystallite_subdt(g,i,e)
thermalStateResiduum(1:mySizeThermalDotState) = thermalState(p)%state(1:mySizeThermalDotState,c) &
- thermalState(p)%subState0(1:mySizeThermalDotState,c) &

2
code/damage_phaseField.f90
View File

@ -214,7 +214,7 @@ subroutine damage_phaseField_init(fileUnit)
allocate(damageState(phase)%state_backup (sizeState,NofMyPhase), source=0.0_pReal)
allocate(damageState(phase)%dotState (sizeDotState,NofMyPhase), source=0.0_pReal)
allocate(damageState(phase)%deltaState (sizeDotState,NofMyPhase), source=0.0_pReal)
allocate(damageState(phase)%deltaState (sizeDotState,NofMyPhase), source=0.0_pReal)
allocate(damageState(phase)%dotState_backup (sizeDotState,NofMyPhase), source=0.0_pReal)
if (any(numerics_integrator == 1_pInt)) then
allocate(damageState(phase)%previousDotState (sizeDotState,NofMyPhase), source=0.0_pReal)