1 files changed, 72 insertions, 0 deletions
diff --git a/src/metrics/anti_de_Sitter_Lambda.F b/src/metrics/anti_de_Sitter_Lambda.F
new file mode 100644
index 0000000..03cbcc3
--- /dev/null
+++ b/src/metrics/anti_de_Sitter_Lambda.F
@@ -0,0 +1,72 @@
+C Anti DeSitter metric spacetime with csomological constant
+C
+C Author : D. Vulcanov (Timisoara, Romania)
+C see ../../README for copyright & licensing info
+C
+C $Header$
+
+#include "cctk.h"
+#include "cctk_Parameters.h"
+
+      subroutine Exact__anti_de_Sitter_Lambda(
+     $     x, y, z, t,
+     $     gdtt, gdtx, gdty, gdtz, 
+     $     gdxx, gdyy, gdzz, gdxy, gdyz, gdzx,
+     $     gutt, gutx, guty, gutz, 
+     $     guxx, guyy, guzz, guxy, guyz, guzx,
+     $     psi, Tmunu_flag)
+
+      implicit none
+
+      DECLARE_CCTK_PARAMETERS
+
+c input arguments
+      CCTK_REAL x
+      CCTK_DECLARE(CCTK_REAL, y,)
+      CCTK_DECLARE(CCTK_REAL, z,)
+      CCTK_DECLARE(CCTK_REAL, t,)
+
+c output arguments
+      CCTK_REAL gdtt, gdtx, gdty, gdtz, 
+     $       gdxx, gdyy, gdzz, gdxy, gdyz, gdzx,
+     $       gutt, gutx, guty, gutz, 
+     $       guxx, guyy, guzz, guxy, guyz, guzx
+      CCTK_DECLARE(CCTK_REAL, psi,)
+      LOGICAL   Tmunu_flag
+
+c local variables
+      CCTK_REAL arad
+      CCTK_REAL am
+
+C This model has a cosmological constant
+      Tmunu_flag = .true.
+
+      arad = anti_de_Sitter_Lambda__scale
+
+      am=exp(2.0D0*sqrt(-arad/3.0D0)*x)   
+       
+      gdtt = -am 
+      gdtx = 0.0D0 
+      gdty = 0.0D0
+      gdtz = 0.0D0
+      gdxx = 1.0D0
+      gdyy = am
+      gdzz = am
+      gdxy = 0.0D0
+      gdyz = 0.0D0
+      gdzx = 0.0D0
+
+      gutt = -1.0D0/am
+      gutx = 0.0D0
+      guty = 0.0D0
+      gutz = 0.0D0
+      guxx = 1.0D0
+      guyy = 1.0D0/am
+      guzz = 1.0D0/am
+      guxy = 0.0D0
+      guyz = 0.0D0
+      guzx = 0.0D0
+
+
+      return
+      end