[cig-commits] [commit] rajesh-petsc-schur: Eliminated the 2nd argument of eject_tracer, which was set to the caps_per_proc loop variable (ab344f3)

cig_noreply at geodynamics.org cig_noreply at geodynamics.org
Wed Nov 5 19:08:33 PST 2014


Repository : https://github.com/geodynamics/citcoms

On branch  : rajesh-petsc-schur
Link       : https://github.com/geodynamics/citcoms/compare/464e1b32299b15819f93efd98d969cddb84dfe51...f97ae655a50bdbd6dac1923a3471ee4dae178fbd

>---------------------------------------------------------------

commit ab344f3d2da64aa1669381625fc20259fcdfa9aa
Author: Rajesh Kommu <rajesh.kommu at gmail.com>
Date:   Wed Sep 17 15:43:07 2014 -0700

    Eliminated the 2nd argument of eject_tracer, which was set to the caps_per_proc loop variable


>---------------------------------------------------------------

ab344f3d2da64aa1669381625fc20259fcdfa9aa
 lib/Tracer_setup.c | 20 ++++----------------
 1 file changed, 4 insertions(+), 16 deletions(-)

diff --git a/lib/Tracer_setup.c b/lib/Tracer_setup.c
index f77ed13..091e53b 100644
--- a/lib/Tracer_setup.c
+++ b/lib/Tracer_setup.c
@@ -80,7 +80,7 @@ static int isum_tracers(struct All_variables *E);
 static void init_tracer_flavors(struct All_variables *E);
 static void reduce_tracer_arrays(struct All_variables *E);
 static void put_away_later(struct All_variables *E, int j, int it);
-static void eject_tracer(struct All_variables *E, int j, int it);
+static void eject_tracer(struct All_variables *E, int it);
 int read_double_vector(FILE *, int , double *);
 void cart_to_sphere(struct All_variables *,
                     double , double , double ,
@@ -592,17 +592,13 @@ static void find_tracers(struct All_variables *E)
             iprevious_element=E->trace.ielement[CPPR][it];
 
             iel=(E->trace.iget_element)(E,CPPR,iprevious_element,x,y,z,theta,phi,rad);
-            /* debug *
-            fprintf(E->trace.fpt,"BB. kk %d %d %d %d %f %f %f %f %f %f\n",kk,j,iprevious_element,iel,x,y,z,theta,phi,rad);
-            fflush(E->trace.fpt);
-            /**/
 
             E->trace.ielement[CPPR][it]=iel;
 
             if (iel == -99) {
                 /* tracer is inside other processors */
                 put_away_later(E,CPPR,it);
-                eject_tracer(E,CPPR,it);
+                eject_tracer(E,it);
                 it--;
             } else if (iel == -1) {
                 /* tracer is inside this processor,
@@ -612,7 +608,7 @@ static void find_tracers(struct All_variables *E)
                 if (E->trace.itracer_warnings) exit(10);
 
 
-                eject_tracer(E,CPPR,it);
+                eject_tracer(E,it);
                 it--;
             }
 
@@ -1591,25 +1587,21 @@ void expand_later_array(struct All_variables *E, int j)
         }
     }
 
-
     fprintf(E->trace.fpt,"Expanding physical memory of rlater to %d from %d\n",
             inewsize,E->trace.ilatersize[CPPR]);
 
     E->trace.ilatersize[CPPR]=inewsize;
-
-    return;
 }
 
 
 /***** EJECT TRACER ************************************************/
 
-static void eject_tracer(struct All_variables *E, int j, int it)
+static void eject_tracer(struct All_variables *E, int it)
 {
 
     int ilast_tracer;
     int kk;
 
-
     ilast_tracer=E->trace.ntracers[CPPR];
 
     /* put last tracer in ejected tracer position */
@@ -1622,11 +1614,7 @@ static void eject_tracer(struct All_variables *E, int j, int it)
     for (kk=0;kk<=((E->trace.number_of_extra_quantities)-1);kk++)
         E->trace.extraq[CPPR][kk][it]=E->trace.extraq[CPPR][kk][ilast_tracer];
 
-
-
     E->trace.ntracers[CPPR]--;
-
-    return;
 }
 
 



More information about the CIG-COMMITS mailing list