Changeset 5748 for LMDZ6/trunk/libf/phylmd/traclmdz_mod.f90

Timestamp:

Jul 2, 2025, 12:00:08 PM (40 hours 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/traclmdz_mod.f90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/traclmdz_mod.f90

@@ -312 +312 @@
     USE dimphy
     USE infotrac_phy, ONLY: nbtr, pbl_flg
-    USE strings_mod,  ONLY: int2str
+    USE strings_mod,  ONLY: num2str
     USE regr_pr_comb_coefoz_m, ONLY: regr_pr_comb_coefoz
     USE o3_chem_m, ONLY: o3_chem
@@ -558 +558 @@
              END DO
           END DO
-          CALL minmaxqfi(tr_seri(:,:,it),0.,1.e33,'puits rn it='//TRIM(int2str(it)))
+          CALL minmaxqfi(tr_seri(:,:,it),0.,1.e33,'puits rn it='//TRIM(num2str(it)))
        END IF
     END DO