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

[luis at geodynamics.org]

Author: luis
Date: 2006-08-23 16:24:21 -0700 (Wed, 23 Aug 2006)
New Revision: 4408

Modified:
   mc/3D/CitcomS/trunk/lib/Output_h5.c
Log:
Fixed silly typos.


Modified: mc/3D/CitcomS/trunk/lib/Output_h5.c
===================================================================
--- mc/3D/CitcomS/trunk/lib/Output_h5.c	2006-08-23 23:19:23 UTC (rev 4407)
+++ mc/3D/CitcomS/trunk/lib/Output_h5.c	2006-08-23 23:24:21 UTC (rev 4408)
@@ -302,7 +302,7 @@
             h5create_surf_velocity(botm_group, E->hdf5.vector2d);
             h5create_surf_heatflux(botm_group, E->hdf5.scalar2d);
             h5create_surf_topography(botm_group, E->hdf5.scalar2d);
-            status = H5Gclose(avg_group);
+            status = H5Gclose(botm_group);
         }
 
         /********************************************************************
@@ -310,7 +310,7 @@
          ********************************************************************/
         if(E->output.average == 1)
         {
-            avg_group = h5create_group(avg_group, "average", (size_t)0);
+            avg_group = h5create_group(cap_group, "average", (size_t)0);
             h5create_have_temperature(avg_group, E->hdf5.scalar1d);
             h5create_have_vxy_rms(avg_group, E->hdf5.scalar1d);
             h5create_have_vz_rms(avg_group, E->hdf5.scalar1d);