aboutsummaryrefslogtreecommitdiff
path: root/src/Initialisation.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/Initialisation.c')
-rw-r--r--src/Initialisation.c92
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