Changeset 4333 for LMDZ6/trunk/libf/misc/readTracFiles_mod.f90

Timestamp:

Nov 9, 2022, 7:13:53 PM (2 years ago)

Author:

dcugnet

Message:

Bug correction for generation computation.

File:

• LMDZ6/trunk/libf/misc/readTracFiles_mod.f90 (modified) (3 diffs)

LMDZ6/trunk/libf/misc/readTracFiles_mod.f90

@@ -591 +591 @@
     jq = iq; ig = 0
     DO WHILE(parent(jq) /= tran0)
-      jq = strIdx(tr(:)%name, parent(iq))
+      jq = strIdx(tr(:)%name, parent(jq))
       IF(test(fmsg('Orphan tracer "'//TRIM(tr(iq)%name)//'"', modname, jq == 0), lerr)) RETURN
       ig = ig + 1
@@ -1019 +1019 @@
     CALL addKey_1('nqDescen',          int2str(tr(iq)%nqDescen) , tr(iq)%keys)
   END DO
-print*,'coin9'
 END SUBROUTINE indexUpdate
 !==============================================================================================================================
@@ -1327 +1326 @@
   DO itr = 1, SIZE(ky)
     CALL addKey_1(key, val, ky(itr), lOverWrite)
-  PRINT*,'COINCOINCOIN '//TRIM(key)//', '//TRIM(val)//', '//TRIM(ky(itr)%name)
-  END DO
-  print*,'COINCOINCOINCOIN'
+  END DO
 END SUBROUTINE addKey_m
 !==============================================================================================================================