diff options
Diffstat (limited to 'src/GRHydro_FluxM.F90')
-rw-r--r-- | src/GRHydro_FluxM.F90 | 13 |
1 files changed, 1 insertions, 12 deletions
diff --git a/src/GRHydro_FluxM.F90 b/src/GRHydro_FluxM.F90 index 77bee7a..fadbfe6 100644 --- a/src/GRHydro_FluxM.F90 +++ b/src/GRHydro_FluxM.F90 @@ -47,21 +47,10 @@ subroutine num_x_fluxM(dens,sx,sy,sz,tau,Bx,By,Bz,& !!$ [psi^6 tau] vtilde^i +p* v^i - alp b^0 B^i/w tauf = tau*vxt + psipstar*velm - ab0*psiBx/w -!!$ [psi^6 (B^k vtilde^i - B^i vtilde^k] +!!$ [psi^6 (B^k vtilde^i - B^i vtilde^k)] bxf = 0.0 byf = psiBy * vxt - psiBx*vyt bzf = psiBz * vxt - psiBx*vzt end subroutine num_x_fluxM - - - - - - - - - - - |