diff options
| author | schnetter <schnetter@d576a68a-b34a-40ae-82fc-004fa1a9d16f> | 2010-01-23 20:24:08 +0000 |
|---|---|---|
| committer | schnetter <schnetter@d576a68a-b34a-40ae-82fc-004fa1a9d16f> | 2010-01-23 20:24:08 +0000 |
| commit | 4d40c697dc8a854598dddfa92fd3d45ff7236f6d (patch) | |
| tree | e74f4bfa140e0af2f431e21ffd52949cddcefa92 | |
| parent | f4406d8869f626808e5aeb26a258727eba9b4442 (diff) | |
Remove duplicate routines (error in last commit)
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinBase/ADMBase/trunk@49 d576a68a-b34a-40ae-82fc-004fa1a9d16f
| -rw-r--r-- | src/Initialisation.c | 92 |
1 files changed, 0 insertions, 92 deletions
diff --git a/src/Initialisation.c b/src/Initialisation.c index 10fae5e..ff27584 100644 --- a/src/Initialisation.c +++ b/src/Initialisation.c @@ -347,98 +347,6 @@ void ADMBase_DtShiftZero(CCTK_ARGUMENTS) } /*@@ - @routine ADMBase_DtlapseZero - @date Sep 06 2006 - @author Erik Schnetter - @desc - Scheduled routine to initialise dtlapse to zero. - @enddesc - @calls - @calledby - @history - - @endhistory - - @@*/ -void ADMBase_DtlapseZero(CCTK_ARGUMENTS) -{ - int i; - DECLARE_CCTK_ARGUMENTS; - DECLARE_CCTK_PARAMETERS; - - for(i = 0; i < cctk_lsh[0]*cctk_lsh[1]*cctk_lsh[2]; i++) - { - dtalp[i] = 0.0; - } - - if (CCTK_ActiveTimeLevels(cctkGH, "ADMBase::dtlapse") > 1) - { - for(i = 0; i < cctk_lsh[0]*cctk_lsh[1]*cctk_lsh[2]; i++) - { - dtalp_p[i] = 0.0; - } - } - - if (CCTK_ActiveTimeLevels(cctkGH, "ADMBase::dtlapse") > 2) - { - for(i = 0; i < cctk_lsh[0]*cctk_lsh[1]*cctk_lsh[2]; i++) - { - dtalp_p_p[i] = 0.0; - } - } - -} - -/*@@ - @routine ADMBase_DtshiftZero - @date Sep 06 2006 - @author Erik Schnetter - @desc - Scheduled routine to initialise dtshift to zero. - @enddesc - @calls - @calledby - @history - - @endhistory - - @@*/ -void ADMBase_DtshiftZero(CCTK_ARGUMENTS) -{ - int i; - DECLARE_CCTK_ARGUMENTS; - DECLARE_CCTK_PARAMETERS; - - for(i = 0; i < cctk_lsh[0]*cctk_lsh[1]*cctk_lsh[2]; i++) - { - dtbetax[i] = 0.0; - dtbetay[i] = 0.0; - dtbetaz[i] = 0.0; - } - - if (CCTK_ActiveTimeLevels(cctkGH, "ADMBase::dtshift") > 1) - { - for(i = 0; i < cctk_lsh[0]*cctk_lsh[1]*cctk_lsh[2]; i++) - { - dtbetax_p[i] = 0.0; - dtbetay_p[i] = 0.0; - dtbetaz_p[i] = 0.0; - } - } - - if (CCTK_ActiveTimeLevels(cctkGH, "ADMBase::dtshift") > 2) - { - for(i = 0; i < cctk_lsh[0]*cctk_lsh[1]*cctk_lsh[2]; i++) - { - dtbetax_p_p[i] = 0.0; - dtbetay_p_p[i] = 0.0; - dtbetaz_p_p[i] = 0.0; - } - } - -} - -/*@@ @routine ADMBase_SetShiftStateOn @date Thu Apr 25 23:12:18 2002 @author Tom Goodale |