Changeset 5791 for LMDZ6/branches/contrails/libf/misc/write_field.f90

Timestamp:

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

Author:

aborella

Message:

Merge with trunk r5789

Location:

LMDZ6/branches/contrails

Files:

• . (modified) (1 prop)
• libf/misc/write_field.f90 (modified) (7 diffs)

LMDZ6/branches/contrails/libf/misc/write_field.f90

@@ -5 +5 @@
   USE netcdf, ONLY: nf90_sync, nf90_put_var, nf90_enddef, nf90_def_dim, nf90_unlimited, &
           nf90_clobber, nf90_create, nf90_def_var, nf90_double
-  USE strings_mod, ONLY: int2str
+  USE strings_mod, ONLY: num2str
   IMPLICIT NONE; PRIVATE
   PUBLIC WriteField
@@ -156 +156 @@
     write (id,'("----- Field '//name//'",//)')
     Dim=shape(Field)
-    MaxLen=int2str(len(trim(int2str(Dim(1)))))
-    ColumnSize=20+6+3+len(trim(int2str(Dim(1))))
+    MaxLen=num2str(len(trim(num2str(Dim(1)))))
+    ColumnSize=20+6+3+len(trim(num2str(Dim(1))))
     Nb=0
     Pos=2
@@ -164 +164 @@
       
       if (MOD(nb,NbCol)==0) then
-        form='(t'//trim(int2str(pos))// ',i'//trim(MaxLen) //'," ---> ",g22.16,/)'
+        form='(t'//trim(num2str(pos))// ',i'//trim(MaxLen) //'," ---> ",g22.16,/)'
         Pos=2
       else
-        form='(t'//trim(int2str(pos))// ',i'//trim(MaxLen) //'," ---> ",g22.16," | ",)'
+        form='(t'//trim(num2str(pos))// ',i'//trim(MaxLen) //'," ---> ",g22.16," | ",)'
         Pos=Pos+ColumnSize
       endif
@@ -198 +198 @@
     
     Dim=shape(Field)
-    offset=len(trim(int2str(Dim(1))))+len(trim(int2str(Dim(2))))+3
+    offset=len(trim(num2str(Dim(1))))+len(trim(num2str(Dim(2))))+3
     ColumnSize=20+6+3+offset
 
@@ -210 +210 @@
       
         if (MOD(nb,NbCol)==0) then
-          form='(t'//trim(int2str(pos))//            &
-               ',"('//trim(int2str(j))//','          &
-                    //trim(int2str(i))//')",t'       & 
-                    //trim(int2str(pos+offset))     &    
+          form='(t'//trim(num2str(pos))//            &
+               ',"('//trim(num2str(j))//','          &
+                    //trim(num2str(i))//')",t'       & 
+                    //trim(num2str(pos+offset))     &    
                     //'," ---> ",g22.16,/)'
           Pos=2
         else
-          form='(t'//trim(int2str(pos))//            &
-               ',"('//trim(int2str(j))//','          &
-                    //trim(int2str(i))//')",t'       & 
-                    //trim(int2str(pos+offset))     &    
+          form='(t'//trim(num2str(pos))//            &
+               ',"('//trim(num2str(j))//','          &
+                    //trim(num2str(i))//')",t'       & 
+                    //trim(num2str(pos+offset))     &    
                     //'," ---> ",g22.16," | ")'
           Pos=Pos+ColumnSize
@@ -256 +256 @@
     
     Dim=shape(Field)
-    offset=len(trim(int2str(Dim(1))))+len(trim(int2str(Dim(2))))+len(trim(int2str(Dim(3))))+4
+    offset=len(trim(num2str(Dim(1))))+len(trim(num2str(Dim(2))))+len(trim(num2str(Dim(3))))+4
     ColumnSize=22+6+3+offset
 
@@ -273 +273 @@
       
           if (MOD(nb,NbCol)==0) then
-            form='(t'//trim(int2str(pos))//            &
-                 ',"('//trim(int2str(k))//','          &
-                      //trim(int2str(j))//','          &
-                      //trim(int2str(i))//')",t'       & 
-                      //trim(int2str(pos+offset))      &    
+            form='(t'//trim(num2str(pos))//            &
+                 ',"('//trim(num2str(k))//','          &
+                      //trim(num2str(j))//','          &
+                      //trim(num2str(i))//')",t'       & 
+                      //trim(num2str(pos+offset))      &    
                       //'," ---> ",g22.16,/)'
            Pos=2
           else
-            form='(t'//trim(int2str(pos))//            &
-                 ',"('//trim(int2str(k))//','          &
-                      //trim(int2str(j))//','          &
-                      //trim(int2str(i))//')",t'       & 
-                      //trim(int2str(pos+offset))      &    
+            form='(t'//trim(num2str(pos))//            &
+                 ',"('//trim(num2str(k))//','          &
+                      //trim(num2str(j))//','          &
+                      //trim(num2str(i))//')",t'       & 
+                      //trim(num2str(pos+offset))      &    
                       //'," ---> ",g22.16," | ")'
 ! d�pent de l'impl�mention, sur compaq, c'est necessaire