Index: trunk/LMDZ.MARS/libf/phymars/dyn1d/mod_const_mpi.F90
===================================================================
--- trunk/LMDZ.MARS/libf/phymars/dyn1d/mod_const_mpi.F90	(revision 2997)
+++ trunk/LMDZ.MARS/libf/phymars/dyn1d/mod_const_mpi.F90	(revision 2997)
@@ -0,0 +1,1 @@
+link ../../../../LMDZ.COMMON/libf/dyn3dpar/mod_const_mpi.F90
Index: trunk/LMDZ.MARS/libf/phymars/dyn1d/parallel_lmdz.F90
===================================================================
--- trunk/LMDZ.MARS/libf/phymars/dyn1d/parallel_lmdz.F90	(revision 2997)
+++ trunk/LMDZ.MARS/libf/phymars/dyn1d/parallel_lmdz.F90	(revision 2997)
@@ -0,0 +1,1 @@
+link ../../../../LMDZ.COMMON/libf/dyn3dpar/parallel_lmdz.F90
Index: trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F
===================================================================
--- trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F	(revision 2996)
+++ trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F	(revision 2997)
@@ -42,4 +42,8 @@
       use iostart, only: open_startphy,get_var, close_startphy
       use write_output_mod, only: write_output
+#ifdef CPP_XIOS
+      use mod_const_mpi, only: init_const_mpi
+      use parallel_lmdz, only: init_parallel
+#endif
       IMPLICIT NONE
 
@@ -169,4 +173,9 @@
 c INITIALISATION
 c=======================================================================
+#ifdef CPP_XIOS
+      CALL init_const_mpi
+      CALL init_parallel
+#endif
+
 ! initialize "serial/parallel" related stuff
 !      CALL init_phys_lmdz(iim,jjp1,llm,1,(/(jjm-1)*iim+2/))
Index: trunk/LMDZ.MARS/libf/phymars/wstats_mod.F90
===================================================================
--- trunk/LMDZ.MARS/libf/phymars/wstats_mod.F90	(revision 2996)
+++ trunk/LMDZ.MARS/libf/phymars/wstats_mod.F90	(revision 2997)
@@ -174,7 +174,9 @@
   if (is_mpi_root) then
     call Grid1Dto2D_glo(px3_glop,px3_glo)
+    if (klon_glo>1) then ! general case (unless in 1D)
     ! copy dx3_glo() to dx3(:) and add redundant longitude
     dx3(1:nbp_lon,:,:)=px3_glo(1:nbp_lon,:,:)
     dx3(nbp_lon+1,:,:)=dx3(1,:,:)
+    endif
   endif
 !$OMP END MASTER
@@ -185,10 +187,12 @@
   call Gather(px2,px2_glop)
 !$OMP MASTER
-          if (is_mpi_root) then
-            call Grid1Dto2D_glo(px2_glop,px2_glo)
-            ! copy px2_glo() to dx2(:) and add redundant longitude
-            dx2(1:nbp_lon,:)=px2_glo(1:nbp_lon,:)
-            dx2(nbp_lon+1,:)=dx2(1,:)
-          endif
+  if (is_mpi_root) then
+    call Grid1Dto2D_glo(px2_glop,px2_glo)
+    if (klon_glo>1) then ! general case (unless in 1D)
+      ! copy px2_glo() to dx2(:) and add redundant longitude
+      dx2(1:nbp_lon,:)=px2_glo(1:nbp_lon,:)
+      dx2(nbp_lon+1,:)=dx2(1,:)
+    endif
+  endif
 !$OMP END MASTER
 !$OMP BARRIER