[Commits] [svn:einsteintoolkit] GRHydro_InitData/trunk/src/ (Rev. 136)

[rhaas at tapir.caltech.edu]

User: rhaas
Date: 2012/08/09 01:11 AM

Modified:
 /trunk/src/
  GRHydro_PoloidalMagFieldM.F90

Log:
 Fix a sign error in the poloidal mag field idata
 
 From: Philipp Moesta <pmoesta at tapir.caltech.edu>

File Changes:

Directory: /trunk/src/
======================

File [modified]: GRHydro_PoloidalMagFieldM.F90
Delta lines: +1 -1
===================================================================
--- trunk/src/GRHydro_PoloidalMagFieldM.F90	2012-08-09 06:10:15 UTC (rev 135)
+++ trunk/src/GRHydro_PoloidalMagFieldM.F90	2012-08-09 06:11:31 UTC (rev 136)
@@ -108,7 +108,7 @@
               ( 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