diff --git a/src/ZSOLVER/ini_dynamics.f90 b/src/ZSOLVER/ini_dynamics.f90
index 40aa0eb77eb2b9006ff0fba76d8f24366581a555..069e41c7e930d08b2ba55a319d61965f7c688bc8 100644
--- a/src/ZSOLVER/ini_dynamics.f90
+++ b/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)
 !
 !
 !-------------------------------------------------------------------------------