diff options
| author | diener <diener@2a26948c-0e4f-0410-aee8-f1d3e353619c> | 2002-07-03 11:07:13 +0000 |
|---|---|---|
| committer | diener <diener@2a26948c-0e4f-0410-aee8-f1d3e353619c> | 2002-07-03 11:07:13 +0000 |
| commit | fea5dd43a562586d6442f4fd83f356f171b6f87f (patch) | |
| tree | 0f9a4707a2e7633e50558f2bce0b05432a32ab46 /src/EHFinder_Init.F90 | |
| parent | eb93b608dab362d37a8f91345a6561d23630b5f7 (diff) | |
Added a routine to read in 3D data. Added some parameters to support
that. Scheduled the routine at CCTK_PRESTEP. This is only the first
pass of this. I Also need to schedule someting at CCTK_INITIAL to avoid
having to set some arbitrary initial data, that then gets overwritten.
I need to add some error checking as well.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/EHFinder/trunk@29 2a26948c-0e4f-0410-aee8-f1d3e353619c
Diffstat (limited to 'src/EHFinder_Init.F90')
| -rw-r--r-- | src/EHFinder_Init.F90 | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/EHFinder_Init.F90 b/src/EHFinder_Init.F90 index c2fd600..8110c39 100644 --- a/src/EHFinder_Init.F90 +++ b/src/EHFinder_Init.F90 @@ -18,6 +18,7 @@ subroutine EHFinder_Init(CCTK_ARGUMENTS) ! CCTK_INT, dimension(0:63) :: eh_check CCTK_INT :: i, j, k + current_iteration = last_iteration_number ierr = CCTK_Equals( initial_f, 'sphere' ) if (ierr .eq. 1) then f = sqrt(x**2+y**2+z**2) - initial_rad ! + & |