diff options
| author | pollney <pollney@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2002-03-10 14:19:50 +0000 |
|---|---|---|
| committer | pollney <pollney@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2002-03-10 14:19:50 +0000 |
| commit | 68ca935e2063ecfddb2c53abce7f8802c2cd0489 (patch) | |
| tree | 0a2886ee5ff5a055679543a653a611ce4144462b /src/AHFinder_dat.F | |
| parent | 889a74f6dcd4f23e141138d99ef273a09e54925f (diff) | |
Moved drift correction code to AEIDevelopment/DriftCorrect.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@286 89daf98e-ef62-4674-b946-b8ff9de2216c
Diffstat (limited to 'src/AHFinder_dat.F')
| -rw-r--r-- | src/AHFinder_dat.F | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/src/AHFinder_dat.F b/src/AHFinder_dat.F index bad36a8..4e31ed8 100644 --- a/src/AHFinder_dat.F +++ b/src/AHFinder_dat.F @@ -60,28 +60,18 @@ character*200 filestr CCTK_REAL avgx, avgy - CCTK_REAL xi_new, xi_old, xi_drift, omega_corr, omega_cum - CCTK_REAL r_new, r_old, radvel_corr - CCTK_REAL total_rotation - logical not_dc_first data ahf_ncall / 0 / data status_old / .false. / data status_old_0 / .false. / data status_old_1 / .false. / data status_old_2 / .false. / - data xi_old / -9999.0D0 / - data r_old / -9999.0D0 / - data not_dc_first / .false. / save ahf_ncall save c0,c0_0,c0_1,c0_2 save cc,cc_0,cc_1,cc_2 save cs,cs_0,cs_1,cs_2 save status_old,status_old_0,status_old_1,status_old_2 - save xi_old, omega_cum, total_rotation - save r_old - save not_dc_first ! Description of variables: ! @@ -176,12 +166,6 @@ ! avgx X-position of centroid of apparent horizon ! avgy Y-position of centroid of apparent horizon -! xi_new Angle between y-axis & centroid (radians) -! xi_old Value from previous call to AHFinder -! xi_drift How far centroid drifted since last call -! omega_corr (small?) Correction to rotation rate -! omega_cum Running value of rotation rate -! total_rotation Cumulative angular rotation (radians) ! *************** ! *** END *** |