aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--param.ccl7
-rw-r--r--src/GRHydro_UpdateMask.F902
2 files changed, 9 insertions, 0 deletions
diff --git a/param.ccl b/param.ccl
index 51ee2c3..5424df4 100644
--- a/param.ccl
+++ b/param.ccl
@@ -607,3 +607,10 @@ BOOLEAN sync_conserved_only "Only sync evolved conserved quantities during evolu
{
} no
+
+
+
+BOOLEAN verbose "Some debug output"
+{
+} no
+
diff --git a/src/GRHydro_UpdateMask.F90 b/src/GRHydro_UpdateMask.F90
index fbb4cda..1808df3 100644
--- a/src/GRHydro_UpdateMask.F90
+++ b/src/GRHydro_UpdateMask.F90
@@ -221,6 +221,8 @@ subroutine GRHydro_AtmosphereReset(CCTK_ARGUMENTS)
vup => vel
end if
+ if (verbose.eq.1) call CCTK_INFO("Entering AtmosphereReset.")
+
!$OMP PARALLEL DO PRIVATE(det,keytemp,i,j,k,anyerr,keyerr)
do k = 1, cctk_lsh(3)
do j = 1, cctk_lsh(2)