[cig-commits] r4996 - mc/3D/CitcomS/trunk/lib

[luis at geodynamics.org]

Author: luis
Date: 2006-10-13 16:59:48 -0700 (Fri, 13 Oct 2006)
New Revision: 4996

Modified:
   mc/3D/CitcomS/trunk/lib/Output_h5.c
Log:
Settled on /horiz_avg/ instead of /have/


Modified: mc/3D/CitcomS/trunk/lib/Output_h5.c
===================================================================
--- mc/3D/CitcomS/trunk/lib/Output_h5.c	2006-10-13 23:46:36 UTC (rev 4995)
+++ mc/3D/CitcomS/trunk/lib/Output_h5.c	2006-10-13 23:59:48 UTC (rev 4996)
@@ -410,10 +410,10 @@
         status = H5Gclose(botm_group);
     }
 
-    /* Create /have/ group */
+    /* Create /horiz_avg/ group */
     if(E->output.average == 1)
     {
-        avg_group = h5create_group(file_id, "have", (size_t)0);
+        avg_group = h5create_group(file_id, "horiz_avg", (size_t)0);
         h5create_field(avg_group, const_scalar1d, "coord", "radial coordinates of horizontal planes");
         h5create_field(avg_group, scalar1d, "temperature", "horizontal temperature average");
         h5create_field(avg_group, scalar1d, "velocity_xy", "horizontal Vxy average (rms)");
@@ -1520,7 +1520,7 @@
     {
         for(k = 0; k < mz; k++)
             field->data[k] = E->sx[1][3][k+1];
-        dataset = H5Dopen(E->hdf5.file_id, "/have/coord");
+        dataset = H5Dopen(E->hdf5.file_id, "/horiz_avg/coord");
         status = h5write_field(dataset, field, 0, (px == 0 && py == 0));
         status = H5Dclose(dataset);
     }
@@ -1561,7 +1561,7 @@
     /* temperature horizontal average */
     for(k = 0; k < mz; k++)
         field->data[k] = E->Have.T[k+1];
-    dataset = H5Dopen(file_id, "/have/temperature");
+    dataset = H5Dopen(file_id, "/horiz_avg/temperature");
     status = H5Dextend(dataset, field->dims);
     status = h5write_field(dataset, field, 0, (px == 0 && py == 0));
     status = H5Dclose(dataset);
@@ -1569,7 +1569,7 @@
     /* Vxy horizontal average (rms) */
     for(k = 0; k < mz; k++)
         field->data[k] = E->Have.V[1][k+1];
-    dataset = H5Dopen(file_id, "/have/velocity_xy");
+    dataset = H5Dopen(file_id, "/horiz_avg/velocity_xy");
     status = H5Dextend(dataset, field->dims);
     status = h5write_field(dataset, field, 0, (px == 0 && py == 0));
     status = H5Dclose(dataset);
@@ -1577,7 +1577,7 @@
     /* Vz horizontal average (rms) */
     for(k = 0; k < mz; k++)
         field->data[k] = E->Have.V[2][k+1];
-    dataset = H5Dopen(file_id, "/have/velocity_z");
+    dataset = H5Dopen(file_id, "/horiz_avg/velocity_z");
     status = H5Dextend(dataset, field->dims);
     status = h5write_field(dataset, field, 0, (px == 0 && py == 0));
     status = H5Dclose(dataset);