Changeset 5571 for LMDZ6/trunk/libf/phylmd

Timestamp:

Mar 10, 2025, 4:50:44 PM (11 months ago)

Author:

acozic

Message:

remove call to finalize_inca from dynamic code, now this close is done from the physiq for regular and ico configuration

File:

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

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -5836 +5836 @@
 
 IF (CPPKEY_INCA) THEN
-          IF (type_trac == 'inca') THEN
-             IF (is_omp_master .AND. grid_type==unstructured) THEN
+          IF (ANY(type_trac == ['inca','inco'])) THEN
+             IF (is_omp_master) THEN
                 CALL finalize_inca
              ENDIF