From 052db9672c237ddbf5f1e15c48bc0159d4a92c02 Mon Sep 17 00:00:00 2001
From: rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45>
Date: Tue, 5 Jun 2012 20:29:03 +0000
Subject: 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
---
 src/GRHydro_UpdateMask.F90 | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/GRHydro_UpdateMask.F90')

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)
-- 
cgit v1.2.3