decomp_dummy.f90 Source File

module m_decomp
  !! Dummy implementation of the decomposition to be linked against when 2decomp&fft isn't available.
  use m_logger, only: abort_run

  implicit none

contains

  function is_avail_2decomp() result(avail)
    logical :: avail

    avail = .false.
  end function

  subroutine decomposition_2decomp(grid, par)
    use m_mesh_content, only: par_t, grid_t
    class(grid_t), intent(inout) :: grid
    class(par_t), intent(inout) :: par

    call abort_run("This build doesn't support 2decomp decomposition", &
                   collective=.true.)
  end subroutine decomposition_2decomp

end module