Changeset 5791 for LMDZ6/branches/contrails/libf/dyn3dmem/leapfrog_loc.f90

Timestamp:

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

Author:

aborella

Message:

Merge with trunk r5789

Location:

LMDZ6/branches/contrails

Files:

• . (modified) (1 prop)
• libf/dyn3dmem/leapfrog_loc.f90 (modified) (11 diffs)

LMDZ6/branches/contrails/libf/dyn3dmem/leapfrog_loc.f90

@@ -42 +42 @@
    USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_INCA, CPPKEY_REPROBUS
    USE lmdz_reprobus_wrappers, ONLY: finalize_reprobus
-   USE strings_mod, ONLY: int2str
+   USE strings_mod, ONLY: num2str
 
    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
@@ -643 +643 @@
     call WriteField_u('phis',phis)
     do iq=1,nqtot
-      call WriteField_u('q'//trim(int2str(iq)), &
+      call WriteField_u('q'//trim(num2str(iq)), &
             q(:,:,iq))
     enddo
@@ -709 +709 @@
 
    ! do j=1,nqtot
-   !   call WriteField_u('qadv'//trim(int2str(j)),q(:,:,j))
+   !   call WriteField_u('qadv'//trim(num2str(j)),q(:,:,j))
    ! enddo
 
@@ -744 +744 @@
 
    ! do j=1,nqtot
-   !   call WriteField_p('q'//trim(int2str(j)),
+   !   call WriteField_p('q'//trim(num2str(j)),
   ! .                reshape(q(:,:,j),(/iip1,jmp1,llm/)))
-  !    call WriteField_p('dq'//trim(int2str(j)),
+  !    call WriteField_p('dq'//trim(num2str(j)),
   ! .                reshape(dq(:,:,j),(/iip1,jmp1,llm/)))
   !  enddo
@@ -782 +782 @@
       ! call WriteField_u('pkfi',pk)
       ! do j=1,nqtot
-      !   call WriteField_u('qfi'//trim(int2str(j)),q(:,:,j))
+      !   call WriteField_u('qfi'//trim(num2str(j)),q(:,:,j))
       ! enddo
   ! #endif
@@ -888 +888 @@
   !   call WriteField_u('pkfi',pk)
   !   do j=1,nqtot
-  !     call WriteField_u('qfi'//trim(int2str(j)),q(:,:,j))
+  !     call WriteField_u('qfi'//trim(num2str(j)),q(:,:,j))
   !   enddo
   ! #endif
@@ -979 +979 @@
   !     call WriteField_u('dpfi',dpfi)
   !     do j=1,nqtot
-  !       call WriteField_u('dqfi'//trim(int2str(j)),dqfi(:,:,j))
+  !       call WriteField_u('dqfi'//trim(num2str(j)),dqfi(:,:,j))
   !    enddo
   ! #endif
@@ -993 +993 @@
   !         call WriteField_u('psfi',ps)
   !     do j=1,nqtot
-  !       call WriteField_u('qfi'//trim(int2str(j)),q(:,:,j))
+  !       call WriteField_u('qfi'//trim(num2str(j)),q(:,:,j))
   !    enddo
   ! #endif
@@ -1007 +1007 @@
   !         call WriteField_u('psfi',ps)
   !     do j=1,nqtot
-  !       call WriteField_u('qfi'//trim(int2str(j)),q(:,:,j))
+  !       call WriteField_u('qfi'//trim(num2str(j)),q(:,:,j))
   !    enddo
   ! #endif
@@ -1021 +1021 @@
   !         call WriteField_u('psfi',ps)
   !     do j=1,nqtot
-  !       call WriteField_u('qfi'//trim(int2str(j)),q(:,:,j))
+  !       call WriteField_u('qfi'//trim(num2str(j)),q(:,:,j))
   !    enddo
   ! #endif
@@ -1087 +1087 @@
   !         call WriteField_u('psfi',ps)
   !     do j=1,nqtot
-  !       call WriteField_u('qfi'//trim(int2str(j)),q(:,:,j))
+  !       call WriteField_u('qfi'//trim(num2str(j)),q(:,:,j))
   !    enddo
   ! #endif