write_vec_and_scalar.C

Go to the documentation of this file.

// Basic include files
#include "libmesh/distributed_mesh.h"
#include "libmesh/equation_systems.h"
#include "libmesh/exodusII_io.h"
#include "libmesh/explicit_system.h"
#include "libmesh/mesh_generation.h"
#include "libmesh/nemesis_io.h"
#include "libmesh/node.h"
#include "libmesh/numeric_vector.h"
#include "libmesh/replicated_mesh.h"
#include "libmesh/string_to_enum.h"
 
#include "test_comm.h"
#include "libmesh_cppunit.h"
 
 
// Bring in everything from the libMesh namespace
using namespace libMesh;
 
class WriteVecAndScalar : public CppUnit::TestCase
{
public:
  LIBMESH_CPPUNIT_TEST_SUITE(WriteVecAndScalar);
 
#if LIBMESH_DIM > 1
#if defined(LIBMESH_HAVE_EXODUS_API) && defined(LIBMESH_HAVE_NEMESIS_API)
  CPPUNIT_TEST(testWriteExodusDistributed);
  CPPUNIT_TEST(testWriteExodusReplicated);
  CPPUNIT_TEST(testWriteNemesisDistributed);
  CPPUNIT_TEST(testWriteNemesisReplicated);
#endif
#endif
 
  CPPUNIT_TEST_SUITE_END();
 
  void setupTests(UnstructuredMesh & mesh, EquationSystems & equation_systems)
  {
    // We set our initial conditions based on build_square node ids
    mesh.allow_renumbering(false);
 
    MeshTools::Generation::build_square(mesh,
                                        1, 1,
                                        -1., 1.,
                                        -1., 1.,
                                        Utility::string_to_enum<ElemType>("TRI6"));
 
    ExplicitSystem & system = equation_systems.add_system<ExplicitSystem>("Tester");
    system.add_variable("u", FIRST, NEDELEC_ONE);
    system.add_variable("v", FIRST, LAGRANGE);
 
    // Initialize the system
    equation_systems.init();
 
    // Mimic the initial conditions of u(i)=2*i in the serial case,
    // but indexed by node id rather than dof id.
    std::vector<Real> initial_vector({10, 0, 12, 8, 4, 2, 16, 6, 14});
 
    NumericVector<Number> & sys_solution = *(system.solution);
    for (const auto & node : mesh.node_ptr_range())
      {
        dof_id_type dof_id;
        if (node->n_comp(0,0))
          {
            dof_id = node->dof_number(0,0,0);
          }
        else
          {
            CPPUNIT_ASSERT(node->n_comp(0,1));
            dof_id = node->dof_number(0,1,0);
          }
        if (dof_id >= sys_solution.first_local_index() &&
            dof_id < sys_solution.last_local_index())
          sys_solution.set(dof_id, initial_vector[node->id()]);
        if (mesh.n_processors() == 1)
          CPPUNIT_ASSERT_EQUAL(initial_vector[node->id()], dof_id*Real(2));
      }
    sys_solution.close();
  }
 
 
  void testSolution (const MeshBase & read_mesh, const System & sys2)
  {
    // VariableGroup optimization means that DoFs iterate over each of
    // the 3 variables on each node before proceeding to the next
    // node.
    //                                     u_x, u_y, v
    const std::vector<Real> gold_vector = {-1,  3,   10,
                                           0,   1,   12,
                                           2,   0,   14,
                                           0,   1.5, 11,
                                           0.5, 1,   13,
                                           0.5, 1.5, 12,
                                           3,   4,   16,
                                           3,   1.5, 15,
                                           0.5, 4,   13};
 
    // Translation from a node's position on the generating 3x3 grid
    // to dof indexing order as gets done in serial.  We look nodes up
    // by position (rather than by id) because Nemesis reassigns node
    // ids on read based on partition ownership, so a read-back node's
    // id need not match the id it had when the file was written.
    const std::vector<dof_id_type>
      node_reordering({0, 3, 1, 8, 5, 4, 6, 7, 2});
 
    Real tol = 1e-12;
    NumericVector<Number> & sys2_soln(*sys2.solution);
    for (const auto & node : read_mesh.node_ptr_range())
      {
        if (node->processor_id() != read_mesh.processor_id())
          continue;
 
        // We write out real, imaginary, and magnitude for complex
        // numbers
#ifdef LIBMESH_USE_COMPLEX_NUMBERS
        const unsigned int v2 = 3;
#else
        const unsigned int v2 = 1;
#endif
        CPPUNIT_ASSERT_EQUAL(node->n_vars(0), 3*v2);
 
        // The mesh is the 3x3 grid of nodes generated by
        // build_square(-1,1,-1,1), so each coordinate is one of
        // {-1,0,1}; map that directly to a 0-based grid index.
        const auto grid_index =
          cast_int<dof_id_type>(std::lround((*node)(0)) + 1 +
                                3*(std::lround((*node)(1)) + 1));
 
        CPPUNIT_ASSERT_LESS(node_reordering.size(), std::size_t(grid_index));
        const dof_id_type gold_i_ux = node_reordering[grid_index] * 3;
        const dof_id_type gold_i_uy = gold_i_ux + 1;
        const dof_id_type gold_i_v  = gold_i_uy + 1;
        CPPUNIT_ASSERT_LESS(gold_vector.size(), std::size_t(gold_i_v));
 
        LIBMESH_ASSERT_NUMBERS_EQUAL(sys2_soln(node->dof_number(0,0,0)),
                                    gold_vector[gold_i_ux], tol);
        LIBMESH_ASSERT_NUMBERS_EQUAL(sys2_soln(node->dof_number(0,v2,0)),
                                    gold_vector[gold_i_uy], tol);
        LIBMESH_ASSERT_NUMBERS_EQUAL(sys2_soln(node->dof_number(0,2*v2,0)),
                                    gold_vector[gold_i_v], tol);
 
        // Let's check imaginary parts and magnitude for good measure
#ifdef LIBMESH_USE_COMPLEX_NUMBERS
        LIBMESH_ASSERT_NUMBERS_EQUAL(sys2_soln(node->dof_number(0,1,0)),
                                    0.0, tol);
        LIBMESH_ASSERT_NUMBERS_EQUAL(sys2_soln(node->dof_number(0,2,0)),
                                    std::abs(gold_vector[gold_i_ux]), tol);
        LIBMESH_ASSERT_NUMBERS_EQUAL(sys2_soln(node->dof_number(0,4,0)),
                                    0.0, tol);
        LIBMESH_ASSERT_NUMBERS_EQUAL(sys2_soln(node->dof_number(0,5,0)),
                                    std::abs(gold_vector[gold_i_uy]), tol);
        LIBMESH_ASSERT_NUMBERS_EQUAL(sys2_soln(node->dof_number(0,7,0)),
                                    0.0, tol);
        LIBMESH_ASSERT_NUMBERS_EQUAL(sys2_soln(node->dof_number(0,8,0)),
                                    std::abs(gold_vector[gold_i_v]), tol);
#endif
      }
  }
 
 
#ifdef LIBMESH_HAVE_EXODUS_API
  template <typename MeshType>
  void testWriteExodus(const std::string & filename)
  {
    MeshType mesh(*TestCommWorld);
    EquationSystems equation_systems(mesh);
 
    setupTests(mesh, equation_systems);
 
    // Make sure any previous reads are done before the writing starts
    TestCommWorld->barrier();
 
    // We write the file in the ExodusII format.
    ExodusII_IO(mesh).write_equation_systems(filename, equation_systems);
 
    // Make sure that the writing is done before the reading starts.
    TestCommWorld->barrier();
 
    // Now read it back in
    MeshType read_mesh(*TestCommWorld);
    read_mesh.allow_renumbering(false);
    ExodusII_IO exio(read_mesh);
    exio.read(filename);
 
    read_mesh.prepare_for_use();
    EquationSystems es2(read_mesh);
    ExplicitSystem & sys2 = es2.add_system<ExplicitSystem>("Test");
 
    const std::vector<std::string> & nodal_vars(exio.get_nodal_var_names());
 
    for (const auto & var_name : nodal_vars)
      sys2.add_variable(var_name, SECOND, LAGRANGE);
 
    es2.init();
 
    for (const auto & var_name : nodal_vars)
      exio.copy_nodal_solution(sys2, var_name, var_name, 1);
 
    testSolution(read_mesh, sys2);
  }
 
