Skip to content
Snippets Groups Projects
Commit 14cbfcdd authored by Juan Escobar's avatar Juan Escobar
Browse files

Juan 25/07/2023:ZSOLVER/mode_splittingz_ll.f90,for MultiGrid 2^N , first split Y axis then X axis

parent 90b8afd7
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/ZSOLVER/SURCOUCHE/mode_splittingz_ll.f90
+ 2
− 2
View file @ 14cbfcdd
...@@ -245,8 +245,8 @@ CONTAINS ...@@ -245,8 +245,8 @@ CONTAINS
! !
CALL DEF_SPLITTING2(JX_DOMAINS,JY_DOMAINS,NIMAX_TMP_ll,NJMAX_TMP_ll,NPROC,LPREM) CALL DEF_SPLITTING2(JX_DOMAINS,JY_DOMAINS,NIMAX_TMP_ll,NJMAX_TMP_ll,NPROC,LPREM)
! !
P1 = JX_DOMAINS P1 = JY_DOMAINS
IF (DIMZ .NE. 3 ) P1 = MIN(DIMZ,JX_DOMAINS) IF (DIMZ .NE. 3 ) P1 = MIN(DIMZ,JY_DOMAINS)
IF (NZ_PROC .GT. 0 ) P1 = NZ_PROC IF (NZ_PROC .GT. 0 ) P1 = NZ_PROC
P2 = NPROC / P1 P2 = NPROC / P1
!JUAN PATCH NESTING DIFFERENT SHAPE !JUAN PATCH NESTING DIFFERENT SHAPE
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment

Documentation | Mentions légales | CGU | Accessibilité : non conforme