Skip to content

Commit

Permalink
Add more debug output.
Browse files Browse the repository at this point in the history
  • Loading branch information
oehmke committed Oct 28, 2024
1 parent 5354c88 commit dc6364c
Showing 1 changed file with 18 additions and 0 deletions.
18 changes: 18 additions & 0 deletions src/Infrastructure/Mesh/src/Regridding/ESMCI_Interp.C
Original file line number Diff line number Diff line change
Expand Up @@ -3240,10 +3240,21 @@ void Interp::operator()(int fpair_num, IWeights &iw, bool set_dst_status, WMat &
Mesh::iterator ei=dstmesh->elem_begin(),ee=dstmesh->elem_end();
for (;ei!=ee; ei++) {
MeshObj &elem = *ei;

int tst_id=7788;
if (elem.get_id() == tst_id) {
char buff[1024];
sprintf(buff,"BOB: elem_id=%d being set to 0.0",tst_id);
ESMC_LogDefault.Write(buff, ESMC_LOGMSG_INFO);
}

double *f=elem_frac->data(elem);
*f=0.0;
}




// Go through weights calculating and setting dst frac
WMat::WeightMap::iterator wi, we;
if (use_dst_frac) {
Expand Down Expand Up @@ -3284,6 +3295,13 @@ void Interp::operator()(int fpair_num, IWeights &iw, bool set_dst_status, WMat &
// Only put it in if it's locally owned
if (!GetAttr(dst_elem).is_locally_owned()) continue;

int tst_id=7788;
if (dst_elem.get_id() == tst_id) {
char buff[1024];
sprintf(buff,"BOB: elem_id=%d being set in Interp to %f",tst_id,tot);
ESMC_LogDefault.Write(buff, ESMC_LOGMSG_INFO);
}

// Since weights with no mask should add up to 1.0
// fraction is tot
*frac=tot;
Expand Down

0 comments on commit dc6364c

Please sign in to comment.