# Copyright 2013-2020 Lawrence Livermore National Security, LLC and other
# Spack Project Developers. See the top-level COPYRIGHT file for details.
#
# SPDX-License-Identifier: (Apache-2.0 OR MIT)


from spack import *
import os


class PpopenMathMp(MakefilePackage):
    """
    ppOpen-Math/MP ia a coupling library that enables weak coupling on various
    simulation models, such as an atmospheric model and an ocean model,
    a seismic model and a structure model. For getting very wide applicability,
    ppOpen-Math/MP is designed so as that it is independent from grid
    structure.  Instead of grid structure, PpohMATHMP requires a data set
    called 'mapping table'. Mapping table is composed of a correspondence
    table of grid indexes between a send model and a receive model and
    interpolation coefficients. A subroutine for making a mapping table
    file is provided by ppOpen-Math/MP API.

    Current version of ppOpen-Math/MP is ver.1.0 which targets scalar
    data exchange.  An exchange code of vector data which requires rotation
    calculation is under development and will be released the next version.
    """

    homepage = "http://ppopenhpc.cc.u-tokyo.ac.jp/ppopenhpc/"
    url = "file://{0}/ppohMATHMP_1.0.0.tar.gz".format(os.getcwd())

    version('1.0.0', sha256='eb85a181286e4e7d071bd7c106fa547d38cfd16df87753e9d4e38da1a84a8f22')

    depends_on('mpi')

    build_directory = 'src'
    build_targets = ['FC_XXX=spack']
    parallel = False

    def edit(self, spec, prefix):
        flags = ['-I.']
        if spec.satisfies('%gcc'):
            flags.append('-ffree-line-length-none')
        with open('src/Makefile', 'a') as makefile:
            makefile.write('FC_spack = {0}\n'.format(spec['mpi'].mpifc))
            makefile.write('FFLAGS_spack = {0}\n'.format(' '.join(flags)))
            makefile.write('AR_spack = ar cr\n')

    def install(self, spec, prefix):
        for d in ['include', 'lib', 'doc', 'test']:
            mkdir(join_path(prefix, d))
            copy_tree(d, join_path(prefix, d))