mcpl-file output simimlar to regular source output file

This commit is contained in:
Erik B Knudsen 2022-10-13 23:09:12 +02:00
parent 94fb5f8fa6
commit 81fa3b45a3
3 changed files with 16 additions and 0 deletions

View file

@ -399,6 +399,20 @@ void finalize_batch()
auto filename = settings::path_output + "source.h5";
write_source_point(filename.c_str());
}
#ifdef OPENMC_MCPL
if (contains(settings::sourcepoint_batch, simulation::current_batch) &&
settings::source_mcpl_write && settings::source_separate) {
write_mcpl_source_point(nullptr);
}
// Write a continously-overwritten source point if requested.
if (settings::source_latest && setting::source_mcpl_write) {
auto filename = settings::path_output + "source.mcpl";
write_mcpl_source_point(filename.c_str());
}
#endif
}
// Write out surface source if requested.