diff options
Diffstat (limited to 'src/GRHydro_HLLE_EOSGM.F90')
| -rw-r--r-- | src/GRHydro_HLLE_EOSGM.F90 | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/GRHydro_HLLE_EOSGM.F90 b/src/GRHydro_HLLE_EOSGM.F90 index 8fe2ef0..c89d047 100644 --- a/src/GRHydro_HLLE_EOSGM.F90 +++ b/src/GRHydro_HLLE_EOSGM.F90 @@ -438,7 +438,10 @@ subroutine GRHydro_HLLEGeneralM(CCTK_ARGUMENTS) Bvecxflux(i, j, k) = f1(6) Bvecyflux(i, j, k) = f1(7) Bveczflux(i, j, k) = f1(8) - psidcflux(i,j,k) = psidcf + if(clean_divergence.ne.0) then + psidcflux(i,j,k) = psidcf + endif + if(evolve_Y_e.ne.0) then if (densflux(i, j, k) > 0.d0) then |