From e121eed6101ffee1b5d4ba74ef601c8ceb0c9d61 Mon Sep 17 00:00:00 2001 From: diener Date: Thu, 22 Jan 2004 21:35:22 +0000 Subject: Get the local sizes and place them in nx, ny and nz. Now ellipsoids should work. git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/EHFinder/trunk@164 2a26948c-0e4f-0410-aee8-f1d3e353619c --- src/EHFinder_Init.F90 | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/src/EHFinder_Init.F90 b/src/EHFinder_Init.F90 index 2375492..b7f2a25 100644 --- a/src/EHFinder_Init.F90 +++ b/src/EHFinder_Init.F90 @@ -24,6 +24,11 @@ subroutine EHFinder_Init_F(CCTK_ARGUMENTS) CCTK_REAL :: theta, dtheta, thetamin, thetamax, r_el CCTK_INT, dimension(1) :: lsh, lbnd +! Get the size of the local grid. + nx = cctk_lsh(1) + ny = cctk_lsh(2) + nz = cctk_lsh(3) + ! Initialize the last_time varible. Note the parameters should be ! chosen to be consistent with the run producing the numerical data. ! F.ex. if dt was 0.1 but the data was only stored every 4 iterations, the -- cgit v1.2.3