[cig-commits] [commit] rajesh-petsc-schur: Corrected the signature of velocities_conform_bcs (2ff7a48)

cig_noreply at geodynamics.org cig_noreply at geodynamics.org
Wed Nov 5 19:10:47 PST 2014


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

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

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

commit 2ff7a4827a74b2309095261e106f6ec0defb1ba8
Author: Rajesh Kommu <rajesh.kommu at gmail.com>
Date:   Fri Sep 19 10:06:44 2014 -0700

    Corrected the signature of velocities_conform_bcs


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

2ff7a4827a74b2309095261e106f6ec0defb1ba8
 lib/BC_util.c    | 9 ++++-----
 lib/prototypes.h | 2 +-
 2 files changed, 5 insertions(+), 6 deletions(-)

diff --git a/lib/BC_util.c b/lib/BC_util.c
index 76f43bc..0e90603 100644
--- a/lib/BC_util.c
+++ b/lib/BC_util.c
@@ -162,7 +162,7 @@ void temperatures_conform_bcs2(E)
 
 void velocities_conform_bcs(E,U)
     struct All_variables *E;
-    double **U;
+    double *U;
 {
     int node,m;
 
@@ -175,13 +175,12 @@ void velocities_conform_bcs(E,U)
       for(node=1;node<=nno;node++) {
 
         if (E->node[CPPR][node] & typex)
-	      U[CPPR][E->id[node].doff[1]] = E->sphere.cap[CPPR].VB[1][node];
+	      U[E->id[node].doff[1]] = E->sphere.cap[CPPR].VB[1][node];
  	if (E->node[CPPR][node] & typey)
-	      U[CPPR][E->id[node].doff[2]] = E->sphere.cap[CPPR].VB[2][node];
+	      U[E->id[node].doff[2]] = E->sphere.cap[CPPR].VB[2][node];
 	if (E->node[CPPR][node] & typez)
-	      U[CPPR][E->id[node].doff[3]] = E->sphere.cap[CPPR].VB[3][node];
+	      U[E->id[node].doff[3]] = E->sphere.cap[CPPR].VB[3][node];
         }
-
 }
 
 /* 
diff --git a/lib/prototypes.h b/lib/prototypes.h
index 3e22fa4..03f341c 100644
--- a/lib/prototypes.h
+++ b/lib/prototypes.h
@@ -48,7 +48,7 @@ void internal_horizontal_bc(struct All_variables *, float *[], int, int, float,
 void strip_bcs_from_residual(struct All_variables *, double *, int);
 void temperatures_conform_bcs(struct All_variables *);
 void temperatures_conform_bcs2(struct All_variables *);
-void velocities_conform_bcs(struct All_variables *, double **);
+void velocities_conform_bcs(struct All_variables *, double *);
 void assign_internal_bc(struct All_variables *);
 /* Checkpoints.c */
 void output_checkpoint(struct All_variables *);



More information about the CIG-COMMITS mailing list