[Dart-dev] DART/branches Revision: 12788

[dart at ucar.edu]

hendric at ucar.edu
2018-08-27 09:34:21 -0600 (Mon, 27 Aug 2018)
47

fixed target index to get the correct value.




Modified: DART/branches/rma_distrib/developer_tests/mpi_groups/simple_test.f90
===================================================================
--- DART/branches/rma_distrib/developer_tests/mpi_groups/simple_test.f90	2018-08-27 15:33:44 UTC (rev 12787)
+++ DART/branches/rma_distrib/developer_tests/mpi_groups/simple_test.f90	2018-08-27 15:34:21 UTC (rev 12788)
@@ -131,6 +131,11 @@
 call check_namelist_read(iunit, io, "simple_test_nml")
 
 !----------------------------------------------------------------------
+! create groups
+!----------------------------------------------------------------------
+call create_groups()
+
+!----------------------------------------------------------------------
 ! create data array
 !----------------------------------------------------------------------
 allocate(my_array(NX/group_size))
@@ -140,11 +145,6 @@
 end do
 
 !----------------------------------------------------------------------
-! create groups
-!----------------------------------------------------------------------
-call create_groups()
-
-!----------------------------------------------------------------------
 ! create window
 !----------------------------------------------------------------------
 call create_window()