Index: trunk/LMDZ.MARS/libf/phymars/write_output_mod.F90
===================================================================
--- trunk/LMDZ.MARS/libf/phymars/write_output_mod.F90	(revision 3160)
+++ trunk/LMDZ.MARS/libf/phymars/write_output_mod.F90	(revision 3161)
@@ -18,5 +18,5 @@
 
 SUBROUTINE write_output_d0(field_name,title,units,field)
-! For a surface field
+! For a scalar
 
 #ifdef CPP_XIOS
@@ -49,6 +49,6 @@
 
 #ifdef CPP_XIOS
-  use xios_output_mod, only: xios_is_active_field
-  use xios_output_mod, only: send_xios_field
+    use xios_output_mod, only: xios_is_active_field
+    use xios_output_mod, only: send_xios_field
 #endif
 
@@ -80,4 +80,5 @@
     use xios_output_mod, only: send_xios_field
 #endif
+
 use comsoil_h,         only: nsoilmx
 use writediagsoil_mod, only: writediagsoil
@@ -109,5 +110,5 @@
 
 SUBROUTINE write_output_i0(field_name,title,units,field)
-! For a surface field
+! For a scalar
 
 #ifdef CPP_XIOS
@@ -200,5 +201,5 @@
 
 SUBROUTINE write_output_l0(field_name,title,units,field)
- ! For a surface field
+! For a scalar
  
 #ifdef CPP_XIOS