Changeset 5225 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem

Timestamp:

Sep 25, 2024, 12:37:42 AM (15 months ago)

Author:

abarral

Message:

Merge r5206 r5207

Location:

LMDZ6/branches/Amaury_dev

Files:

• . (modified) (1 prop)
• libf/dyn3dmem/parallel_lmdz.F90 (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/parallel_lmdz.F90

@@ -382 +382 @@
     USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
     USE lmdz_paramet
+    USE control_mod, only : ok_dyn_xios
 
 
@@ -411 +412 @@
         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)
@@ -425 +430 @@
       CALL abort_gcm('Finalize_parallel', 'type_ocean = couple but CPP_COUPLE not defined', 1)
 #endif 
-    else
+
+    ELSE
       IF (using_xios) THEN
         !Fermeture propre de XIOS
+        IF (ok_dyn_xios) THEN
+          CALL xios_context_finalize()
+        END IF
+
         CALL wxios_close()
-      ENDIF
+      END IF
       IF (using_mpi) CALL MPI_FINALIZE(ierr)
-    end if
+    END IF
 
   END SUBROUTINE  Finalize_parallel