diff options
| author | diener <diener@2a26948c-0e4f-0410-aee8-f1d3e353619c> | 2003-05-26 07:48:15 +0000 |
|---|---|---|
| committer | diener <diener@2a26948c-0e4f-0410-aee8-f1d3e353619c> | 2003-05-26 07:48:15 +0000 |
| commit | a454628dc04978583a1189f51b62493418b9f48b (patch) | |
| tree | 1466c2073d017910ac0fe5ca4c53ab0439c3d877 /src/EHFinder_Init.F90 | |
| parent | 5e661dafe7f659025d3417df36ba702ab183e825 (diff) | |
Changed to use the newest version of MoL. Used its support for evolving
grid arrays to introduce tracking of the generators of the horizon along
with the horizon itself. Still needs some work on setting up the initial
generators (now it only does one) but first it needs to be tested.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/EHFinder/trunk@108 2a26948c-0e4f-0410-aee8-f1d3e353619c
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 cf700f3..ebb7cb7 100644 --- a/src/EHFinder_Init.F90 +++ b/src/EHFinder_Init.F90 @@ -41,6 +41,11 @@ subroutine EHFinder_Init_F(CCTK_ARGUMENTS) f = sqrt( ( x - translate_x )**2 + & ( y - translate_y )**2 + & ( z - translate_z )**2 ) - initial_rad + if ( evolve_generators .gt. 0 ) then + xg(1) = initial_rad + translate_x + yg(1) = translate_y + zg(1) = translate_z + end if end if ! If an ellipsoid is requested... |