[Commits] [svn:einsteintoolkit] NullSHRExtract/trunk/src/ (Rev. 34)

[reisswig at tapir.caltech.edu]

User: reisswig
Date: 2013/11/15 07:10 PM

Modified:
 /trunk/src/
  NullSHRE_modEta.F90

Log:
 Fixed a bug in modEta.F90. There was a missing time derivative of g in
 time derivative of $L = \alpha - g_{ij} \beta^{i} s^{j}$.

File Changes:

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

File [modified]: NullSHRE_modEta.F90
Delta lines: +1 -1
===================================================================
--- trunk/src/NullSHRE_modEta.F90	2013-11-15 22:46:10 UTC (rev 33)
+++ trunk/src/NullSHRE_modEta.F90	2013-11-16 01:10:11 UTC (rev 34)
@@ -92,7 +92,7 @@
           delld(4)%d = delld(4)%d &
                      - g(i,j)%d * dbeta(i,4)%d * sa(j)%d&
                      - g(i,j)%d * beta(i)%d * dsa(j,4)%d&
-                     - beta(i)%d * sa(j)%d !*dg(i,j,4)%d 
+                     - beta(i)%d * sa(j)%d *dg(i,j,4)%d 
        end do
     end do