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)%subState0(1:mySizeDamageDotState,c) &
- (damageState(p)%dotState(1:mySizeDamageDotState,c) * damageStateDamper & - (damageState(p)%dotState(1:mySizeDamageDotState,c) * damageStateDamper &
+ damageState(p)%previousDotState(1:mySizeDamageDotState,c) & + 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) & thermalStateResiduum(1:mySizeThermalDotState) = thermalState(p)%state(1:mySizeThermalDotState,c) &
- thermalState(p)%subState0(1:mySizeThermalDotState,c) & - thermalState(p)%subState0(1:mySizeThermalDotState,c) &