Changeset 5257 for LMDZ6/trunk/libf

Timestamp:

Oct 22, 2024, 4:17:07 PM (8 hours ago)

Author:

abarral

Message:

Use int2str from strings_mod in write_field.F90. Only expose WriteField?.

File:

• LMDZ6/trunk/libf/misc/write_field.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/misc/write_field.F90

@@ -3 +3 @@
 !
 module write_field
-implicit none
+  USE strings_mod, ONLY: int2str
+  IMPLICIT NONE; PRIVATE
+  PUBLIC WriteField
 
   integer, parameter :: MaxWriteField = 100
@@ -285 +287 @@
                       //trim(int2str(pos+offset))      &    
                       //'," ---> ",g22.16," | ")'
-! dépent de l'implémention, sur compaq, c'est necessaire
+! d�pent de l'impl�mention, sur compaq, c'est necessaire
 !            Pos=Pos+ColumnSize
           endif
@@ -302 +304 @@
     close(id)
   
-  end subroutine write_field3D  
-  
-  function int2str(int)
-    implicit none
-    integer, parameter :: MaxLen=10
-    integer,intent(in) :: int
-    character(len=MaxLen) :: int2str
-    logical :: flag
-    integer :: i
-    flag=.true.
-    
-    i=int
-    
-    int2str=''
-    do while (flag)
-      int2str=CHAR(MOD(i,10)+48)//int2str
-      i=i/10
-      if (i==0) flag=.false.
-    enddo
-  end function int2str
+  end subroutine write_field3D
 
 end module write_field