diff options
| -rw-r--r-- | src/ADMConstraints.F | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/ADMConstraints.F b/src/ADMConstraints.F index 5ebc07c..edcb597 100644 --- a/src/ADMConstraints.F +++ b/src/ADMConstraints.F @@ -136,9 +136,9 @@ c = (T_00 - 2 beta^i T_{i0} + beta^i beta^j T_{ij})/alpha^2 & +(betax(i,j,k)*betay(i,j,k)*Txy & + betax(i,j,k)*betaz(i,j,k)*Txz & + betay(i,j,k)*betaz(i,j,k)*Tyz)*2.0D0 - & -(betax(i,j,k)**2*Ttx - & + betay(i,j,k)**2*Tty - & + betaz(i,j,k)**2*Ttz)*2.0D0) + & -(betax(i,j,k)*Ttx + & + betay(i,j,k)*Tty + & + betaz(i,j,k)*Ttz)*2.0D0) end if |