Changeset 4403 for LMDZ6/trunk/libf/dyn3d_common/infotrac.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/dyn3d_common/infotrac.F90 (modified) (1 diff)

LMDZ6/trunk/libf/dyn3d_common/infotrac.F90

@@ -379 +379 @@
 
    !=== DISPLAY THE RESULTS
-   IF(prt_level > 1) THEN
-      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('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)
 #ifdef INCA
-      CALL msg('nqCO2  = '//TRIM(int2str(nqCO2)),  modname)
-      CALL msg('nqINCA = '//TRIM(int2str(nqINCA)), modname)
-#endif
-   END IF
+   CALL msg('nqCO2  = '//TRIM(int2str(nqCO2)),  modname)
+   CALL msg('nqINCA = '//TRIM(int2str(nqINCA)), modname)
+#endif
    t => tracers
    CALL msg('Information stored in infotrac :', modname)