diff options
-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 |