Changeset 5771

Timestamp:

Jul 10, 2025, 5:59:00 PM (32 hours ago)

Author:

dcugnet

Message:

• fix: implicit iqParent was badly defined and explicit iqParent was not defined
• removs nCmx=48 (added to test a routine but left by mistake in the code)

Location:

LMDZ6/trunk/libf/misc

Files:

• readTracFiles_mod.f90 (modified) (1 diff)
• strings_mod.f90 (modified) (1 diff)

LMDZ6/trunk/libf/misc/readTracFiles_mod.f90

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

LMDZ6/trunk/libf/misc/strings_mod.f90

@@ -1234 +1234 @@
   ncol = SIZE(c1, DIM=2)
   IF(ncol /= SIZE(c,2)) n = tableCellsWidth(c1)+2*nm                 !--- UPDATE "n(:)" IF "c" HAS BEEN STACKED
-
-  nCmx = 48
 
   !=== HIGH WIDTH TABLE: CUT IT INTO SUB-TABLES, WITH THE FIRST "nHead" COLUMNS REPEATED IN EACH OF THEM