Changeset 4848 for LMDZ6/trunk/libf/dyn3dmem/parallel_lmdz.F90

Timestamp:

Mar 8, 2024, 1:09:51 PM (2 months ago)

Author:

Laurent Fairhead

Message:

Modifications needed for XIOS3

File:

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

LMDZ6/trunk/libf/dyn3dmem/parallel_lmdz.F90

@@ -415 +415 @@
 
       if (type_ocean == 'couple') then
+#ifdef CPP_COUPLE
         IF (using_xios) THEN
           !Fermeture propre de XIOS
           CALL wxios_close()
+          CALL prism_terminate_proto(ierr)
+          IF (ierr .ne. PRISM_Ok) THEN
+            CALL abort_gcm('Finalize_parallel',' Probleme dans prism_terminate_proto ',1)
+          ENDIF
         ELSE
-#ifdef CPP_COUPLE
            call prism_terminate_proto(ierr)
            IF (ierr .ne. PRISM_Ok) THEN
               call abort_gcm('Finalize_parallel',' Probleme dans prism_terminate_proto ',1)
            endif
+        ENDIF
+#else
+        call abort_gcm('Finalize_parallel','type_ocean = couple but CPP_COUPLE not defined',1)
 #endif 
-        ENDIF
       else
         IF (using_xios) THEN