Changeset 5791 for LMDZ6/branches/contrails/libf/phylmd/phytrac_mod.f90

Timestamp:

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

Author:

aborella

Message:

Merge with trunk r5789

Location:

LMDZ6/branches/contrails

Files:

• . (modified) (1 prop)
• libf/phylmd/phytrac_mod.f90 (modified) (3 diffs)

LMDZ6/branches/contrails/libf/phylmd/phytrac_mod.f90

@@ -128 +128 @@
     USE dimphy
     USE infotrac_phy, ONLY: nbtr, nqCO2, type_trac, conv_flg, pbl_flg
-    USE strings_mod,  ONLY: int2str
+    USE strings_mod,  ONLY: num2str
     USE mod_grid_phy_lmdz
     USE mod_phys_lmdz_para
@@ -735 +735 @@
           ENDDO
 
-          CALL minmaxqfi(tr_seri(:,:,it),0.,1.e33,'convection it = '//TRIM(int2str(it)))
+          CALL minmaxqfi(tr_seri(:,:,it),0.,1.e33,'convection it = '//TRIM(num2str(it)))
 
        ENDDO ! nbtr
@@ -939 +939 @@
                 ENDDO
              ENDDO
-             CALL minmaxqfi(tr_seri(:,:,it),0.,1.e33,'lsc scav it = '//TRIM(int2str(it)))
+             CALL minmaxqfi(tr_seri(:,:,it),0.,1.e33,'lsc scav it = '//TRIM(num2str(it)))
              ENDIF