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

[Stephane Popinet]

The following commit has been merged in the upstream branch:
commit 12fdd17ef196436a18971baf7ea72b1034e3d44d
Author: Stephane Popinet <popinet at users.sf.net>
Date:   Sun Mar 15 04:23:12 2009 +1100

    Fixed dimensioning of GfsVariableCurvature
    
    darcs-hash:20090314172312-d4795-c377289b611756a654ab0e9c509b4f331e44f37e.gz

diff --git a/src/tension.c b/src/tension.c
index 5a02d3f..72e8f19 100644
--- a/src/tension.c
+++ b/src/tension.c
@@ -445,6 +445,9 @@ static void variable_curvature_read (GtsObject ** o, GtsFile * fp)
     gts_file_error (fp, "variable `%s' is neither a tracer nor a distance", fp->token->str);
     return;
   }
+  GFS_VARIABLE1 (v)->units = -1.;
+  if (v->kmax)
+    v->kmax->units = -1.;
 }
 
 static void variable_curvature_write (GtsObject * o, FILE * fp)
@@ -780,6 +783,7 @@ static void variable_position_read (GtsObject ** o, GtsFile * fp)
   GFS_VARIABLE1 (v)->description = g_strjoin (" ", fp->token->str,
 					      "coordinate of the interface defined by tracer",
 					      GFS_VARIABLE_CURVATURE (v)->f->name, NULL);
+  GFS_VARIABLE1 (v)->units = 1.;
   gts_file_next_token (fp);
   if (fp->type != '\n')
     /* fixme: mapping? */

-- 
Gerris Flow Solver