diff options
author | knarf <knarf@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2010-11-26 20:02:43 +0000 |
---|---|---|
committer | knarf <knarf@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2010-11-26 20:02:43 +0000 |
commit | 658e7648d888ae72d7b52a297e3bc11b3bcf6c55 (patch) | |
tree | 771cb80df886e9e58b386dabf1b05cdf36464686 /src/GRHydro_SourceM.F90 | |
parent | 9326e8cbc58743e70ef79f914950ea997af66b93 (diff) |
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
Diffstat (limited to 'src/GRHydro_SourceM.F90')
-rw-r--r-- | src/GRHydro_SourceM.F90 | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/src/GRHydro_SourceM.F90 b/src/GRHydro_SourceM.F90 index 2e9b0e9..15c7aa0 100644 --- a/src/GRHydro_SourceM.F90 +++ b/src/GRHydro_SourceM.F90 @@ -105,15 +105,17 @@ subroutine SourceTermsM(CCTK_ARGUMENTS) taurhs = 0.d0 if (evolve_tracer .ne. 0) then - cons_tracerrhs = 0.d0 - end if + + if (evolve_Y_e .ne. 0) then + Y_e_con_rhs = 0.0d0 + endif if (clean_divergence .ne. 0) then - Bvecrhs=0.d0 - psidcrhs=0.d0 - endif + Bvecrhs=0.d0 + psidcrhs=0.d0 + endif !!$ Set up the array for checking the order. We switch to second order |