diff --git a/src/ZSOLVER/SURCOUCHE/mode_splittingz_ll.f90 b/src/ZSOLVER/SURCOUCHE/mode_splittingz_ll.f90 index fc5c40069db48cc06299afa288b986b0cf1d54db..46c48da846e0c0c2b86f75822e05bab960b2f2ef 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