diff options
Diffstat (limited to 'src/EHFinder_Init.F90')
-rw-r--r-- | src/EHFinder_Init.F90 | 5 |
1 files changed, 5 insertions, 0 deletions
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 |