summaryrefslogtreecommitdiff
path: root/src/main/CactusDefaultEvolve.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/main/CactusDefaultEvolve.c')
-rw-r--r--src/main/CactusDefaultEvolve.c83
1 files changed, 0 insertions, 83 deletions
diff --git a/src/main/CactusDefaultEvolve.c b/src/main/CactusDefaultEvolve.c
index ca30db2f..72bbeaa3 100644
--- a/src/main/CactusDefaultEvolve.c
+++ b/src/main/CactusDefaultEvolve.c
@@ -35,8 +35,6 @@ CCTK_FILEVERSION(main_CactusDefaultEvolve_c);
/* Define some macros for convenience. */
-#define TERMINATION_RAISED_BRDCAST 4
-
#define ForallConvLevels(iteration, conv_level) \
{ \
int factor = 1; \
@@ -51,17 +49,6 @@ CCTK_FILEVERSION(main_CactusDefaultEvolve_c);
} \
}
-int cactus_terminate;
-
-
-/********************************************************************
- ********************* Local Data *****************************
- ********************************************************************/
-
-#if 0
-static int cactus_terminate_global = 0;
-#endif
-
/********************************************************************
********************* Local Routine Prototypes *********************
********************************************************************/
@@ -112,11 +99,6 @@ int CactusDefaultEvolve (tFleshConfig *config)
int var;
unsigned int convergence_level, iteration;
-
-#if 0
- CactusStartTimer (config->timer[OUTPUT]);
-#endif
-
/*** Call OUTPUT for this GH (this routine ***/
/*** checks if output is necessary) and makes ***/
/*** a Traverse with CCTK_ANALYSIS ***/
@@ -128,11 +110,6 @@ int CactusDefaultEvolve (tFleshConfig *config)
}
EndForallConvLevels;
-#if 0
- CactusStopTimer (config->timer[OUTPUT]);
- CactusStartTimer (config->timer[EVOLUTION]);
-#endif
-
while (! DoneMainLoop (config->GH[0], config->GH[0]->cctk_time, iteration))
{
if (iteration == 0)
@@ -170,10 +147,6 @@ int CactusDefaultEvolve (tFleshConfig *config)
}
EndForallConvLevels;
- /* Output perhaps */
-#if 0
- CactusStartTimer (config->timer[OUTPUT]);
-#endif
/*** Call OUTPUT for this GH (this routine ***/
/*** checks if output is necessary) and makes ***/
/*** an Traverse with CCTK_ANALYSIS ***/
@@ -184,27 +157,8 @@ int CactusDefaultEvolve (tFleshConfig *config)
}
EndForallConvLevels;
-#if 0
- CactusStopTimer (config->timer[OUTPUT]);
-#endif
-
-#if 0
- ConvergenceReport (config->GH, iteration);
- TerminationStepper (config->GH[0]);
-#endif
-
- /* Termination has been raised and broadcasted, exit loop*/
- if (cactus_terminate == TERMINATION_RAISED_BRDCAST)
- {
- break;
- }
-
} /*** END OF MAIN ITERATION LOOP ***/
-#if 0
- CactusStopTimer (config->timer[EVOLUTION]);
-#endif
-
return (0);
}
@@ -352,40 +306,3 @@ static void StepGH (cGH *GH)
CCTK_Traverse (GH, "CCTK_POSTSTEP");
}
-
-#if 0
- /*@@
- @routine TerminationStepper
- @date Fri Aug 14 13:07:11 1998
- @author Gerd Lanfermann
- @desc
- catctus_terminate is a global variable with these values:
- TERMINATION_NOT_RAISED : not signaled yet (cactus_initial.c)
- TERMINATION_RAISED_LOCAL : signaled on one PE, not reduced
- (MPI_LOR) to all PEs yet (main.c)
- TERMINATION_RAISED_BRDCAST: reduced -> can now be used to
- terminate (chkpnt_terminate.c)
- by the scheduler
- the raised termiantion signal is caught on 1 PE only and has to
- be recduced on all PEs before a termination sequenced can be
- launched (I like that)
- @enddesc
- @calls CCTK_Traverse
-@@*/
-static void TerminationStepper (cGH *GH)
-{
- cactus_terminate_global = cactus_terminate;
-
-#ifdef CCTK_MPI
- MPI_Allreduce (&cactus_terminate, &cactus_terminate_global, 1, MPI_INT,
- MPI_LOR, MPI_COMM_WORLD);
-#endif
- if (cactus_terminate_global)
- {
- cactus_terminate = TERMINATION_RAISED_BRDCAST;
- printf ("RECEIVED GLOBAL TERMINATION SIGNAL\n");
- }
-
- CCTK_Traverse (GH, "CCTK_TERMINATE");
-}
-#endif