Index: LMDZ6/trunk/libf/misc/write_field.F90
===================================================================
--- LMDZ6/trunk/libf/misc/write_field.F90	(revision 5256)
+++ LMDZ6/trunk/libf/misc/write_field.F90	(revision 5257)
@@ -3,5 +3,7 @@
 !
 module write_field
-implicit none
+  USE strings_mod, ONLY: int2str
+  IMPLICIT NONE; PRIVATE
+  PUBLIC WriteField
 
   integer, parameter :: MaxWriteField = 100
@@ -285,5 +287,5 @@
                       //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,24 +304,5 @@
     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