diff options
author | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2013-08-13 14:56:34 +0000 |
---|---|---|
committer | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2013-08-13 14:56:34 +0000 |
commit | 928e649381a6ff39f195ddf5ac6c825415216419 (patch) | |
tree | 946d02f0fd57d5445294cc1a55908a214b88963e /src/GRHydro_Reconstruct.F90 | |
parent | 08cbb62fe2fedf3b01c1fe5acedf3cb23b0e5034 (diff) |
GRHydro: finish up call for templated C++ PPM routine
activated by paramater use_optimized_PPM
From: Roland Haas <rhaas@tapir.caltech.edu>
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@575 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
Diffstat (limited to 'src/GRHydro_Reconstruct.F90')
-rw-r--r-- | src/GRHydro_Reconstruct.F90 | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/src/GRHydro_Reconstruct.F90 b/src/GRHydro_Reconstruct.F90 index 14a5f31..8139488 100644 --- a/src/GRHydro_Reconstruct.F90 +++ b/src/GRHydro_Reconstruct.F90 @@ -125,11 +125,15 @@ subroutine Reconstruction(CCTK_ARGUMENTS) else if (CCTK_EQUALS(recon_method,"ppm")) then - if(evolve_mhd.ne.0) then - call GRHydro_PPMMReconstruct_drv(CCTK_PASS_FTOF) - else - call GRHydro_PPMReconstruct_drv(CCTK_PASS_FTOF) - end if + if(use_optimized_ppm.eq.0) then + if(evolve_mhd.ne.0) then + call GRHydro_PPMMReconstruct_drv(CCTK_PASS_FTOF) + else + call GRHydro_PPMReconstruct_drv(CCTK_PASS_FTOF) + end if + else + call GRHydro_PPMReconstruct_drv_opt(cctkGH) + end if else if (CCTK_EQUALS(recon_method,"eno")) then ! this handles MHD and non-MHD |