mpisubdivision.hpp

/*
 * mpisubdivision.hpp
 *
 * Created on: 27 Sep 2012
 * Author: Holger Schmitz
 * Email: holger@notjustphysics.com
 *
 * Copyright 2012 Holger Schmitz
 *
 * This file is part of Schnek.
 *
 * Schnek is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * Schnek 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 General Public License
 * along with Schnek.  If not, see <http://www.gnu.org/licenses/>.
 *
 */

#ifndef SCHNEK_MPISUBDIVISION_HPP
#define SCHNEK_MPISUBDIVISION_HPP

#include "domainsubdivision.hpp"
#include "../config.hpp"

#ifdef SCHNEK_HAVE_MPI

#include <mpi.h>

namespace schnek {

template<class GridType>
class MPICartSubdivision : public DomainSubdivision<GridType>
{
  public:
    typedef typename DomainSubdivision<GridType>::LimitType LimitType;
    typedef typename GridType::value_type value_type;
    typedef typename DomainSubdivision<GridType>::DomainType DomainType;
    typedef typename DomainSubdivision<GridType>::BoundaryType BoundaryType;
    typedef typename DomainSubdivision<GridType>::BufferType BufferType;

    enum {Rank = GridType::Rank};
  protected:
    int ComSize;

    int ComRank;

    MPI_Comm comm;

    LimitType prevcoord; 
    LimitType nextcoord; 

    int dims[Rank];
    int mycoord[Rank];

    int exchSize[Rank];

    value_type *sendarr[Rank]; 
    value_type *recvarr[Rank]; 

    int scalarSize;

    DomainType globalDomain;
  public:
    using DomainSubdivision<GridType>::init;
    using DomainSubdivision<GridType>::exchange;
    MPICartSubdivision();

    ~MPICartSubdivision();

    void init(const LimitType &low, const LimitType &high, int delta) override;

    const DomainType &getGlobalDomain() const override { return globalDomain; }

    void exchange(GridType &field, size_t dim) override;

    void accumulate(GridType &grid, size_t dim) override;

    void exchangeData(size_t dim, int orientation, BufferType &in, BufferType &out) override;

    double avgReduce(double val) const override;

    int avgReduce(int val) const override;

    double maxReduce(double val) const override;

    int maxReduce(int val) const override;

    double minReduce(double val) const override;

    int minReduce(int val) const override;

    double sumReduce(double val) const override;

    int sumReduce(int val) const override;

    bool master() const override { return ComRank==0; }

    int procnum() const override { return ComRank; }

    int procCount() const override { return ComSize; }

    int getUniqueId() const override;

    bool isBoundLo(size_t dim) override { return mycoord[dim]==0; }

    bool isBoundHi(size_t dim) override { return mycoord[dim]==dims[dim]-1; }
};

template<typename value_type>
struct MpiValueType
{
    static const MPI_Datatype value;
};

} // namespace schnek


#include "mpisubdivision.t"

#endif // HAVE_MPI

#endif // SCHNEK_MPISUBDIVISION_HPP