test_make_decomposition_npes Subroutine

public subroutine test_make_decomposition_npes()

Arguments

None

Calls

proc~~test_make_decomposition_npes~~CallsGraph proc~test_make_decomposition_npes test_make_decomposition_npes assert_that assert_that proc~test_make_decomposition_npes->assert_that true true proc~test_make_decomposition_npes->true

Source Code

   subroutine test_make_decomposition_npes()

      type(LatLonDecomposition) :: found, expected
     found = LatLonDecomposition([2,2], petCount=1)
      expected = LatLonDecomposition([2],[2])
      @assert_that(found == expected, is(true()))

   end subroutine test_make_decomposition_npes