Commit ad0328c4 authored by Matthieu Schaller's avatar Matthieu Schaller
Browse files

Added new test that verifies that the hydro scheme does not violate the MPI assumptions.

parent 1ab41df0
......@@ -117,6 +117,7 @@ tests/testFFT
tests/testInteractions
tests/testInteractions.sh
tests/testSymmetry
tests/testHydroMPIrules
tests/testMaths
tests/testRandom
tests/testRandomSpacing
......
......@@ -29,7 +29,7 @@ TESTS = testGreetings testMaths testReading.sh testKernel \
testPeriodicBC.sh testPeriodicBCPerturbed.sh testPotentialSelf \
testPotentialPair testEOS testUtilities testSelectOutput.sh \
testCbrt testCosmology testOutputList testFormat.sh \
test27cellsStars.sh test27cellsStarsPerturbed.sh
test27cellsStars.sh test27cellsStarsPerturbed.sh testHydroMPIrules
# List of test programs to compile
check_PROGRAMS = testGreetings testReading testTimeIntegration \
......@@ -41,7 +41,7 @@ check_PROGRAMS = testGreetings testReading testTimeIntegration \
testVoronoi1D testVoronoi2D testVoronoi3D testPeriodicBC \
testGravityDerivatives testPotentialSelf testPotentialPair testEOS testUtilities \
testSelectOutput testCbrt testCosmology testOutputList test27cellsStars \
test27cellsStars_subset testCooling testFeedback testHashmap
test27cellsStars_subset testCooling testFeedback testHashmap testHydroMPIrules
# Rebuild tests when SWIFT is updated.
$(check_PROGRAMS): ../src/.libs/libswiftsim.a
......@@ -134,6 +134,8 @@ testFeedback_SOURCES = testFeedback.c
testHashmap_SOURCES = testHashmap.c
testHydroMPIrules = testHydroMPIrules.c
# Files necessary for distribution
EXTRA_DIST = testReading.sh makeInput.py testActivePair.sh \
test27cells.sh test27cellsPerturbed.sh testParser.sh testPeriodicBC.sh \
......
/*******************************************************************************
* This file is part of SWIFT.
* Copyright (C) 2019 Matthieu Schaller (matthieu.schaller@durham.ac.uk).
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU Lesser General Public License as published
* by the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*
******************************************************************************/
#include "../config.h"
#include <fenv.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "swift.h"
void print_bytes(void *p, size_t len) {
printf("(");
for (size_t i = 0; i < len; ++i) {
printf("%02x", ((unsigned char *)p)[i]);
if (i % 4 == 3) printf("|");
}
printf(")\n");
}
void test(void) {
/* Start with some values for the cosmological parameters */
const float a = (float)random_uniform(0.8, 1.);
const float H = 1.f;
/* Create two random particles (don't do this at home !) */
struct part pi, pj;
for (size_t i = 0; i < sizeof(struct part) / sizeof(float); ++i) {
*(((float *)&pi) + i) = (float)random_uniform(0., 2.);
*(((float *)&pj) + i) = (float)random_uniform(0., 2.);
}
/* Make the particle smoothing length and position reasonable */
for (size_t i = 0; i < 3; ++i) pi.x[i] = random_uniform(-1., 1.);
for (size_t i = 0; i < 3; ++i) pj.x[i] = random_uniform(-1., 1.);
pi.h = 2.f;
pj.h = 2.f;
pi.id = 1ll;
pj.id = 2ll;
pi.time_bin = 1;
pj.time_bin = 1;
/* Make an xpart companion */
struct xpart xpi, xpj;
bzero(&xpi, sizeof(struct xpart));
bzero(&xpj, sizeof(struct xpart));
/* Make some copies */
struct part pi2, pj2;
memcpy(&pi2, &pi, sizeof(struct part));
memcpy(&pj2, &pj, sizeof(struct part));
int i_not_ok = memcmp(&pi, &pi2, sizeof(struct part));
int j_not_ok = memcmp(&pj, &pj2, sizeof(struct part));
if (i_not_ok) error("Particles 'pi' do not match after copy");
if (j_not_ok) error("Particles 'pj' do not match after copy");
/* Compute distance vector */
float dx[3];
dx[0] = pi.x[0] - pj.x[0];
dx[1] = pi.x[1] - pj.x[1];
dx[2] = pi.x[2] - pj.x[2];
float r2 = dx[0] * dx[0] + dx[1] * dx[1] + dx[2] * dx[2];
/* --- Test the density loop --- */
runner_iact_nonsym_density(r2, dx, pi.h, pj.h, &pi, &pj, a, H);
runner_iact_nonsym_chemistry(r2, dx, pi.h, pj.h, &pi, &pj, a, H);
/* Check whether pj has been modified */
j_not_ok = memcmp(&pj, &pj2, sizeof(struct part));
if (j_not_ok) {
printParticle_single(&pj, &xpj);
printParticle_single(&pj2, &xpj);
print_bytes(&pj, sizeof(struct part));
print_bytes(&pj2, sizeof(struct part));
error("Particles 'pj' do not match after density (byte = %d)", j_not_ok);
}
/* --- Test the gradient loop --- */
#ifdef EXTRA_HYDRO_LOOP
runner_iact_nonsym_gradient(r2, dx, pi.h, pj.h, &pi, &pj, a, H);
/* Check whether pj has been modified */
j_not_ok = memcmp((char *)&pj, (char *)&pj2, sizeof(struct part));
if (j_not_ok) {
printParticle_single(&pj, &xpj);
printParticle_single(&pj2, &xpj);
print_bytes(&pj, sizeof(struct part));
print_bytes(&pj2, sizeof(struct part));
error("Particles 'pj' do not match after gradient (byte = %d)", j_not_ok);
}
#endif
/* --- Test the force loop --- */
runner_iact_nonsym_force(r2, dx, pi.h, pj.h, &pi, &pj, a, H);
/* Check that the particles are the same */
j_not_ok = memcmp((char *)&pj, (char *)&pj2, sizeof(struct part));
if (j_not_ok) {
printParticle_single(&pj, &xpj);
printParticle_single(&pj2, &xpj);
print_bytes(&pj, sizeof(struct part));
print_bytes(&pj2, sizeof(struct part));
error("Particles 'pj' do not match after force (byte = %d)", j_not_ok);
}
}
int main(int argc, char *argv[]) {
/* Initialize CPU frequency, this also starts time. */
unsigned long long cpufreq = 0;
clocks_set_cpufreq(cpufreq);
/* Choke on FPEs */
#ifdef HAVE_FE_ENABLE_EXCEPT
feenableexcept(FE_DIVBYZERO | FE_INVALID | FE_OVERFLOW);
#endif
/* Get some randomness going */
const int seed = time(NULL);
message("Seed = %d", seed);
srand(seed);
for (int i = 0; i < 100; ++i) {
message("Random test %d/100", i);
test();
}
message("All good");
return 0;
}
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment