From 1c7d675209ebc0ab8dbfdee000e5f6cad0a7254e Mon Sep 17 00:00:00 2001
From: rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45>
Date: Tue, 5 Jun 2012 20:46:20 +0000
Subject: * allow disabling check of the GRHydro_C2P_failed mask  on coarse  
 reflevels via GRHydro_c2p_warn_from_level  parameter.

Patch by Christian Ott.



git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@348 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
---
 src/GRHydro_Con2Prim.F90 | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src')

diff --git a/src/GRHydro_Con2Prim.F90 b/src/GRHydro_Con2Prim.F90
index 6519d2f..f61eea7 100644
--- a/src/GRHydro_Con2Prim.F90
+++ b/src/GRHydro_Con2Prim.F90
@@ -1984,6 +1984,9 @@ subroutine check_GRHydro_C2P_failed(CCTK_ARGUMENTS)
   ny = cctk_lsh(2)
   nz = cctk_lsh(3)
 
+  ! do not check if told not to
+  if(GRHydro_reflevel .lt. GRHydro_c2p_warn_from_reflevel) return
+
   !$OMP PARALLEL DO PRIVATE(i,j,k)
   do k = 1, nz 
     do j = 1, ny 
-- 
cgit v1.2.3