Changeset 5199 for LMDZ6/trunk/libf/phylmdiso/isotopes_routines_mod.F90

Timestamp:

Sep 18, 2024, 11:22:37 PM (4 days ago)

Author:

dcugnet

Message:

The "readTracFiles_mod" module usage is restricted to "infotrac" and" infotrac_phy" routines.
The internal routines or quantities of this module are now accessible through these these two routines:

addPhase, delPhase, new2oldH2O, newHNO3, oldHNO3

File:

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

LMDZ6/trunk/libf/phylmdiso/isotopes_routines_mod.F90

@@ -16419 +16419 @@
    USE isotopes_mod,      ONLY: isoName,iso_HDO,iso_eau
    USE phyetat0_get_mod,  ONLY: phyetat0_get, phyetat0_srf
-   USE readTracFiles_mod, ONLY: new2oldH2O
-   USE strings_mod,       ONLY: strIdx, strTail, maxlen, msg, int2str
+   USE infotrac_phy,      ONLY: new2oldH2O
+   USE strings_mod,       ONLY: strIdx, strHead, strTail, maxlen, msg, int2str
 #ifdef ISOVERIF
    USE isotopes_verif_mod
@@ -16459 +16459 @@
       outiso = isoName(ixt)
       oldIso = strTail(new2oldH2O(outiso), '_')            !--- Remove "H2O_" from "H2O_<iso>[_<tag>]"
-      i = INDEX(outiso, '_', .TRUE.)
-      oldIso2 = outiso(1:i-1)//outiso(i+1:LEN_TRIM(outiso)) ! CR 2023: on ajoute cette possibilité aussi, elle correspond au cas le plus récent.
+      oldIso2= TRIM(strHead(outiso,'_'))//strTail(outiso,'_') ! CR 2023: most recent possibility
 !      write(*,*) 'tmp 16541:'
 !      write(*,*) 'outiso=',outiso