Changeset 3470

Timestamp:

Mar 25, 2019, 11:32:33 AM (6 years ago)

Author:

yann meurdesoif

Message:

Clean finalize for etat0_limit creation with dynamico. Avoid dead-lock with xios_server that are waiting for an mpi_finalize.

YM

File:

• LMDZ6/trunk/libf/phylmd/create_etat0_limit_unstruct.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/create_etat0_limit_unstruct.F90

@@ -61 +61 @@
   USE ioipsl, ONLY : getin
   USE dimphy
-  USE xios
+  USE xios 
+  USE print_control_mod, ONLY: lunout
   IMPLICIT NONE
       INTEGER :: iflag_phys
-  
+      INTEGER :: ierr 
       IF (grid_type==unstructured) THEN
   
@@ -79 +80 @@
                 CALL xios_context_finalize()
                 CALL xios_finalize()
+#ifdef CPP_MPI    
+                CALL MPI_Finalize(ierr)
+#endif
+                WRITE(lunout,*)   'create_etat0_limit_unstruct, Initial state file are created, all is fine' 
+                STOP 0
               ENDIF
 !$OMP BARRIER
@@ -91 +97 @@
                 CALL xios_context_finalize()
                 CALL xios_finalize()
+#ifdef CPP_MPI
+                CALL MPI_Finalize(ierr)
+#endif
               ENDIF
 !$OMP BARRIER
-              STOP 'create_etat0_limit_unstruct, Initial state file are created, all is fine' 
+              WRITE(lunout,*)   'create_etat0_limit_unstruct, Initial state file are created, all is fine' 
+              STOP 0
           ENDIF
         ENDIF