  void testWriteExodusReplicated() { LOG_UNIT_TEST; testWriteExodus<ReplicatedMesh>("rep.e"); }
  void testWriteExodusDistributed() { LOG_UNIT_TEST; testWriteExodus<DistributedMesh>("dist.e"); }
#endif // #ifdef LIBMESH_HAVE_EXODUS_API
 
 
#ifdef LIBMESH_HAVE_NEMESIS_API
  template <typename MeshType>
  void testWriteNemesis(const std::string & filename)
  {
    MeshType mesh(*TestCommWorld);
    EquationSystems equation_systems(mesh);
 
    setupTests(mesh, equation_systems);
 
    // Make sure any previous reads are done before the writing starts
    TestCommWorld->barrier();
 
    // We write the file in the Nemesis format.
    Nemesis_IO(mesh).write_equation_systems(filename, equation_systems);
 
    // Make sure that the writing is done before the reading starts.
    TestCommWorld->barrier();
 
    // Now read it back in
    MeshType read_mesh(*TestCommWorld);
    read_mesh.allow_renumbering(false);
    Nemesis_IO nemio(read_mesh);
    nemio.read(filename);
 
    read_mesh.prepare_for_use();
    EquationSystems es2(read_mesh);
    ExplicitSystem & sys2 = es2.add_system<ExplicitSystem>("Test");
 
    const std::vector<std::string> & nodal_vars(nemio.get_nodal_var_names());
 
    for (const auto & var_name : nodal_vars)
      sys2.add_variable(var_name, SECOND, LAGRANGE);
 
    es2.init();
 
    for (const auto & var_name : nodal_vars)
      nemio.copy_nodal_solution(sys2, var_name, var_name, 1);
 
    testSolution(read_mesh, sys2);
  }
 
  void testWriteNemesisReplicated() { LOG_UNIT_TEST; testWriteNemesis<ReplicatedMesh>("rep.nem"); }
  void testWriteNemesisDistributed() { LOG_UNIT_TEST; testWriteNemesis<DistributedMesh>("dist.nem"); }
#endif // #ifdef LIBMESH_HAVE_NEMESIS_API
 
};
 
CPPUNIT_TEST_SUITE_REGISTRATION(WriteVecAndScalar);