From 86c6c4ea802b14f714e429e856561825a67a20d8 Mon Sep 17 00:00:00 2001 From: diener Date: Wed, 14 May 2003 15:15:52 +0000 Subject: Changed the check against emask. It seems, I misunderstood what safe values are. git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/EHFinder/trunk@104 2a26948c-0e4f-0410-aee8-f1d3e353619c --- src/EHFinder_SetMask.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/EHFinder_SetMask.F90 b/src/EHFinder_SetMask.F90 index 4be4ac7..21d7fc9 100644 --- a/src/EHFinder_SetMask.F90 +++ b/src/EHFinder_SetMask.F90 @@ -430,7 +430,7 @@ subroutine EHFinder_SetMask1(CCTK_ARGUMENTS) ! numerical run generating the metric data. if ( use_mask .gt. 0 ) then - where ( emask(ixl:ixr,jyl:jyr,kzl:kzr) .lt. quarter ) + where ( emask(ixl:ixr,jyl:jyr,kzl:kzr) .lt. three*quarter ) eh_mask(ixl:ixr,jyl:jyr,kzl:kzr) = -1 f(ixl:ixr,jyl:jyr,kzl:kzr) = ex_value end where -- cgit v1.2.3