Fixed MPI wrong-communicator error for free-boundary

hiddenSymmetries · Jul 19, 2023 · 433cc45 · 433cc45
1 parent e9d6d94
commit 433cc45
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/python/fortran_src/reinit.f90 b/python/fortran_src/reinit.f90
@@ -20,7 +20,7 @@ SUBROUTINE reinit
                            mgrid_path_old
       USE init_geometry
       USE mpi_params, ONLY: MPI_COMM_MYWORLD     
-      USE parallel_vmec_module, ONLY: FinalizeRunVmec
+      USE parallel_vmec_module, ONLY: FinalizeRunVmec, RUNVMEC_COMM_WORLD
       USE parallel_vmec_module, ONLY: FinalizeSurfaceComm
 
       IMPLICIT NONE
@@ -134,7 +134,7 @@ SUBROUTINE reinit
       IF (lfreeb) THEN
          CALL free_mgrid(iflag)
          mgrid_path_old = " "
-         CALL read_mgrid(mgrid_file,extcur,nzeta,nfp,.false.,iflag,MPI_COMM_MYWORLD)
+         CALL read_mgrid(mgrid_file,extcur,nzeta,nfp,.false.,iflag,RUNVMEC_COMM_WORLD)
       END IF
 !     PARSE NS_ARRAY
       nsin = MAX (3, nsin)