Changeset 5801

Timestamp:

Sep 1, 2025, 1:51:57 PM (3 months ago)

Author:

Sebastien Nguyen

Message:

field iqParent from tracers was left blankwhen it needs to take value iqParent(iq). This bug appeared in rev 5005 where key parent was used instead of field iqParent. It corrects initialization problems in dynetat0_loc and infotarc_phy.

File:

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

LMDZ6/trunk/libf/misc/readTracFiles_mod.f90

@@ -1074 +1074 @@
   DO iq = 1, nq; iGen(iq) = 0; jq = iq
     iqParent(iq) = strIdx(tnames, parent(iq))
+    tr(iq)%iqParent = iqParent(iq)
     DO; jq = strIdx(tnames, parent(jq)); IF(jq == 0) EXIT; iGen(iq) = iGen(iq) + 1; END DO
     CALL addKey('iqParent', iqParent(iq), tr(iq)%keys)
-    CALL addKey('iqGeneration', iGen(iq), tr(iq)%keys)
+    CALL addKey('iGeneration', iGen(iq), tr(iq)%keys)
     tr(iq)%iqParent = iqParent(iq)
     tr(iq)%iGeneration =  iGen(iq)