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

[luis at geodynamics.org]

Author: luis
Date: 2006-10-09 17:52:53 -0700 (Mon, 09 Oct 2006)
New Revision: 4766

Modified:
   mc/3D/CitcomS/trunk/lib/Output_h5.c
Log:
Forgot to delete reference to obsolete data_group.


Modified: mc/3D/CitcomS/trunk/lib/Output_h5.c
===================================================================
--- mc/3D/CitcomS/trunk/lib/Output_h5.c	2006-10-10 00:52:45 UTC (rev 4765)
+++ mc/3D/CitcomS/trunk/lib/Output_h5.c	2006-10-10 00:52:53 UTC (rev 4766)
@@ -228,7 +228,6 @@
     hid_t fcpl_id;      /* file creation property list identifier */
     hid_t fapl_id;      /* file access property list identifier */
 
-    hid_t data_group;   /* group identifier */
     hid_t surf_group;   /* group identifier for top cap surface */
     hid_t botm_group;   /* group identifier for bottom cap surface */
     hid_t avg_group;    /* group identifier for horizontal averages */
@@ -372,17 +371,20 @@
     h5create_field(file_id, scalar3d, "temperature", "temperature values on nodes");
     h5create_field(file_id, scalar3d, "viscosity", "viscosity values on nodes");
 
+    /* Create /pressure dataset */
     if (E->output.pressure == 1)
         h5create_field(file_id, scalar3d, "pressure", "pressure values on nodes");
 
+    /* Create /stress dataset */
     if (E->output.stress == 1)
         h5create_field(file_id, tensor3d, "stress", "stress values on nodes");
 
+    /* Create /connectivity dataset */
     procs_per_cap = nprocx * nprocy * nprocz;
     if (E->output.connectivity == 1)
-        h5create_connectivity(data_group, E->lmesh.nel * procs_per_cap);
+        h5create_connectivity(file_id, E->lmesh.nel * procs_per_cap);
 
-    /* Create /surf/ group */
+    /* Create /surf/ group*/
     if (E->output.surf == 1)
     {
         surf_group = h5create_group(file_id, "surf", (size_t)0);