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 /src/GRHydro_UpdateMask.F90 | |
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
Diffstat (limited to 'src/GRHydro_UpdateMask.F90')
-rw-r--r-- | src/GRHydro_UpdateMask.F90 | 2 |
1 files changed, 2 insertions, 0 deletions
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) |