Changeset 5005 for LMDZ6/trunk/libf/misc

Timestamp:

Jul 2, 2024, 11:26:34 AM (3 months ago)

Author:

dcugnet

Message:

Fix for old style "traceur.def" files.

File:

• LMDZ6/trunk/libf/misc/readTracFiles_mod.f90 (modified) (1 diff)

LMDZ6/trunk/libf/misc/readTracFiles_mod.f90

@@ -268 +268 @@
       lerr = getKey('iGeneration', iGen, tracers(:)%keys)            !--- Generation number
       WHERE(iGen == 2) tracers(:)%type = 'tag'                       !--- Set type:      'tracer' or 'tag'
-      CALL addKey('type', tracers(:)%type, tracers(:)%keys)          !--- Set the type of tracer
+      DO it = 1, ntrac
+        CALL addKey('type', tracers(it)%type, tracers(it)%keys)      !--- Set the type of tracer
+      END DO
       lerr = checkTracers(tracers, fname, fname); IF(lerr) RETURN    !--- Detect orphans and check phases
       lerr = checkUnique (tracers, fname, fname); IF(lerr) RETURN    !--- Detect repeated tracers