diff options
| author | diener <diener@2a26948c-0e4f-0410-aee8-f1d3e353619c> | 2003-01-15 11:08:24 +0000 |
|---|---|---|
| committer | diener <diener@2a26948c-0e4f-0410-aee8-f1d3e353619c> | 2003-01-15 11:08:24 +0000 |
| commit | 12051bb6d90c4b4c3479e3f54bf6a1ce61fa2884 (patch) | |
| tree | b331a07e1652fc82d54a601c8a8fc0e1daf7547b | |
| parent | ee2b7348c3f8dbcf4f017ca0bc7fd2d6df36c6ae (diff) | |
Added support for reading in data not saved at every timestep in the original
run.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/EHFinder/trunk@75 2a26948c-0e4f-0410-aee8-f1d3e353619c
| -rw-r--r-- | src/EHFinder_ReadData.F90 | 15 |
1 files changed, 10 insertions, 5 deletions
diff --git a/src/EHFinder_ReadData.F90 b/src/EHFinder_ReadData.F90 index fa31ac4..1076907 100644 --- a/src/EHFinder_ReadData.F90 +++ b/src/EHFinder_ReadData.F90 @@ -20,7 +20,8 @@ subroutine EHFinder_Read_Metric(CCTK_ARGUMENTS) character(len=10) :: iteration_string CCTK_INT :: i, nc, ntot, res - write(iteration_string,'(i10)') last_iteration_number - cctk_iteration + write(iteration_string,'(i10)') last_iteration_number - & + saved_iteration_every *cctk_iteration iteration_string = adjustl(iteration_string) nc = len_trim(iteration_string) @@ -59,7 +60,8 @@ subroutine EHFinder_Read_Lapse(CCTK_ARGUMENTS) character(len=10) :: iteration_string CCTK_INT :: nc, res - write(iteration_string,'(i10)') last_iteration_number - cctk_iteration + write(iteration_string,'(i10)') last_iteration_number - & + saved_iteration_every *cctk_iteration iteration_string = adjustl(iteration_string) nc = len_trim(iteration_string) @@ -86,7 +88,8 @@ subroutine EHFinder_Read_Shift(CCTK_ARGUMENTS) character(len=10) :: iteration_string CCTK_INT :: i, nc, ntot, res - write(iteration_string,'(i10)') last_iteration_number - cctk_iteration + write(iteration_string,'(i10)') last_iteration_number - & + saved_iteration_every *cctk_iteration iteration_string = adjustl(iteration_string) nc = len_trim(iteration_string) @@ -121,7 +124,8 @@ subroutine EHFinder_Read_Conformal(CCTK_ARGUMENTS) character(len=10) :: iteration_string CCTK_INT :: nc, res - write(iteration_string,'(i10)') last_iteration_number - cctk_iteration + write(iteration_string,'(i10)') last_iteration_number - & + saved_iteration_every *cctk_iteration iteration_string = adjustl(iteration_string) nc = len_trim(iteration_string) @@ -148,7 +152,8 @@ subroutine EHFinder_ReadData(CCTK_ARGUMENTS) character(len=10) :: iteration_string CCTK_INT :: i, nc, ntot, res - write(iteration_string,'(i10)') current_iteration + write(iteration_string,'(i10)') last_iteration_number - & + saved_iteration_every *cctk_iteration iteration_string = adjustl(iteration_string) nc = len_trim(iteration_string) |