diff options
author | bmundim <bmundim@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2010-09-29 21:47:21 +0000 |
---|---|---|
committer | bmundim <bmundim@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2010-09-29 21:47:21 +0000 |
commit | d95f7bc4e19ff9d991e17417b63318ea63d18491 (patch) | |
tree | 66e5076c45f9755c76392ce7b9e1151cbca39c80 /src/GRHydro_Macros.h | |
parent | 2a6108bcba664c662dde90c1893d87a6f5e7211d (diff) |
Current RIT GRMHD code contributions:
Add the magnetized counterparts for several GRHydro routines.
Adjust interface.ccl, param.ccl and schedule.ccl appropriately.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@158 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
Diffstat (limited to 'src/GRHydro_Macros.h')
-rw-r--r-- | src/GRHydro_Macros.h | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/src/GRHydro_Macros.h b/src/GRHydro_Macros.h index c3cdd69..7009b86 100644 --- a/src/GRHydro_Macros.h +++ b/src/GRHydro_Macros.h @@ -1,3 +1,12 @@ -#define SPATIAL_DETERMINANT(gxx,gxy,gxz,gyy,gyz,gzz) \ - (-(gxz)**2*(gyy) + 2*(gxy)*(gxz)*(gyz) - (gxx)*(gyz)**2 - (gxy)**2*(gzz) \ - + (gxx)*(gyy)*(gzz)) +#define SPATIAL_DETERMINANT(gxx_,gxy_,gxz_,gyy_,gyz_,gzz_) \ + (-(gxz_)**2*(gyy_) + 2*(gxy_)*(gxz_)*(gyz_) - (gxx_)*(gyz_)**2 - (gxy_)**2*(gzz_) \ + + (gxx_)*(gyy_)*(gzz_)) + +#define DOTP(gxx_,gxy_,gxz_,gyy_,gyz_,gzz_,x1_,y1_,z1_,x2_,y2_,z2_) \ + ( (gxx_)*(x1_)*(x2_)+(gyy_)*(y1_)*(y2_)+(gzz_)*(z1_)*(z2_)+ \ + (gxy_)*( (x1_)*(y2_)+(y1_)*(x2_) )+(gxz_)*( (x1_)*(z2_)+(z1_)*(x2_) )+\ + (gyz_)*( (y1_)*(z2_)+(z1_)*(y2_) ) ) + +#define DOTP2(gxx_,gxy_,gxz_,gyy_,gyz_,gzz_,x_,y_,z_) \ + ( (gxx_)*(x_)**2+(gyy_)*(y_)**2+(gzz_)*(z_)**2+ \ + 2.0*( (gxy_)*(x_)*(y_)+(gxz_)*(x_)*(z_)+(gyz_)*(y_)*(z_) ) ) |