From 2416dc30c2c575142a7ab8ce986d85a4439ecced Mon Sep 17 00:00:00 2001 From: rhaas Date: Thu, 9 Aug 2012 06:11:31 +0000 Subject: Fix a sign error in the poloidal mag field idata From: Philipp Moesta git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/GRHydro_InitData/trunk@136 ac85fae7-cede-4708-beff-ae01c7fa1c26 --- src/GRHydro_PoloidalMagFieldM.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- cgit v1.2.3