Juan 23/10/2023:ZSOLVER/ini_dynamics.f90, add mpi_barrier to avoid some possible dead-loack at init

src/ZSOLVER/ini_dynamics.f90

@@ -316,6 +316,8 @@ USE MODI_BITREP
 !
 USE MODE_MPPDB
 !
+USE MODD_VAR_ll,         ONLY: NMNH_COMM_WORLD
+!
 IMPLICIT NONE
 !
 !*       0.1   declarations of argument
@@ -481,6 +483,7 @@ LOGICAL, DIMENSION(13):: GHORELAXSV! local array of logical
 LOGICAL, DIMENSION(12):: GHORELAXSV! local array of logical
 #endif
 !
+INTEGER :: IERR
 !-------------------------------------------------------------------------------
 !
 !*       1.    COMPUTES CORIOLIS PARAMETERS AND CURVATURE COEFFICIENTS
@@ -531,6 +534,7 @@ IF (.NOT.L1D) THEN
             A_K,B_K,C_K,D_K) !JUAN  FULL ZSOLVER
 END IF
 !
+CALL MPI_BARRIER(NMNH_COMM_WORLD,IERR)
 !
 !
 !-------------------------------------------------------------------------------