Changeset 5582 for anuga_core/source/anuga/shallow_water/urs_ext.c

Timestamp:

Jul 29, 2008, 10:51:48 AM (15 years ago)

Author:

ole

Message:

Comments and more testing trying to find issues with urs2sts.

File:

• anuga_core/source/anuga/shallow_water/urs_ext.c (modified) (3 diffs)

anuga_core/source/anuga/shallow_water/urs_ext.c

@@ -125 +125 @@
 char isdata(float x)
 {
-    //char value;
     if(x < NODATA + EPSILON && NODATA < x + EPSILON)
     {
-       return 0;
+      return 0;
     }
     else
     {
-        return 1;  
+      return 1;  
     }
 }
@@ -272 +271 @@
 
         /* Compute the size of the data block for this source */
-        numData = getNumData(fros + i*(*total_number_of_stations), lros + i*(*total_number_of_stations), (*total_number_of_stations));
+        numData = getNumData(fros + i*(*total_number_of_stations), 
+                             lros + i*(*total_number_of_stations), 
+                             (*total_number_of_stations));
 
         /* Sanity check */
@@ -289 +290 @@
     }
 
+    // Store time resolution and number of timesteps    
+    // These are the same for all stations, so 
+    // we take the first one.
     *delta_t = (double)mytgs0[0].dt;
     *number_of_time_steps = mytgs0[0].nt;
 
-        free(mytgs);
+    free(mytgs);
 
     return 1;