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

corrected upper bound for spectral damage solver as well.

This commit is contained in:
Luv Sharma 2015-07-09 15:51:34 +00:00
parent fe280822a8
commit 1e9682eef9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
code/spectral_damage.f90
View File

@ -326,7 +326,7 @@ subroutine spectral_damage_formResidual(in,x_scal,f_scal,dummy,ierr)
call utilities_FFTscalarForward()
call utilities_fourierGreenConvolution(D_ref, mobility_ref, params%timeinc)
call utilities_FFTscalarBackward()
where(scalarField_realMPI > 1.0_pReal) scalarField_realMPI = 1.0_pReal
where(scalarField_realMPI > damage_lastInc) scalarField_realMPI = damage_lastInc
where(scalarField_realMPI < residualStiffness) scalarField_realMPI = residualStiffness
!--------------------------------------------------------------------------------------------------