Changeset 3871

Timestamp:

Apr 9, 2021, 3:38:52 PM (4 years ago)

Author:

acozic

Message:

add the parameter "lafin" to chemhook_end routine to allow inca to know when the simulation is ending

File:

• LMDZ6/branches/LMDZ-INCA-Dyn/libf/phylmd/physiq_mod.F90 (modified) (2 diffs)

LMDZ6/branches/LMDZ-INCA-Dyn/libf/phylmd/physiq_mod.F90

@@ -4977 +4977 @@
             pphis, &
             zx_rh, &
-            aps, bps, ap, bp)
+            aps, bps, ap, bp, lafin)
 
        CALL VTe(VTinca)
@@ -5288 +5288 @@
        IF (is_omp_master) CALL xios_context_finalize
 #ifdef INCA
-       IF (is_omp_master .and. grid_type==unstructured) THEN 
-          CALL finalize_inca
-       ENDIF
+       if (type_trac == 'inca' ) then 
+          IF (is_omp_master .and. grid_type==unstructured) THEN 
+             CALL finalize_inca
+          ENDIF
+       endif
 #endif