Changeset 3991 for LMDZ6/branches/LMDZ-tracers/libf/misc

Timestamp:

Oct 13, 2021, 4:51:21 PM (3 years ago)

Author:

dcugnet

Message:

• fixed a bug in dynetat0[_loc].F90 for old style tracers description files having more water tracers than the initial state file.
• changes (mainly cosmetic) to make dynetat0 and dynetat0_loc more similar.
• fix a bug in readTracFiles_mod for tagging tracers.

File:

• LMDZ6/branches/LMDZ-tracers/libf/misc/readTracFiles_mod.f90 (modified) (1 diff)

LMDZ6/branches/LMDZ-tracers/libf/misc/readTracFiles_mod.f90

@@ -927 +927 @@
     !=== Geographic tagging tracers descending on tracer "iname": mask, names, number
     ll = t(:)%type=='tag'    .AND. delPhase(t(:)%nam1) == iname .AND. t(:)%igen == 3
-    s%zone = PACK(strTail(t(:)%name,'_'), MASK = ll)                 !--- Tagging zones names  for isotopes category "iname"
+    s%zone = PACK(strTail(t(:)%name,'_',lFirst=.TRUE.), MASK = ll)   !--- Tagging zones names  for isotopes category "iname"
     CALL strReduce(s%zone)
     s%nzon = SIZE(s%zone)                                            !--- Tagging zones number for isotopes category "iname"