diff options
| author | bmundim <bmundim@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2010-05-02 20:59:32 +0000 |
|---|---|---|
| committer | bmundim <bmundim@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2010-05-02 20:59:32 +0000 |
| commit | 74fb1e6ea34d6e03a35ff6c158f455c39904bf5a (patch) | |
| tree | d8f9b95f30517e9bafd8c67301c7383bc8beb76e /src/Utils.F90 | |
| parent | 291e94d06b30046227fb075cbfa97b9656339d5a (diff) | |
file/parameter string replacement from whisky to GRHydro
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@112 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
Diffstat (limited to 'src/Utils.F90')
| -rw-r--r-- | src/Utils.F90 | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/src/Utils.F90 b/src/Utils.F90 index 446b39d..440c945 100644 --- a/src/Utils.F90 +++ b/src/Utils.F90 @@ -13,7 +13,7 @@ #include "cctk_Arguments.h" /*@@ - @routine Whisky_RefinementLevel + @routine GRHydro_RefinementLevel @date July 2005 @author @desc @@ -26,14 +26,14 @@ @endhistory @@*/ -subroutine Whisky_RefinementLevel(CCTK_ARGUMENTS) +subroutine GRHydro_RefinementLevel(CCTK_ARGUMENTS) implicit none DECLARE_CCTK_ARGUMENTS - whisky_reflevel = aint(log10(dble(cctk_levfac(1)))/log10(2.0d0)) + GRHydro_reflevel = aint(log10(dble(cctk_levfac(1)))/log10(2.0d0)) -end subroutine Whisky_RefinementLevel +end subroutine GRHydro_RefinementLevel /*@@ @@ -146,11 +146,11 @@ subroutine SetMetricTemps(CCTK_ARGUMENTS) call SpatialDeterminant(& gxx(i,j,k),gxy(i,j,k),gxz(i,j,k),& gyy(i,j,k),gyz(i,j,k),gzz(i,j,k),& - Whisky_det(i,j,k)) + GRHydro_det(i,j,k)) call UpperMetric(& - Whisky_uxx(i,j,k),Whisky_uxy(i,j,k),Whisky_uxz(i,j,k),& - Whisky_uyy(i,j,k),Whisky_uyz(i,j,k),Whisky_uzz(i,j,k),& - Whisky_det(i,j,k),& + GRHydro_uxx(i,j,k),GRHydro_uxy(i,j,k),GRHydro_uxz(i,j,k),& + GRHydro_uyy(i,j,k),GRHydro_uyz(i,j,k),GRHydro_uzz(i,j,k),& + GRHydro_det(i,j,k),& gxx(i,j,k),gxy(i,j,k),gxz(i,j,k),& gyy(i,j,k),gyz(i,j,k),gzz(i,j,k)) else @@ -158,11 +158,11 @@ subroutine SetMetricTemps(CCTK_ARGUMENTS) call SpatialDeterminant(& psi4pt*gxx(i,j,k),psi4pt*gxy(i,j,k),psi4pt*gxz(i,j,k),& psi4pt*gyy(i,j,k),psi4pt*gyz(i,j,k),psi4pt*gzz(i,j,k),& - Whisky_det(i,j,k)) + GRHydro_det(i,j,k)) call UpperMetric(& - Whisky_uxx(i,j,k),Whisky_uxy(i,j,k),Whisky_uxz(i,j,k),& - Whisky_uyy(i,j,k),Whisky_uyz(i,j,k),Whisky_uzz(i,j,k),& - Whisky_det(i,j,k),& + GRHydro_uxx(i,j,k),GRHydro_uxy(i,j,k),GRHydro_uxz(i,j,k),& + GRHydro_uyy(i,j,k),GRHydro_uyz(i,j,k),GRHydro_uzz(i,j,k),& + GRHydro_det(i,j,k),& psi4pt*gxx(i,j,k),psi4pt*gxy(i,j,k),psi4pt*gxz(i,j,k),& psi4pt*gyy(i,j,k),psi4pt*gyz(i,j,k),psi4pt*gzz(i,j,k)) end if |