[cig-commits] r6582 - mc/3D/CitcomS/branches/compressible/lib

[tan2 at geodynamics.org]

Author: tan2
Date: 2007-04-16 15:36:30 -0700 (Mon, 16 Apr 2007)
New Revision: 6582

Modified:
   mc/3D/CitcomS/branches/compressible/lib/Instructions.c
Log:
Fixed a typo

Modified: mc/3D/CitcomS/branches/compressible/lib/Instructions.c
===================================================================
--- mc/3D/CitcomS/branches/compressible/lib/Instructions.c	2007-04-16 22:35:39 UTC (rev 6581)
+++ mc/3D/CitcomS/branches/compressible/lib/Instructions.c	2007-04-16 22:36:30 UTC (rev 6582)
@@ -475,6 +475,9 @@
   E->heating_visc[j]   = (double *) malloc((nel+1)*sizeof(double));
   E->heating_latent[j] = (double *) malloc((nel+1)*sizeof(double));
 
+  /* lump mass matrix for the energy eqn */
+  E->TMass[j] = (double *) malloc((nno+1)*sizeof(double));
+
   nxyz = max(nox*noz,nox*noy);
   nxyz = 2*max(nxyz,noz*noy);