From 14cbfcdd84f5a1625ab5f093fb8701d569e592cc Mon Sep 17 00:00:00 2001
From: Juan Escobar <escj@aero.obs-mip.fr>
Date: Tue, 25 Jul 2023 17:20:24 +0200
Subject: [PATCH] Juan 25/07/2023:ZSOLVER/mode_splittingz_ll.f90,for MultiGrid
2^N , first split Y axis then X axis
---
src/ZSOLVER/SURCOUCHE/mode_splittingz_ll.f90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/ZSOLVER/SURCOUCHE/mode_splittingz_ll.f90 b/src/ZSOLVER/SURCOUCHE/mode_splittingz_ll.f90
index fc5c40069..46c48da84 100644
--- a/src/ZSOLVER/SURCOUCHE/mode_splittingz_ll.f90
+++ b/src/ZSOLVER/SURCOUCHE/mode_splittingz_ll.f90
@@ -245,8 +245,8 @@ CONTAINS
!
CALL DEF_SPLITTING2(JX_DOMAINS,JY_DOMAINS,NIMAX_TMP_ll,NJMAX_TMP_ll,NPROC,LPREM)
!
- P1 = JX_DOMAINS
- IF (DIMZ .NE. 3 ) P1 = MIN(DIMZ,JX_DOMAINS)
+ P1 = JY_DOMAINS
+ IF (DIMZ .NE. 3 ) P1 = MIN(DIMZ,JY_DOMAINS)
IF (NZ_PROC .GT. 0 ) P1 = NZ_PROC
P2 = NPROC / P1
!JUAN PATCH NESTING DIFFERENT SHAPE
--
GitLab