[cig-commits] [commit] rajesh-petsc: removed commented out v_from_vector_petsc, v_from_vector_pseudo_surf_petsc, p_to_nodes_petsc (c0bff4a)
cig_noreply at geodynamics.org
cig_noreply at geodynamics.org
Wed Aug 20 15:12:27 PDT 2014
Repository : https://github.com/geodynamics/citcoms
On branch : rajesh-petsc
Link : https://github.com/geodynamics/citcoms/compare/15e05e4d8d088429e89c42427a1392f428737625...2d80412812853cfbef0efcb79851e4a2c01b1ba1
>---------------------------------------------------------------
commit c0bff4ac92b55bc1b2c25e5987b08fe814202631
Author: Rajesh Kommu <rajesh.kommu at gmail.com>
Date: Wed Aug 20 15:09:40 2014 -0700
removed commented out v_from_vector_petsc, v_from_vector_pseudo_surf_petsc, p_to_nodes_petsc
>---------------------------------------------------------------
c0bff4ac92b55bc1b2c25e5987b08fe814202631
lib/Nodal_mesh.c | 42 ------------------------------------------
1 file changed, 42 deletions(-)
diff --git a/lib/Nodal_mesh.c b/lib/Nodal_mesh.c
index 3269c3b..5e087cd 100644
--- a/lib/Nodal_mesh.c
+++ b/lib/Nodal_mesh.c
@@ -58,17 +58,7 @@ void v_from_vector(E)
return;
}
-/*
-PetscErrorCode v_from_vector_petsc(struct All_variables *E)
-{
- PetscFunctionReturn(0);
-}
-PetscErrorCode v_from_vector_pseudo_surf_petsc(struct All_variables *E)
-{
- PetscFunctionReturn(0);
-}
-*/
void assign_v_to_vector(E)
struct All_variables *E;
{
@@ -210,39 +200,7 @@ void velo_from_element_d(E,VV,m,el,sphere_key)
}
return;
}
-/*
-PetscErrorCode p_to_nodes_petsc(struct All_variables *E,
- Vec PVec, Vec PNVec, int lev )
-{
- PetscErrorCode ierr;
- PetscScalar *P[2], *PN[2]; // 2 instead of NCS(=14) to save space
- int e, element,node, j;
-
- ierr = VecGetArray(PVec, &P[1]); CHKERRQ(ierr); --P[1];
- ierr = VecGetArray(PNVec, &PN[1]); CHKERRQ(ierr); --PN[1];
- for(node = 1; node <= E->lmesh.NNO[lev]; ++node )
- PN[1][node] = 0.0;
-
- for(element = 1; element <= E->lmesh.NEL[lev]; element++)
- for(j = 1; j <= enodes[E->mesh.nsd]; j++)
- {
- node = E->IEN[lev][1][element].node[j];
- PN[1][node] += P[1][element] * E->TWW[lev][1][element].node[j];
- }
-
- (E->exchange_node_f)(E, PN, lev);
-
- for(node = 1; node <= E->lmesh.NNO[lev]; node++)
- PN[1][node] *= E->MASS[lev][1][node];
-
- ++P[1]; ierr = VecRestoreArray(PVec, &P[1]); CHKERRQ(ierr);
- ++PN[1]; ierr = VecRestoreArray(PNVec, &PN[1]); CHKERRQ(ierr);
-
- PetscFunctionReturn(0);
-
-}
-*/
void p_to_nodes(E,P,PN,lev)
struct All_variables *E;
double **P;
More information about the CIG-COMMITS
mailing list