diff options
author | rhaas <rhaas@ac85fae7-cede-4708-beff-ae01c7fa1c26> | 2012-08-09 06:11:31 +0000 |
---|---|---|
committer | rhaas <rhaas@ac85fae7-cede-4708-beff-ae01c7fa1c26> | 2012-08-09 06:11:31 +0000 |
commit | 2416dc30c2c575142a7ab8ce986d85a4439ecced (patch) | |
tree | 226fa8b7cd9631d95b6de53e65954996eae98f4f | |
parent | 3c0323ec4a6d0cceefd1a2c1dcfd45144fea1f21 (diff) |
Fix a sign error in the poloidal mag field idata
From: Philipp Moesta <pmoesta@tapir.caltech.edu>
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/GRHydro_InitData/trunk@136 ac85fae7-cede-4708-beff-ae01c7fa1c26
-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 |