Changeset 5791 for LMDZ6/branches/contrails/libf/phylmdiso/isotopes_routines_mod.F90

Timestamp:

Jul 28, 2025, 7:23:15 PM (6 days ago)

Author:

aborella

Message:

Merge with trunk r5789

Location:

LMDZ6/branches/contrails

Files:

• . (modified) (1 prop)
• libf/phylmdiso/isotopes_routines_mod.F90 (modified) (2 diffs)

LMDZ6/branches/contrails/libf/phylmdiso/isotopes_routines_mod.F90

@@ -16419 +16419 @@
    USE phyetat0_get_mod,  ONLY: phyetat0_get, phyetat0_srf
    USE infotrac_phy,      ONLY: new2oldH2O
-   USE strings_mod,       ONLY: strIdx, strHead, strTail, maxlen, msg, int2str
+   USE strings_mod,       ONLY: strIdx, strHead, strTail, maxlen, msg, num2str
 #ifdef ISOVERIF
    USE isotopes_verif_mod
@@ -16448 +16448 @@
    modname = 'phyiso_etat0_fichier'
    CALL msg('3', modname)
-   CALL msg('niso = '//TRIM(int2str(niso)), modname)
+   CALL msg('niso = '//TRIM(num2str(niso)), modname)
    CALL msg('isoName(1) = '//TRIM(isoName(1)), modname)