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_Source.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_Source.F90')
| -rw-r--r-- | src/GRHydro_Source.F90 | 8 |
1 files changed, 5 insertions, 3 deletions
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. |