Changeset 4122

Timestamp:

Apr 5, 2022, 5:52:40 PM (3 years ago)

Author:

dcugnet

Message:

Fix when no isotopic tagging tracers are used.

File:

• LMDZ6/trunk/libf/dyn3d_common/infotrac.F90 (modified) (1 diff)

LMDZ6/trunk/libf/dyn3d_common/infotrac.F90

@@ -781 +781 @@
    IF(ANY(nb_iso (:) /= nb_iso (1))) CALL abort_gcm(modname, 'Phases must have same number of isotopes', 1)
    IF(ANY(nb_tiso(:) /= nb_tiso(1))) CALL abort_gcm(modname, 'Phases must have same number of tagging tracers', 1)
-   IF(ANY(nb_zone(:) /= nb_zone(1))) CALL abort_gcm(modname, 'Isotopes must have the same number of tagging tracers', 1)
+   IF(i%nzone >= 1) THEN
+      IF(ANY(nb_zone(:) /= nb_zone(1))) CALL abort_gcm(modname, 'Isotopes must have the same number of tagging tracers', 1)
+   END IF
 
    !--- Isotopic checking routines activation flag