[cig-commits] [commit] rajesh-petsc-schur: Eliminated the 2nd argument of get_rtf_at_ppts, which was set to the caps_per_proc loop variable (3f39177)
cig_noreply at geodynamics.org
cig_noreply at geodynamics.org
Thu Sep 18 13:18:38 PDT 2014
Repository : https://github.com/geodynamics/citcoms
On branch : rajesh-petsc-schur
Link : https://github.com/geodynamics/citcoms/compare/b8ceede151860da20e44adbb561266c5d0878b18...0aff4ed493594ce0d58153a5e0b72afdba61d6fd
>---------------------------------------------------------------
commit 3f39177f7e6d296874a9330f12392b0c456b8b23
Author: Rajesh Kommu <rajesh.kommu at gmail.com>
Date: Thu Sep 18 13:14:00 2014 -0700
Eliminated the 2nd argument of get_rtf_at_ppts, which was set to the caps_per_proc loop variable
>---------------------------------------------------------------
3f39177f7e6d296874a9330f12392b0c456b8b23
lib/Anisotropic_viscosity.c | 2 +-
lib/Element_calculations.c | 2 +-
lib/Size_does_matter.c | 3 +--
lib/Viscosity_structures.c | 2 +-
lib/prototypes.h | 2 +-
5 files changed, 5 insertions(+), 6 deletions(-)
diff --git a/lib/Anisotropic_viscosity.c b/lib/Anisotropic_viscosity.c
index 19e1359..89c1e5e 100644
--- a/lib/Anisotropic_viscosity.c
+++ b/lib/Anisotropic_viscosity.c
@@ -824,7 +824,7 @@ void align_director_with_ISA_for_element(struct All_variables *E,
(E->mat[CPPR][e] <= E->viscosity.anivisc_layer))||
((E->viscosity.anivisc_layer < 0)&&
(E->mat[CPPR][e] == -E->viscosity.anivisc_layer))){
- get_rtf_at_ppts(E, m, lev, e, rtf); /* pressure points */
+ get_rtf_at_ppts(E, lev, e, rtf); /* pressure points */
//if((e-1)%E->lmesh.elz==0)
construct_c3x3matrix_el(E,e,&E->element_Cc,&E->element_Ccx,lev,1);
for(i = 1; i <= ends; i++){ /* velocity at element nodes */
diff --git a/lib/Element_calculations.c b/lib/Element_calculations.c
index 37e4038..684114b 100644
--- a/lib/Element_calculations.c
+++ b/lib/Element_calculations.c
@@ -892,7 +892,7 @@ void get_elt_g(E,el,elt_del,lev)
if ((el-1)%E->lmesh.ELZ[lev]==0)
construct_c3x3matrix_el(E,el,&E->element_Cc,&E->element_Ccx,lev,1);
- get_rtf_at_ppts(E, CPPR, lev, el, rtf);
+ get_rtf_at_ppts(E, lev, el, rtf);
temp = p_point[1].weight[dims-1] * E->GDA[lev][CPPR][el].ppt[1];
diff --git a/lib/Size_does_matter.c b/lib/Size_does_matter.c
index d438216..bfc3e73 100644
--- a/lib/Size_does_matter.c
+++ b/lib/Size_does_matter.c
@@ -215,8 +215,7 @@ void get_rtf_at_vpts(struct All_variables *E, int m, int lev, int el,
}
-void get_rtf_at_ppts(struct All_variables *E, int m, int lev, int el,
- double rtf[4][9])
+void get_rtf_at_ppts(struct All_variables *E, int lev, int el, double rtf[4][9])
{
int i, k, d;
double x[4];
diff --git a/lib/Viscosity_structures.c b/lib/Viscosity_structures.c
index e2fc503..a235a84 100644
--- a/lib/Viscosity_structures.c
+++ b/lib/Viscosity_structures.c
@@ -1131,7 +1131,7 @@ void strain_rate_2_inv(E,EEDOT,SQRT)
for(e=1; e<=nel; e++) {
- get_rtf_at_ppts(E, CPPR, lev, e, rtf); /* pressure evaluation
+ get_rtf_at_ppts(E, lev, e, rtf); /* pressure evaluation
points */
velo_from_element(E, VV, e, sphere_key);
GNx = &(E->gNX[CPPR][e]);
diff --git a/lib/prototypes.h b/lib/prototypes.h
index 283b22a..f95162c 100644
--- a/lib/prototypes.h
+++ b/lib/prototypes.h
@@ -446,7 +446,7 @@ double lpolydash(int, double);
void twiddle_thumbs(struct All_variables *);
void construct_shape_function_derivatives(struct All_variables *);
void get_rtf_at_vpts(struct All_variables *, int, int, int, double [4][9]);
-void get_rtf_at_ppts(struct All_variables *, int, int, int, double [4][9]);
+void get_rtf_at_ppts(struct All_variables *, int, int, double [4][9]);
void get_side_x_cart(struct All_variables *, double [4][5], int, int);
void construct_surf_det(struct All_variables *);
void construct_bdry_det(struct All_variables *);
More information about the CIG-COMMITS
mailing list