diff options
author | guzman <guzman@971fb155-194f-0410-9daf-e2eca44e59f5> | 2002-05-03 13:58:47 +0000 |
---|---|---|
committer | guzman <guzman@971fb155-194f-0410-9daf-e2eca44e59f5> | 2002-05-03 13:58:47 +0000 |
commit | ccb59b4820039858f75d1573f3cf0196be3d81a5 (patch) | |
tree | d534b80b27d8b8e5cd3248058dd8066fa0e6db79 | |
parent | a4e95e0417c4f054d9d8ee67e6426be7592600c1 (diff) |
Migrating -> Einstein 2
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/DistortedBHIVP/trunk@25 971fb155-194f-0410-9daf-e2eca44e59f5
-rw-r--r-- | src/DistortedBHIVP.F | 28 | ||||
-rw-r--r-- | src/make.code.defn | 2 |
2 files changed, 25 insertions, 5 deletions
diff --git a/src/DistortedBHIVP.F b/src/DistortedBHIVP.F index 9532815..fa96088 100644 --- a/src/DistortedBHIVP.F +++ b/src/DistortedBHIVP.F @@ -25,9 +25,6 @@ c c @endhistory c@@ */ -c Need include file from Einstein -#include "CactusEinstein/Einstein/src/Einstein.h" - subroutine DistortedBHIVP(CCTK_ARGUMENTS) implicit none @@ -60,8 +57,31 @@ c Perhaps this and others should go into cctk.h integer :: nx,ny,nz integer i,j,k,ier,nquads,nocts,order integer npoints,handle,ierror + integer make_conformal_derivs + +c Check if we should create and store conformal factor stuff + + if (CCTK_EQUALS(metric_type, "static conformal")) then + + conformal_state = 1 - conformal_state = CONFORMAL_METRIC + if(CCTK_EQUALS(conformal_storage,"factor+derivs")) then + + conformal_state = 2 + make_conformal_derivs = 1 + + else if (CCTK_EQUALS(conformal_storage,"factor+derivs+2nd derivs")) then + + conformal_state = 3 + make_conformal_derivs = 1 + + endif + + else + + make_conformal_derivs = 0 + + endif pi = 4.0d0*atan(1.0d0) diff --git a/src/make.code.defn b/src/make.code.defn index e34babf..631ee7d 100644 --- a/src/make.code.defn +++ b/src/make.code.defn @@ -2,7 +2,7 @@ # $Header$ # Source files in this directory -SRCS = DistortedBHIVP.F Stab3d.F +SRCS = DistortedBHIVP.F Stab3d.F ParamCheck.c # Subdirectories containing source files SUBDIRS = |