Index: LMDZ4/trunk/libf/bibio/initdynav.F
===================================================================
--- LMDZ4/trunk/libf/bibio/initdynav.F	(revision 760)
+++ LMDZ4/trunk/libf/bibio/initdynav.F	(revision 761)
@@ -8,5 +8,4 @@
 
        USE IOIPSL
-       USE histcom
 
       implicit none
Index: LMDZ4/trunk/libf/bibio/initfluxsto.F
===================================================================
--- LMDZ4/trunk/libf/bibio/initfluxsto.F	(revision 760)
+++ LMDZ4/trunk/libf/bibio/initfluxsto.F	(revision 761)
@@ -7,5 +7,4 @@
 
        USE IOIPSL
-       USE histcom
 
       implicit none
Index: LMDZ4/trunk/libf/bibio/inithist.F
===================================================================
--- LMDZ4/trunk/libf/bibio/inithist.F	(revision 760)
+++ LMDZ4/trunk/libf/bibio/inithist.F	(revision 761)
@@ -6,5 +6,4 @@
 
        USE IOIPSL
-       USE histcom
 
       implicit none
Index: LMDZ4/trunk/libf/bibio/misc_mod.F90
===================================================================
--- LMDZ4/trunk/libf/bibio/misc_mod.F90	(revision 761)
+++ LMDZ4/trunk/libf/bibio/misc_mod.F90	(revision 761)
@@ -0,0 +1,6 @@
+module misc_mod
+  integer,save :: itaumax
+  logical,save :: adjust
+  integer,save :: ItCount
+  logical,save :: debug
+end module misc_mod 
Index: LMDZ4/trunk/libf/bibio/vampir.F90
===================================================================
--- LMDZ4/trunk/libf/bibio/vampir.F90	(revision 761)
+++ LMDZ4/trunk/libf/bibio/vampir.F90	(revision 761)
@@ -0,0 +1,53 @@
+module Vampir
+
+  INTEGER,parameter :: VTcaldyn=1
+  INTEGER,parameter :: VTintegre=2
+  INTEGER,parameter :: VTadvection=3
+  INTEGER,parameter :: VTdissipation=4
+  INTEGER,parameter :: VThallo=5
+  INTEGER,parameter :: VTphysiq=6
+  INTEGER,parameter :: VTinca=7
+  
+contains
+
+  subroutine InitVampir
+    implicit none
+#ifdef USE_VT
+    include 'VT.inc'
+    integer :: ierr
+    
+    call VTSYMDEF(VTcaldyn,"caldyn","caldyn",ierr)
+    call VTSYMDEF(VTintegre,"integre","integre",ierr)
+    call VTSYMDEF(VTadvection,"advection","advection",ierr)
+    call VTSYMDEF(VTdissipation,"dissipation","dissipation",ierr)
+    call VTSYMDEF(VThallo,"hallo","hallo",ierr)
+    call VTSYMDEF(VTphysiq,"physiq","physiq",ierr)
+    call VTSYMDEF(VTinca,"inca","inca",ierr)
+#endif  
+  end subroutine InitVampir
+  
+  subroutine VTb(number)
+    implicit none
+    INTEGER :: number
+#ifdef USE_VT    
+    include 'VT.inc'
+    integer :: ierr
+    
+    call VTBEGIN(number,ierr)
+#endif
+  end subroutine VTb
+  
+  subroutine VTe(number)
+    implicit none
+    INTEGER :: Number
+#ifdef USE_VT    
+    include 'VT.inc'
+    integer :: ierr
+   
+    call VTEND(number,ierr)
+#endif    
+
+  end subroutine VTe
+  
+end module Vampir
+  
Index: LMDZ4/trunk/libf/bibio/write_field.F90
===================================================================
--- LMDZ4/trunk/libf/bibio/write_field.F90	(revision 760)
+++ LMDZ4/trunk/libf/bibio/write_field.F90	(revision 761)
@@ -12,6 +12,5 @@
   interface WriteField
     module procedure WriteField3d,WriteField2d,WriteField1d
-  end interface
-
+  end interface WriteField
   contains
   
@@ -227,5 +226,5 @@
         write (id,spacing)
       else
-        write (id,'("")')
+        write (id,'')
         write (id,spacing)
       endif
@@ -304,19 +303,4 @@
   end subroutine write_field3D  
   
-  subroutine WriteField_phy(name,Field,ll)
-    USE dimphy
-    implicit none
-    include 'dimensions90.h'
-    include 'paramet90.h'
-    character(len=*)   :: name
-    integer :: ll
-    real, dimension(klon2,ll) :: Field
-    real, dimension(iim,jjp1,ll):: New_Field
-    
-    
-    CALL gr_fi_ecrit(ll, klon2,iim,jjp1, Field, New_Field)
-    CALL WriteField(name,New_Field)
-  end subroutine WriteField_phy  
-     
   function int2str(int)
     implicit none