diff options
author | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2012-06-05 20:29:03 +0000 |
---|---|---|
committer | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2012-06-05 20:29:03 +0000 |
commit | 052db9672c237ddbf5f1e15c48bc0159d4a92c02 (patch) | |
tree | b57cb527216b95433950189cb73e4a8efd4c6bc0 | |
parent | 9186bf04c53973cf99251b967d4b08de4aa85e21 (diff) |
GRHydro: Added verbosity parameter.
Patch by Christian Reisswig.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@342 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
-rw-r--r-- | param.ccl | 7 | ||||
-rw-r--r-- | src/GRHydro_UpdateMask.F90 | 2 |
2 files changed, 9 insertions, 0 deletions
@@ -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) |