new test: performance test for stripes

configure.ac

@@ -61,6 +61,7 @@ AC_CONFIG_FILES([tests/test_redist_p2p_parallel_run	\
 	tests/test_handles_run				\
 	tests/test_ut_run				\
         tests/test_perf_run              		\
+        tests/test_perf_stripes_run              	\
         tests/test_sort_run              		\
         tests/test_yaxt_run              		\
 	util/serialrun],[chmod a+x "$ac_file"])

src/yaxt.f90

@@ -10,8 +10,8 @@ MODULE yaxt
   PRIVATE
 
   PUBLIC :: xt_abort, xt_idxlist, xt_idxlist_delete, xt_idxvec_new,  &
-       &    xt_xmap, xt_xmap_new, xt_xmap_delete, &
-       &    xt_redist, xt_redist_p2p_off_new, xt_redist_p2p_new, xt_redist_delete, &
+       &    xt_xmap, xt_xmap_all2all_new, xt_xmap_delete, &
+       &    xt_redist, xt_redist_p2p_off_new, xt_redist_p2p_new, xt_redist_p2p_blocks_new, xt_redist_delete, &
        &    xt_redist_s_exchange1, xt_idxstripes_new, c_loc
 
   INTEGER, PARAMETER, PUBLIC :: xt_count_kind = C_INT ! \todo this should come out of configure

tests/Makefile.am

@@ -10,6 +10,7 @@ noinst_PROGRAMS = 						\
 	test_xmap_parallel					\
 	test_ut							\
 	test_perf						\
+	test_perf_stripes					\
 	test_sort						\
 	test_yaxt
 
@@ -26,6 +27,7 @@ test_handles_SOURCES = test_handles.c tests.h
 test_ut_SOURCES = test_ut.f90
 test_ut_LDADD = $(LDADD) $(MPI_FC_LIB)
 test_perf_SOURCES = test_perf.f90
+test_perf_stripes_SOURCES = test_perf_stripes.f90
 test_sort_SOURCES = test_sort.c tests.h
 test_yaxt_SOURCES = test_yaxt.f90
 
@@ -45,6 +47,7 @@ TESTS = 							\
 	test_xmap_parallel_run					\
 	test_ut_run						\
 	test_perf_run						\
+	test_perf_stripes_run					\
 	test_sort_run						\
 	test_yaxt_run
 

tests/test_perf.f90

@@ -92,7 +92,6 @@ PROGRAM test_perf
   CALL tstart(t_template_2d)
   CALL gen_template_2d(loc_id_2d, loc_tpex_2d, template_tpex_2d)
   CALL tstop(t_template_2d)
-  !CALL ut_abort('test stop', __FILE__, __LINE__)
 
   ! transposition: loc_id_2d:data -> loc_tpex_2d:data
   CALL tstart(t_trans_2d)
@@ -330,7 +329,7 @@ CONTAINS
         ENDIF
       ENDDO
     ENDDO
-    !IF (verbose) WRITE(0,*) mype,':',context//label//' passed'
+
   END SUBROUTINE icmp_2d
 
   SUBROUTINE icmp_3d(label, f,g)
@@ -356,7 +355,7 @@ CONTAINS
         ENDDO
       ENDDO
     ENDDO
-    !IF (verbose) WRITE(0,*) mype,':',context//label//' passed'
+
   END SUBROUTINE icmp_3d
 
   SUBROUTINE init_mpi
@@ -431,8 +430,6 @@ CONTAINS
     ALLOCATE(loc_id_2d(ie,je), loc_tpex_2d(ie,je))
     ALLOCATE(id_pos(ie,je), pos3d_surf(ie,je))
 
-    !ALLOCATE(loc_id_3d(ie,je,nlev), loc_tpex_3d(ie,je,nlev))
-
     fval_2d = undef_int
     gval_2d = undef_int
     loc_id_2d = undef_int
@@ -579,10 +576,11 @@ CONTAINS
     INTEGER, INTENT(in) :: local_dst_idx(:,:,:)
     INTEGER, INTENT(out) :: ihandle
 
-    INTEGER :: src(SIZE(local_src_idx)), dst(size(local_dst_idx))
-
+    INTEGER, ALLOCATABLE :: src(:), dst(:)
     INTEGER :: src_handle, dst_handle
 
+    ALLOCATE(src(SIZE(local_src_idx)), dst(SIZE(local_dst_idx)))
+
     src = RESHAPE( local_src_idx, (/SIZE(local_src_idx)/) )
     dst = RESHAPE( local_dst_idx, (/SIZE(local_dst_idx)/) )
 

tests/test_perf_stripes_run.in

+#! @SHELL@
+set -e
+export YAXT_TEST_PERF_GRID=TEST
+@MPI_LAUNCH@ -n 1 ./test_perf_stripes
+@MPI_LAUNCH@ -n 2 ./test_perf_stripes
+@MPI_LAUNCH@ -n 3 ./test_perf_stripes
+@MPI_LAUNCH@ -n 4 ./test_perf_stripes