[cig-commits] commit: Grow a box in fix_moduli so that the edge moduli are generated in the
Mercurial
hg at geodynamics.org
Thu Jun 7 13:35:55 PDT 2012
changeset: 270:6ca3cacf8ef1
user: Walter Landry <wlandry at caltech.edu>
date: Thu May 03 10:43:20 2012 -0700
files: src/FACStokes/fix_moduli.C
description:
Grow a box in fix_moduli so that the edge moduli are generated in the
ghost zone in the direction in which they are not at a "node".
Also fix formatting.
diff -r 97e2c13edfe8 -r 6ca3cacf8ef1 src/FACStokes/fix_moduli.C
--- a/src/FACStokes/fix_moduli.C Thu May 03 10:41:20 2012 -0700
+++ b/src/FACStokes/fix_moduli.C Thu May 03 10:43:20 2012 -0700
@@ -69,7 +69,7 @@ void SAMRAI::FACStokes::fix_moduli()
hier::Index pp[]={ip,jp,kp};
for (int ln = 0; ln <= d_hierarchy->getFinestLevelNumber(); ++ln)
-{
+ {
tbox::Pointer<hier::PatchLevel> level = d_hierarchy->getPatchLevel(ln);
hier::PatchLevel::Iterator i_p(*level);
for ( ; i_p; i_p++)
@@ -86,21 +86,21 @@ void SAMRAI::FACStokes::fix_moduli()
for(pdat::NodeIterator ni(edge_moduli.getBox()); ni; ni++)
{
- for (int m=0;m<2;++m)
- {
- pdat::NodeIndex e=ni();
- pdat::CellIndex c(e);
- cell_moduli(c,m);
- cell_moduli(c-ip,m);
- cell_moduli(c-jp,m);
- cell_moduli(c-ip-jp,m);
- edge_moduli(e,m)=
- pow(cell_moduli(c,m)*cell_moduli(c-ip,m)
- *cell_moduli(c-jp,m)*cell_moduli(c-ip-jp,m),0.25);
- }
+ for (int m=0;m<2;++m)
+ {
+ pdat::NodeIndex e=ni();
+ pdat::CellIndex c(e);
+ cell_moduli(c,m);
+ cell_moduli(c-ip,m);
+ cell_moduli(c-jp,m);
+ cell_moduli(c-ip-jp,m);
+ edge_moduli(e,m)=
+ pow(cell_moduli(c,m)*cell_moduli(c-ip,m)
+ *cell_moduli(c-jp,m)*cell_moduli(c-ip-jp,m),0.25);
+ }
}
- }
- else
+ }
+ else
{
tbox::Pointer<pdat::EdgeData<double> >
edge_moduli_ptr = patch->getPatchData(edge_moduli_id);
@@ -108,17 +108,20 @@ void SAMRAI::FACStokes::fix_moduli()
for(int axis=0;axis<3;++axis)
{
const int axis2((axis+1)%3), axis3((axis+2)%3);
- for(pdat::EdgeIterator ni(edge_moduli.getBox(),axis); ni; ni++)
+ hier::Box pbox=patch->getBox();
+ pbox.grow(axis,edge_moduli.getGhostCellWidth()[axis]);
+
+ for(pdat::EdgeIterator ni(pbox,axis); ni; ni++)
{
pdat::EdgeIndex e=ni();
pdat::CellIndex c(e);
for (int m=0;m<2;++m)
- {
- edge_moduli(e,m)=
- pow(cell_moduli(c,m)*cell_moduli(c-pp[axis2],m)
- *cell_moduli(c-pp[axis3],m)
- *cell_moduli(c-pp[axis2]-pp[axis3],m),0.25);
- }
+ {
+ edge_moduli(e,m)=
+ pow(cell_moduli(c,m)*cell_moduli(c-pp[axis2],m)
+ *cell_moduli(c-pp[axis3],m)
+ *cell_moduli(c-pp[axis2]-pp[axis3],m),0.25);
+ }
}
}
}
More information about the CIG-COMMITS
mailing list