From 658e7648d888ae72d7b52a297e3bc11b3bcf6c55 Mon Sep 17 00:00:00 2001
From: knarf <knarf@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45>
Date: Fri, 26 Nov 2010 20:02:43 +0000
Subject: merge branch hot_and_MHD_temp_dev into branch at revision r185

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@186 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
---
 src/GRHydro_Source.F90 | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'src/GRHydro_Source.F90')

diff --git a/src/GRHydro_Source.F90 b/src/GRHydro_Source.F90
index e8c00ec..9f994e6 100644
--- a/src/GRHydro_Source.F90
+++ b/src/GRHydro_Source.F90
@@ -97,10 +97,12 @@ subroutine SourceTerms(CCTK_ARGUMENTS)
   taurhs = 0.d0
 
   if (evolve_tracer .ne. 0) then
-
-    cons_tracerrhs = 0.d0
-
+    cons_tracerrhs = 0.0d0
   end if
+
+  if (evolve_Y_e .ne. 0) then
+     y_e_con_rhs = 0.0d0
+  endif
   
 !!$  Set up the array for checking the order. We switch to second order
 !!$  differencing at boundaries and near excision regions.
-- 
cgit v1.2.3