Index: /LMDZ4/trunk/libf/bibio/vampir.F90
===================================================================
--- /LMDZ4/trunk/libf/bibio/vampir.F90	(revision 771)
+++ /LMDZ4/trunk/libf/bibio/vampir.F90	(revision 772)
@@ -9,8 +9,13 @@
   INTEGER,parameter :: VTinca=7
   
+  INTEGER,parameter :: nb_inst=7
+  INTEGER :: MPE_begin(nb_inst)
+  INTEGER :: MPE_end(nb_inst)
+  
 contains
 
   subroutine InitVampir
     implicit none
+
 #ifdef USE_VT
     include 'VT.inc'
@@ -24,7 +29,24 @@
     call VTSYMDEF(VTphysiq,"physiq","physiq",ierr)
     call VTSYMDEF(VTinca,"inca","inca",ierr)
-#endif  
+#endif
+
+#ifdef USE_MPE
+    include 'mpe_logf.h' 
+    integer :: ierr,i
+    
+    DO i=1,nb_inst
+      ierr = MPE_Log_get_state_eventIDs( MPE_begin(i), MPE_end(i) )
+    ENDDO
+    
+    ierr = MPE_Describe_state( MPE_begin(VTcaldyn), MPE_end(VTcaldyn),"caldyn", "yellow" )
+    ierr = MPE_Describe_state( MPE_begin(VTintegre), MPE_end(VTintegre),"integre", "blue" )
+    ierr = MPE_Describe_state( MPE_begin(VTadvection), MPE_end(VTadvection),"advection", "green" )
+    ierr = MPE_Describe_state( MPE_begin(VTdissipation), MPE_end(VTdissipation),"dissipation", "ivory" )
+    ierr = MPE_Describe_state( MPE_begin(VThallo), MPE_end(VThallo),"hallo", "orange" )
+    ierr = MPE_Describe_state( MPE_begin(VTphysiq), MPE_end(VTphysiq),"physiq", "purple" )
+    ierr = MPE_Describe_state( MPE_begin(VTinca), MPE_end(VTinca),"inca", "LightBlue" )
+#endif     
   end subroutine InitVampir
-  
+
   subroutine VTb(number)
     implicit none
@@ -35,7 +57,13 @@
     
     call VTBEGIN(number,ierr)
+#endif 
+#ifdef USE_MPE
+    include 'mpe_logf.h' 
+    integer :: ierr,i
+    ierr = MPE_Log_event( MPE_begin(number), 0, '' )
 #endif
+
   end subroutine VTb
-  
+
   subroutine VTe(number)
     implicit none
@@ -48,6 +76,11 @@
 #endif    
 
+#ifdef USE_MPE
+    include 'mpe_logf.h' 
+    integer :: ierr,i
+    ierr = MPE_Log_event( MPE_end(number), 0, '' )
+#endif
+
   end subroutine VTe
   
 end module Vampir
-  
Index: /LMDZ4/trunk/libf/bibio/write_field.F90
===================================================================
--- /LMDZ4/trunk/libf/bibio/write_field.F90	(revision 771)
+++ /LMDZ4/trunk/libf/bibio/write_field.F90	(revision 772)
@@ -1,2 +1,5 @@
+!
+! $Header$
+!
 module write_field
 implicit none