diff options
Diffstat (limited to 'src/Initialisation.c')
-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 |