diff options
author | guzman <guzman@535fb057-194f-0410-b5a5-c63992f15602> | 2002-05-03 16:04:13 +0000 |
---|---|---|
committer | guzman <guzman@535fb057-194f-0410-b5a5-c63992f15602> | 2002-05-03 16:04:13 +0000 |
commit | c198eb23b852b1b6ae6485fe8c04812128c344b4 (patch) | |
tree | 607b8a45696dba57705b537e06de9d53336fde0f | |
parent | 45ae77576a4950a6ef2bb6167a0a9d4cffe8daff (diff) |
E2
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/RotatingDBHIVP/trunk@29 535fb057-194f-0410-b5a5-c63992f15602
-rw-r--r-- | src/RotatingDBHIVP.F | 30 | ||||
-rw-r--r-- | src/make.code.defn | 2 |
2 files changed, 26 insertions, 6 deletions
diff --git a/src/RotatingDBHIVP.F b/src/RotatingDBHIVP.F index 8582934..99b2b8b 100644 --- a/src/RotatingDBHIVP.F +++ b/src/RotatingDBHIVP.F @@ -25,9 +25,6 @@ c c @endhistory c@@*/ -c Need include file from Einstein -#include "CactusEinstein/Einstein/src/Einstein.h" - subroutine RotatingDBHIVP(CCTK_ARGUMENTS) implicit none @@ -65,9 +62,32 @@ c Need include file from Einstein integer :: nx,ny,nz integer i,j,k,it,ier,nquads,nocts,order,ntries 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 + + 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 - conformal_state = CONFORMAL_METRIC - pi = 4.0d0*atan(1.0d0) c DO NOT use integer*4 diff --git a/src/make.code.defn b/src/make.code.defn index da14e77..669ef22 100644 --- a/src/make.code.defn +++ b/src/make.code.defn @@ -2,7 +2,7 @@ # $Header$ # Source files in this directory -SRCS = RotatingDBHIVP.F Stab3d.F +SRCS = RotatingDBHIVP.F Stab3d.F ParamCheck.c # Subdirectories containing source files SUBDIRS = |