Changeset 5791 for LMDZ6/branches/contrails/libf/dyn3dmem/integrd_loc.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/dyn3dmem/integrd_loc.f90 (modified) (2 diffs)

LMDZ6/branches/contrails/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