[SCM] Gerris Flow Solver branch, upstream, updated. b3aa46814a06c9cb2912790b23916ffb44f1f203

[Stephane Popinet]

The following commit has been merged in the upstream branch:
commit 46a82091b1af80a027408d24456105704ae8ba61
Author: Stephane Popinet <popinet at users.sf.net>
Date:   Thu Sep 18 11:10:31 2008 +1000

    Fix for dimensioning of SourceTension when using reduced gravity
    
    darcs-hash:20080918011031-d4795-1465b729351048eaa589caf40b26f1e5813017cf.gz

diff --git a/src/tension.c b/src/tension.c
index 6196eb9..308004f 100644
--- a/src/tension.c
+++ b/src/tension.c
@@ -271,11 +271,18 @@ static void gfs_source_tension_read (GtsObject ** o, GtsFile * fp)
     return;
   }
   gts_file_next_token (fp);
+
+  if (GFS_IS_VARIABLE_POSITION (s->k))
+    GFS_SOURCE_TENSION_GENERIC (s)->sigma *= pow (gfs_object_simulation (s)->physical_params.L, 2.);
 }
 
 static void gfs_source_tension_write (GtsObject * o, FILE * fp)
 {
+  if (GFS_IS_VARIABLE_POSITION (GFS_SOURCE_TENSION (o)->k))
+    GFS_SOURCE_TENSION_GENERIC (o)->sigma /= pow (gfs_object_simulation (o)->physical_params.L, 2.);
   (* GTS_OBJECT_CLASS (gfs_source_tension_class ())->parent_class->write) (o, fp);
+  if (GFS_IS_VARIABLE_POSITION (GFS_SOURCE_TENSION (o)->k))
+    GFS_SOURCE_TENSION_GENERIC (o)->sigma *= pow (gfs_object_simulation (o)->physical_params.L, 2.);
   fprintf (fp, " %s", GFS_SOURCE_TENSION (o)->k->name);
 }
 

-- 
Gerris Flow Solver