diff options
author | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2012-06-05 20:46:20 +0000 |
---|---|---|
committer | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2012-06-05 20:46:20 +0000 |
commit | 1c7d675209ebc0ab8dbfdee000e5f6cad0a7254e (patch) | |
tree | fa26eaee4ec0dbc72b2e467190237503725d87cc /src | |
parent | 5d4b0680e22ad34a358830d16f6484b510948dec (diff) |
* 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
Diffstat (limited to 'src')
-rw-r--r-- | src/GRHydro_Con2Prim.F90 | 3 |
1 files changed, 3 insertions, 0 deletions
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 |