diff options
| author | knarf <knarf@b1d164ef-f17a-46e7-89d4-021c7118ef4e> | 2013-11-26 17:13:26 +0000 |
|---|---|---|
| committer | knarf <knarf@b1d164ef-f17a-46e7-89d4-021c7118ef4e> | 2013-11-26 17:13:26 +0000 |
| commit | f8a381abe621a87803ffb1c438683f6957cf6c76 (patch) | |
| tree | 48c655852e7d3e8241ccff9d01c73d184f1f8051 /src/macro/DXZDG_guts.h | |
| parent | 672b64b5c786096a4ae124c5fc1e6d7ea1bb0c19 (diff) | |
remove support for StaticConformalsvn
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinBase/ADMMacros/trunk@119 b1d164ef-f17a-46e7-89d4-021c7118ef4e
Diffstat (limited to 'src/macro/DXZDG_guts.h')
| -rw-r--r-- | src/macro/DXZDG_guts.h | 14 |
1 files changed, 4 insertions, 10 deletions
diff --git a/src/macro/DXZDG_guts.h b/src/macro/DXZDG_guts.h index 029aa82..3562a61 100644 --- a/src/macro/DXZDG_guts.h +++ b/src/macro/DXZDG_guts.h @@ -24,13 +24,8 @@ #include "ADM_Derivative.h" - /* Factor involving 2nd derivative of conformal factor */ - IF (conformal_state .eq. 0) THEN - DXZDG_FAC = 0 - ELSE - DXZDG_FAC = DXDG_PSI4*(4*DXZDG_DXZDPSI_O_PSI \ - + 12*DXDG_DXDPSI_O_PSI*DZDG_DZDPSI_O_PSI) - ENDIF + /* Factor involving 2nd derivative of conformal factor, nowadays zero */ + DXZDG_FAC = 0 /* Now calculate the second deriatives */ if (local_spatial_order.eq.2) then @@ -77,9 +72,8 @@ #ifdef CCODE - /* Factor involving 2nd derivative of conformal factor */ - DXZDG_FAC = ((*conformal_state == 0)?0: - DXDG_PSI4*(4*DXZDG_DXZDPSI_O_PSI + 12*DXDG_DXDPSI_O_PSI*DZDG_DZDPSI_O_PSI)); + /* Factor involving 2nd derivative of conformal factor, nowadays zero */ + DXZDG_FAC = 0; /* Now calculate the second deriatives */ DXZDG_DXZDGXX = DZDCG_DZDCGXX*DXDG_FAC+DXDCG_DXDCGXX*DZDG_FAC+DXZDG_FAC*DXDG_GXX+ |