Changeset 5748 for LMDZ6/trunk/libf/dyn3dmem/integrd_loc.f90

Timestamp:

Jul 2, 2025, 12:00:08 PM (3 days 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/dyn3dmem/integrd_loc.f90 (modified) (2 diffs)

LMDZ6/trunk/libf/dyn3dmem/integrd_loc.f90

@@ -17 +17 @@
   USE comvert_mod, ONLY: ap, bp
   USE temps_mod, ONLY: dt
-  USE strings_mod, ONLY: int2str
+  USE strings_mod, ONLY: num2str
   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
 USE paramet_mod_h
@@ -184 +184 @@
      ! call WriteField_u('int_finvmaold',finvmaold)
     do j=1,nq
-      call WriteField_u('int_q'//trim(int2str(j)), &
+      call WriteField_u('int_q'//trim(num2str(j)), &
             q(:,:,j))
-      call WriteField_u('int_dq'//trim(int2str(j)), &
+      call WriteField_u('int_dq'//trim(num2str(j)), &
             dq(:,:,j))
     enddo