[cig-commits] r4762 - mc/3D/CitcomS/trunk/lib
luis at geodynamics.org
luis at geodynamics.org
Mon Oct 9 17:45:26 PDT 2006
Author: luis
Date: 2006-10-09 17:45:25 -0700 (Mon, 09 Oct 2006)
New Revision: 4762
Modified:
mc/3D/CitcomS/trunk/lib/Output_h5.c
Log:
Shortened /average/ group into /have/
Modified: mc/3D/CitcomS/trunk/lib/Output_h5.c
===================================================================
--- mc/3D/CitcomS/trunk/lib/Output_h5.c 2006-10-10 00:42:50 UTC (rev 4761)
+++ mc/3D/CitcomS/trunk/lib/Output_h5.c 2006-10-10 00:45:25 UTC (rev 4762)
@@ -404,10 +404,10 @@
status = H5Gclose(botm_group);
}
- /* Create /average group */
+ /* Create /have/ group */
if(E->output.average == 1)
{
- avg_group = h5create_group(file_id, "average", (size_t)0);
+ avg_group = h5create_group(file_id, "have", (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)");
@@ -1608,7 +1608,7 @@
{
for(k = 0; k < mz; k++)
field->data[k] = E->sx[1][3][k+1];
- dataset = H5Dopen(E->hdf5.file_id, "/average/coord");
+ dataset = H5Dopen(E->hdf5.file_id, "/have/coord");
status = h5write_field(dataset, field, 0, (px == 0 && py == 0));
status = H5Dclose(dataset);
}
@@ -1649,7 +1649,7 @@
/* temperature horizontal average */
for(k = 0; k < mz; k++)
field->data[k] = E->Have.T[k+1];
- dataset = H5Dopen(file_id, "/average/temperature");
+ dataset = H5Dopen(file_id, "/have/temperature");
status = H5Dextend(dataset, field->dims);
status = h5write_field(dataset, field, 0, (px == 0 && py == 0));
status = H5Dclose(dataset);
@@ -1657,7 +1657,7 @@
/* Vxy horizontal average (rms) */
for(k = 0; k < mz; k++)
field->data[k] = E->Have.V[1][k+1];
- dataset = H5Dopen(file_id, "/average/velocity_xy");
+ dataset = H5Dopen(file_id, "/have/velocity_xy");
status = H5Dextend(dataset, field->dims);
status = h5write_field(dataset, field, 0, (px == 0 && py == 0));
status = H5Dclose(dataset);
@@ -1665,7 +1665,7 @@
/* Vz horizontal average (rms) */
for(k = 0; k < mz; k++)
field->data[k] = E->Have.V[2][k+1];
- dataset = H5Dopen(file_id, "/average/velocity_z");
+ dataset = H5Dopen(file_id, "/have/velocity_z");
status = H5Dextend(dataset, field->dims);
status = h5write_field(dataset, field, 0, (px == 0 && py == 0));
status = H5Dclose(dataset);
More information about the cig-commits
mailing list