From 1e9682eef91bed80b7a95894c061b7679e7d7ea8 Mon Sep 17 00:00:00 2001 From: Luv Sharma Date: Thu, 9 Jul 2015 15:51:34 +0000 Subject: [PATCH] corrected upper bound for spectral damage solver as well. --- code/spectral_damage.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/spectral_damage.f90 b/code/spectral_damage.f90 index 346c7b449..851571186 100644 --- a/code/spectral_damage.f90 +++ b/code/spectral_damage.f90 @@ -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 !--------------------------------------------------------------------------------------------------