Index: trunk/LMDZ.MARS/libf/phymars/write_output_mod.F90
===================================================================
--- trunk/LMDZ.MARS/libf/phymars/write_output_mod.F90	(revision 2970)
+++ trunk/LMDZ.MARS/libf/phymars/write_output_mod.F90	(revision 2976)
@@ -99,5 +99,5 @@
   call writediagfi(ngrid,field_name,title,units,0,real(field))
 #ifdef CPP_XIOS 
-  call send_xios_field(field_name,field)
+  call send_xios_field(field_name,real(field))
 #endif
   
@@ -120,5 +120,5 @@
   call writediagfi(ngrid,field_name,title,units,2,real(field))
 #ifdef CPP_XIOS 
-  call send_xios_field(field_name,field)
+  call send_xios_field(field_name,real(field))
 #endif
   
@@ -147,5 +147,5 @@
   endif
 #ifdef CPP_XIOS 
-  call send_xios_field(field_name,field)
+  call send_xios_field(field_name,real(field))
 #endif
   
@@ -173,5 +173,5 @@
   call writediagfi(ngrid,field_name,title,units,0,field_real)
 #ifdef CPP_XIOS 
-  call send_xios_field(field_name,field)
+  call send_xios_field(field_name,field_real)
 #endif
   
@@ -202,5 +202,5 @@
   call writediagfi(ngrid,field_name,title,units,2,field_real(:))
 #ifdef CPP_XIOS 
-  call send_xios_field(field_name,field)
+  call send_xios_field(field_name,field_real)
 #endif
   
@@ -241,10 +241,10 @@
   endif
 
+#ifdef CPP_XIOS 
+  call send_xios_field(field_name,field_real)
+#endif
+  
   deallocate(field_real)
 
-#ifdef CPP_XIOS 
-  call send_xios_field(field_name,field)
-#endif
-  
   END SUBROUTINE write_output_l2