[Commits] [svn:einsteintoolkit] GRHydro/trunk/src/ (Rev. 348)

[rhaas at tapir.caltech.edu]

User: rhaas
Date: 2012/06/05 03:46 PM

Modified:
 /trunk/src/
  GRHydro_Con2Prim.F90

Log:
 * allow disabling check of the GRHydro_C2P_failed mask
  on coarse   reflevels via GRHydro_c2p_warn_from_level
  parameter.
 
 Patch by Christian Ott.

File Changes:

Directory: /trunk/src/
======================

File [modified]: GRHydro_Con2Prim.F90
Delta lines: +3 -0
===================================================================
--- trunk/src/GRHydro_Con2Prim.F90	2012-06-05 20:45:16 UTC (rev 347)
+++ trunk/src/GRHydro_Con2Prim.F90	2012-06-05 20:46:20 UTC (rev 348)
@@ -1984,6 +1984,9 @@
   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