Changeset 5206

Timestamp:

Sep 20, 2024, 3:50:41 PM (3 months ago)

Author:

Laurent Fairhead

Message:

Corrections to properly close XIOS contexts in LMDZ (either with DYNAMICO or lonlat)
Anne Cozic

Location:

LMDZ6/trunk/libf

Files:

• dyn3dmem/parallel_lmdz.F90 (modified) (2 diffs)
• misc/wxios.F90 (modified) (1 diff)
• phylmd/physiq_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/dyn3dmem/parallel_lmdz.F90

@@ -418 +418 @@
         IF (using_xios) THEN
           !Fermeture propre de XIOS
+          ! close xios dynamic context if is defined (call LMDZDYN)   
+          IF (ok_dyn_xios) THEN
+             CALL xios_context_finalize()
+          ENDIF
           CALL wxios_close()
           CALL prism_terminate_proto(ierr)
@@ -435 +439 @@
         IF (using_xios) THEN
           !Fermeture propre de XIOS
+          IF (ok_dyn_xios) THEN
+             CALL xios_context_finalize()
+          ENDIF
           CALL wxios_close()
         ENDIF

LMDZ6/trunk/libf/misc/wxios.F90

@@ -780 +780 @@
     
     SUBROUTINE wxios_close()
-        CALL xios_context_finalize()
+!        CALL xios_context_finalize()
          CALL xios_finalize()
      END SUBROUTINE wxios_close

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -5816 +5816 @@
 #endif
 
-          IF (is_omp_master .and. grid_type==unstructured) CALL xios_context_finalize
+! close xios physiq context (call LMDZ)
+          IF (is_omp_master) CALL xios_context_finalize
        ENDIF