Changeset 4403 for LMDZ6/trunk/libf/phylmdiso/isotrac_mod.F90

Timestamp:

Jan 30, 2023, 9:27:31 PM (17 months ago)

Author:

dcugnet

Message:

• fix for isotopic tagging tracers
• modify strHead/strTail: last argument (optional) has the same convention as INDEX: if lBackward==.TRUE., search the pattern starting from the end of the string (default=.FALSE.)
• consolidate and simplify the new2oldH2O routine

File:

• LMDZ6/trunk/libf/phylmdiso/isotrac_mod.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmdiso/isotrac_mod.F90

@@ -149 +149 @@
    USE isotopes_mod, ONLY: iso_eau, ntracisoOR, initialisation_iso
    USE dimphy,       ONLY: klon, klev
-   USE  strings_mod, ONLY: int2str, strStack, strTail, strHead, fmsg
+   USE  strings_mod, ONLY: int2str, strStack, strTail, strHead, strIdx, fmsg
 
    IMPLICIT NONE
@@ -658 +658 @@
    END DO
 
-   index_zone = [(INDEX(isoZone, strTail(         isoName(ixt) ,'_')), ixt=1, ntiso)]
-   index_iso  = [(INDEX(isoName, strHead(delPhase(isoName(ixt)),'_')), ixt=1, ntiso)]
+   index_zone = [(strIdx(isoZone, strTail(isoName(ixt) ,'_',.TRUE.)), ixt=1, ntiso)]
+   index_iso  = [(strIdx(isoName, strHead(isoName(ixt) ,'_',.TRUE.)), ixt=1, ntiso)]
    itZonIso_loc = itZonIso(:,:)
 #ifdef ISOVERIF