Changeset 5748 for LMDZ6/trunk/libf/phylmd/infotrac_phy.F90

Timestamp:

Jul 2, 2025, 12:00:08 PM (4 weeks ago)

Author:

dcugnet

Message:

• Use REAL(KIND=REAL32) and REAL(KIND=REAL64) Iinstead of REAL and DOUBLE PRECISION

to avoid ambiguity problems in generic procedure when reals are promoted to doubles.

• generic "num2str" replaces "str2int", "str2real", "str2dble" and "str2bool" functions.

File:

• LMDZ6/trunk/libf/phylmd/infotrac_phy.F90 (modified) (4 diffs)

LMDZ6/trunk/libf/phylmd/infotrac_phy.F90

@@ -3 +3 @@
 MODULE infotrac_phy
 
-   USE       strings_mod, ONLY: msg, maxlen, cat, dispTable, int2str, bool2str, strStack, strParse, strCount, strIdx
+   USE       strings_mod, ONLY: msg, maxlen, cat, dispTable, num2str, strStack, strParse, strCount, strIdx
    USE readTracFiles_mod, ONLY: trac_type, readTracersFiles, tracers,  addPhase,  addKey, iH2O,  &
        isoSelect,  indexUpdate, isot_type, testTracersFiles, isotope,  delPhase,  getKey, tran0, &
@@ -271 +271 @@
    IF( nqtot /= nqtrue ) THEN
       CALL msg('The choice of advection scheme for one or more tracers makes it necessary to add tracers')
-      CALL msg('The number of true tracers is '//TRIM(int2str(nqtrue)))
-      CALL msg('The total number of tracers needed is '//TRIM(int2str(nqtot)))
+      CALL msg('The number of true tracers is '//TRIM(num2str(nqtrue)))
+      CALL msg('The total number of tracers needed is '//TRIM(num2str(nqtot)))
    END IF
 
@@ -365 +365 @@
    !=== DISPLAY THE RESULTS
    IF(.NOT.is_master) RETURN
-   CALL msg('nqo    = '//TRIM(int2str(nqo)),    modname)
-   CALL msg('nbtr   = '//TRIM(int2str(nbtr)),   modname)
-   CALL msg('nqtrue = '//TRIM(int2str(nqtrue)), modname)
-   CALL msg('nqtot  = '//TRIM(int2str(nqtot)),  modname)
-   CALL msg('niso   = '//TRIM(int2str(niso)),   modname)
-   CALL msg('ntiso  = '//TRIM(int2str(ntiso)),  modname)
-   CALL msg('nqCO2  = '//TRIM(int2str(nqCO2)),  modname, CPPKEY_INCA)
-   CALL msg('nqINCA = '//TRIM(int2str(nqINCA)), modname, CPPKEY_INCA)
+   CALL msg('nqo    = '//TRIM(num2str(nqo)),    modname)
+   CALL msg('nbtr   = '//TRIM(num2str(nbtr)),   modname)
+   CALL msg('nqtrue = '//TRIM(num2str(nqtrue)), modname)
+   CALL msg('nqtot  = '//TRIM(num2str(nqtot)),  modname)
+   CALL msg('niso   = '//TRIM(num2str(niso)),   modname)
+   CALL msg('ntiso  = '//TRIM(num2str(ntiso)),  modname)
+   CALL msg('nqCO2  = '//TRIM(num2str(nqCO2)),  modname, CPPKEY_INCA)
+   CALL msg('nqINCA = '//TRIM(num2str(nqINCA)), modname, CPPKEY_INCA)
    t => tracers
    CALL msg('Information stored in '//TRIM(modname)//': ', modname)
    IF(dispTable('issssssssiiiiiiii', ['iq  ', 'name', 'lNam', 'g0Nm', 'prnt', 'type', 'phas', 'comp',      &
                               'isPh', 'iGen', 'iqPr', 'nqDe', 'nqCh', 'iGrp', 'iNam', 'iZon', 'iPha'],     &
-      cat(t%name, t%longName, t%gen0Name, t%parent, t%type, t%phase, t%component, bool2str(t%isInPhysics)),&
+      cat(t%name, t%longName, t%gen0Name, t%parent, t%type, t%phase, t%component, num2str(t%isInPhysics)), &
       cat([(iq, iq=1, nqtot)], t%iGeneration, t%iqParent, t%nqDescen, t%nqChildren, t%iso_iGroup,          &
                   t%iso_iName, t%iso_iZone, t%iso_iPhase), nColMax=maxTableWidth, nHead=2, sub=modname))   &
@@ -390 +390 @@
 
    IF(CPPKEY_STRATAER .AND. type_trac == 'coag') THEN
-      CALL msg('nbtr_bin       ='//TRIM(int2str(nbtr_bin      )), modname)
-      CALL msg('nbtr_sulgas    ='//TRIM(int2str(nbtr_sulgas   )), modname)
-      CALL msg('id_BIN01_strat ='//TRIM(int2str(id_BIN01_strat)), modname)
-      CALL msg('id_OCS_strat   ='//TRIM(int2str(id_OCS_strat  )), modname)
-      CALL msg('id_SO2_strat   ='//TRIM(int2str(id_SO2_strat  )), modname)
-      CALL msg('id_H2SO4_strat ='//TRIM(int2str(id_H2SO4_strat)), modname)
-      CALL msg('id_TEST_strat  ='//TRIM(int2str(id_TEST_strat )), modname)
+      CALL msg('nbtr_bin       ='//TRIM(num2str(nbtr_bin      )), modname)
+      CALL msg('nbtr_sulgas    ='//TRIM(num2str(nbtr_sulgas   )), modname)
+      CALL msg('id_BIN01_strat ='//TRIM(num2str(id_BIN01_strat)), modname)
+      CALL msg('id_OCS_strat   ='//TRIM(num2str(id_OCS_strat  )), modname)
+      CALL msg('id_SO2_strat   ='//TRIM(num2str(id_SO2_strat  )), modname)
+      CALL msg('id_H2SO4_strat ='//TRIM(num2str(id_H2SO4_strat)), modname)
+      CALL msg('id_TEST_strat  ='//TRIM(num2str(id_TEST_strat )), modname)
    END IF