diff options
| author | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2014-04-15 19:49:43 +0000 |
|---|---|---|
| committer | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2014-04-15 19:49:43 +0000 |
| commit | fc460e7b5a6ae0a3040dc8f16aba4a843b82b822 (patch) | |
| tree | 5189a84ceb1cc40979acd2c1c524a6f7bc314f26 | |
| parent | 6b9f544af7155bea1c3943ee665bbb602c43fba0 (diff) | |
GRHydro: ignore transport_constraints unless evolve_mhd is set
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@630 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
| -rw-r--r-- | src/GRHydro_CalcUpdate.F90 | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/GRHydro_CalcUpdate.F90 b/src/GRHydro_CalcUpdate.F90 index e365a36..dc59641 100644 --- a/src/GRHydro_CalcUpdate.F90 +++ b/src/GRHydro_CalcUpdate.F90 @@ -242,7 +242,7 @@ subroutine UpdateCalculation(CCTK_ARGUMENTS) else if (CCTK_EQUALS(method_type, "Flux split FD")) then - if (transport_constraints .ne. 0) then + if (evolve_mhd.ne.0 .and. transport_constraints .ne. 0) then call CCTK_WARN(0, "Not supported") end if @@ -296,7 +296,8 @@ subroutine UpdateCalculation(CCTK_ARGUMENTS) end if - if (transport_constraints.ne.0 .and. flux_direction.eq.1) then ! HACK: x direction is last + if (evolve_mhd.ne.0 .and. transport_constraints.ne.0 .and. & + flux_direction.eq.1) then ! HACK: x direction is last ! FIXME: I think one could wrap all of this into a single do loop and remove the ! Evec storage !$OMP PARALLEL DO PRIVATE(i,j,k) |