Changeset 4604 for LMDZ6/trunk/libf/dyn3dmem

Timestamp:

Jul 4, 2023, 12:27:43 PM (17 months ago)

Author:

yann meurdesoif

Message:

Fix in pure openmp parallel mode, missing "IF (using_mpi)" to protect an MPI call thats must not be down in pure openMP

YM

File:

• LMDZ6/trunk/libf/dyn3dmem/mod_const_mpi.F90 (modified) (1 diff)

LMDZ6/trunk/libf/dyn3dmem/mod_const_mpi.F90

@@ -40 +40 @@
 !$OMP BARRIER
 
-    IF (type_ocean=='couple') THEN
+    IF (using_mpi) THEN
+      IF (type_ocean=='couple') THEN
 #ifdef CPP_COUPLE
 !$OMP MASTER
 #ifdef CPP_XIOS
-      CALL wxios_init("LMDZ", outcom=COMM_LMDZ, type_ocean=type_ocean)
+        CALL wxios_init("LMDZ", outcom=COMM_LMDZ, type_ocean=type_ocean)
 #else
-       CALL prism_init_comp_proto (comp_id, 'LMDZ', ierr)
-       CALL prism_get_localcomm_proto(COMM_LMDZ,ierr)
+        CALL prism_init_comp_proto (comp_id, 'LMDZ', ierr)
+        CALL prism_get_localcomm_proto(COMM_LMDZ,ierr)
 #endif
 !$OMP END MASTER
 #endif
-      MPI_REAL_LMDZ=MPI_REAL8
-    ELSE
-      CALL init_mpi
+        MPI_REAL_LMDZ=MPI_REAL8
+      ELSE
+        CALL init_mpi
+      ENDIF
     ENDIF
-
   END SUBROUTINE Init_const_mpi