diff options
-rw-r--r-- | src/GRHydro_CalcBcom.F90 | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/GRHydro_CalcBcom.F90 b/src/GRHydro_CalcBcom.F90 index fc46eea..234343d 100644 --- a/src/GRHydro_CalcBcom.F90 +++ b/src/GRHydro_CalcBcom.F90 @@ -40,6 +40,11 @@ call CCTK_WARN(0,"No storage for GRHydro::bcom") end if +! Only compute if Tmunu is not computed! (Bcom is also computed with Tmunu) + if (stress_energy_state .ne. 0) then + return + endif + !$OMP PARALLEL DO PRIVATE(i,j,k,velxlow, velylow, velzlow,& !$OMP Bvecxlow,Bvecylow,Bveczlow, bdotv,dum1,dum2,b2,bxlow,bylow,bzlow) |