Skip to content
Snippets Groups Projects
Commit e85ec100 authored by Thomas Jahns's avatar Thomas Jahns :cartwheel: Committed by Sergey Kosukhin
Browse files

Fix incorrect checksumming code in 2D decomposed PIO test.

parent d4c7950b
No related branches found
No related tags found
2 merge requests!34Version 2.2.0,!13Consolidation with CDI-PIO (develop)
......@@ -277,13 +277,6 @@ modelRun(struct model_config setup, MPI_Comm comm)
{
#if USE_MPI
xt_redist_s_exchange1(varDesc[varIdx].redist4gather, varslice, var);
size_t layerSize = (size_t) (chunk[0] * chunk[1]);
size_t nblk = (layerSize + nproma - 1) / nproma - 1;
for (size_t k = 0; k < varLevs; ++k)
{
blk_displ[k] = (int) (k * (nblk + 1) * nproma);
blk_lens[k] = (int) layerSize;
}
#else
size_t layerSize = (size_t) (chunk[0] * chunk[1]);
size_t nblk = (layerSize + nproma - 1) / nproma - 1;
......@@ -305,6 +298,13 @@ modelRun(struct model_config setup, MPI_Comm comm)
}
#ifdef USE_MPI
size_t layerSize = (size_t) (chunk[0] * chunk[1]);
size_t nblk = (layerSize + nproma - 1) / nproma - 1;
for (size_t k = 0; k < varLevs; ++k)
{
blk_displ[k] = (int) (k * (nblk + 1) * nproma);
blk_lens[k] = (int) layerSize;
}
streamWriteScatteredVarPart(streamID, varDesc[varIdx].id, varslice, (int) varLevs, blk_lens, blk_displ, nmiss,
varDesc[varIdx].partDesc);
#else
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment