From fe167da7256e97db209eb1b2e0ed6cf33e4fc775 Mon Sep 17 00:00:00 2001
From: Juan ESCOBAR <juan.escobar@aero.obs-mip.fr>
Date: Mon, 23 Oct 2023 11:57:31 +0200
Subject: [PATCH] Juan 23/10/2023:ZSOLVER/ini_dynamics.f90, add mpi_barrier to
avoid some possible dead-loack at init
---
src/ZSOLVER/ini_dynamics.f90 | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/src/ZSOLVER/ini_dynamics.f90 b/src/ZSOLVER/ini_dynamics.f90
index 40aa0eb77..069e41c7e 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)
!
!
!-------------------------------------------------------------------------------
--
GitLab