From 8b41993aa219239d74ef7e1a08d6a580c1062b9f Mon Sep 17 00:00:00 2001
From: Juan ESCOBAR <juan.escobar@aero.obs-mip.fr>
Date: Tue, 3 Jan 2023 17:32:56 +0100
Subject: [PATCH] Juan 03/01/2023:communication.f90, Bypass MPICRAY MultiGrid
problem , mpi_cart_create( reorder=.true. => .false. , to have expected rank
number un sub-grid computation
---
src/ZSOLVER/tensorproductmultigrid_Source/communication.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/ZSOLVER/tensorproductmultigrid_Source/communication.f90 b/src/ZSOLVER/tensorproductmultigrid_Source/communication.f90
index 8ee4340ab..f69262def 100644
--- a/src/ZSOLVER/tensorproductmultigrid_Source/communication.f90
+++ b/src/ZSOLVER/tensorproductmultigrid_Source/communication.f90
@@ -269,7 +269,7 @@ contains
dim_horiz, & ! horizontal dimension
(/2**pproc,2**pproc/), & ! extent in each horizontal direction
(/.false.,.false./), & ! periodic?
- .true., & ! reorder?
+ .false., & ! reorder?
MPI_COMM_HORIZ, & ! Name of new communicator
ierr)
! calculate and display rank and corrdinates in cartesian grid
--
GitLab