[SCM] Gerris Flow Solver branch, upstream, updated. b3aa46814a06c9cb2912790b23916ffb44f1f203
Stephane Popinet
popinet at users.sf.net
Fri May 15 02:54:02 UTC 2009
The following commit has been merged in the upstream branch:
commit cdceea432ed9be22f73c8a23d53efcfa66e6fede
Author: Stephane Popinet <popinet at users.sf.net>
Date: Sat Dec 2 17:33:35 2006 +1100
UNDO: Init events are also realised at half timesteps
darcs-hash:20061202063335-d4795-81b09f57cc34c1d3af37ceea2f3153b55f2bc1d6.gz
diff --git a/src/event.c b/src/event.c
index 82781ac..861d41e 100644
--- a/src/event.c
+++ b/src/event.c
@@ -550,22 +550,17 @@ static void init_vf (FttCell * cell, VarFunc * vf)
GFS_VARIABLE (cell, vf->v->i) = gfs_function_value (vf->f, cell);
}
-static void gfs_init_event_half (GfsEvent * event, GfsSimulation * sim)
-{
- GSList * i = GFS_INIT (event)->f;
-
- while (i) {
- gfs_domain_cell_traverse (GFS_DOMAIN (sim), FTT_PRE_ORDER, FTT_TRAVERSE_LEAFS, -1,
- (FttCellTraverseFunc) init_vf, i->data);
- i = i->next;
- }
-}
-
static gboolean gfs_init_event (GfsEvent * event, GfsSimulation * sim)
{
if ((* GFS_EVENT_CLASS (GTS_OBJECT_CLASS (gfs_init_class ())->parent_class)->event)
(event, sim)) {
- gfs_init_event_half (event, sim);
+ GSList * i = GFS_INIT (event)->f;
+
+ while (i) {
+ gfs_domain_cell_traverse (GFS_DOMAIN (sim), FTT_PRE_ORDER, FTT_TRAVERSE_LEAFS, -1,
+ (FttCellTraverseFunc) init_vf, i->data);
+ i = i->next;
+ }
return TRUE;
}
return FALSE;
@@ -574,7 +569,6 @@ static gboolean gfs_init_event (GfsEvent * event, GfsSimulation * sim)
static void gfs_init_class_init (GfsGenericInitClass * klass)
{
GFS_EVENT_CLASS (klass)->event = gfs_init_event;
- GFS_EVENT_CLASS (klass)->event_half = gfs_init_event_half;
GTS_OBJECT_CLASS (klass)->read = gfs_init_read;
GTS_OBJECT_CLASS (klass)->write = gfs_init_write;
GTS_OBJECT_CLASS (klass)->destroy = gfs_init_destroy;
--
Gerris Flow Solver
More information about the debian-science-commits
mailing list