Changeset 4874

Timestamp:

Mar 26, 2024, 11:01:06 AM (6 weeks ago)

Author:

acozic

Message:

finalize_inca need to be call before finalize_lmdz (as it's done in leapfrog_loc)

File:

• LMDZ6/trunk/libf/phylmd/physiq_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -5810 +5810 @@
 
        IF (using_xios) THEN
-         IF (is_omp_master .and. grid_type==unstructured) CALL xios_context_finalize
 
 #ifdef INCA
-         if (type_trac == 'inca') then 
-            IF (is_omp_master .and. grid_type==unstructured) THEN 
-               CALL finalize_inca
-            ENDIF
-         endif
+          IF (type_trac == 'inca') THEN 
+             IF (is_omp_master .AND. grid_type==unstructured) THEN 
+                CALL finalize_inca
+             ENDIF
+          ENDIF
 #endif
-       ENDIF 
+
+          IF (is_omp_master .and. grid_type==unstructured) CALL xios_context_finalize
+       ENDIF
+
        WRITE(lunout,*) ' physiq fin, nombre de steps ou cvpas = 1 : ', Ncvpaseq1
+       
     ENDIF