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

[tan2 at geodynamics.org]

Author: tan2
Date: 2007-03-01 13:17:17 -0800 (Thu, 01 Mar 2007)
New Revision: 6148

Modified:
   mc/3D/CitcomS/trunk/lib/Full_tracer_advection.c
Log:
Fixed two errors reported by icc

Modified: mc/3D/CitcomS/trunk/lib/Full_tracer_advection.c
===================================================================
--- mc/3D/CitcomS/trunk/lib/Full_tracer_advection.c	2007-03-01 21:16:47 UTC (rev 6147)
+++ mc/3D/CitcomS/trunk/lib/Full_tracer_advection.c	2007-03-01 21:17:17 UTC (rev 6148)
@@ -1882,8 +1882,7 @@
       {
 	  ithatcap=E->parallel.PROCESSOR[lev][j].pass[kk]+1;
 	  fprintf(E->trace.fpt,"cap: %d proc %d TNUM: %d ithatcap: %d\n",
-		  ithiscap,E->parallel.me,kk,ithatcap,
-		  E->parallel.PROCESSOR[lev][j].pass[kk]);
+		  ithiscap,E->parallel.me,kk,ithatcap);
 
       }
       fflush(E->trace.fpt);
@@ -6194,7 +6193,7 @@
 /* phi and theta are within the proper degree range.                    */
 
 void keep_in_sphere(E,x,y,z,theta,phi,rad)
-     struct All_variable *E;
+     struct All_variables *E;
      double *x;
      double *y;
      double *z;