From 6dc8a4d5304897fcd4165386d4dd55c69e7f3eee Mon Sep 17 00:00:00 2001 From: Christoph Kords Date: Wed, 9 Nov 2011 09:55:39 +0000 Subject: [PATCH] check for LFC only if there is any slip activity at all; also increased safety factor from 1.2 to 1.5 --- code/constitutive_nonlocal.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/constitutive_nonlocal.f90 b/code/constitutive_nonlocal.f90 index 60585186b..642edcbab 100644 --- a/code/constitutive_nonlocal.f90 +++ b/code/constitutive_nonlocal.f90 @@ -1702,7 +1702,7 @@ forall (s = 1:ns, t = 1:4, rhoSgl(s,t+4) * v(s,t) < 0.0_pReal) & !**************************************************************************** !*** check CFL condition for flux -if (any(1.2_pReal * abs(v) * timestep > mesh_ipVolume(ip,el) / maxval(mesh_ipArea(:,ip,el)))) then ! safety factor 1.2 (we use the reference volume and are for simplicity here) +if (any(abs(gdot) > 0.0_pReal .and. 1.5_pReal * v * timestep > mesh_ipVolume(ip,el) / maxval(mesh_ipArea(:,ip,el)))) then ! safety factor 1.5 (we use the reference volume and are for simplicity here) #ifndef _OPENMP if (debug_verbosity > 6) then write(6,*) '<< CONST >> CFL condition not fullfilled'