diff options
Diffstat (limited to 'src/GRHydro_PoloidalMagFieldM.F90')
-rw-r--r-- | src/GRHydro_PoloidalMagFieldM.F90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GRHydro_PoloidalMagFieldM.F90 b/src/GRHydro_PoloidalMagFieldM.F90 index 38763ed..df74d75 100644 --- a/src/GRHydro_PoloidalMagFieldM.F90 +++ b/src/GRHydro_PoloidalMagFieldM.F90 @@ -108,7 +108,7 @@ subroutine GRHydro_PoloidalMagFieldM(CCTK_ARGUMENTS) ( rhofac*press_dz/delPcut - poloidal_n_p*rho_dz/poloidal_rho_max ) Ax_dy = -Aphi - y(i,j,k)*Aphi_dy - Ax_dz = y(i,j,k)*Aphi_dz + Ax_dz = -y(i,j,k)*Aphi_dz Ay_dx = Aphi + x(i,j,k)*Aphi_dx Ay_dz = x(i,j,k)*Aphi_dz |