Index: /trunk/LMDZ.COMMON/libf/dyn3dpar/abort_gcm.F
===================================================================
--- /trunk/LMDZ.COMMON/libf/dyn3dpar/abort_gcm.F	(revision 3811)
+++ /trunk/LMDZ.COMMON/libf/dyn3dpar/abort_gcm.F	(revision 3812)
@@ -31,5 +31,5 @@
       character(len=*), intent(in):: message
 
-      write(lunout,*) 'in abort_gcm'
+      if (MPI_rank .eq. 0) write(lunout,*) 'in abort_gcm'
 #ifdef CPP_IOIPSL
 c$OMP MASTER
Index: /trunk/LMDZ.PLUTO/libf/phypluto/inifis_mod.F90
===================================================================
--- /trunk/LMDZ.PLUTO/libf/phypluto/inifis_mod.F90	(revision 3811)
+++ /trunk/LMDZ.PLUTO/libf/phypluto/inifis_mod.F90	(revision 3812)
@@ -371,5 +371,5 @@
      calllott=.false. ! default value
      call getin_p("calllott",calllott)
-     write(*,*)" calllott = ",calllott
+     if (is_master) write(*,*)trim(rname)//": calllott = ",calllott
 
      if (is_master) write(*,*)trim(rname)//&
Index: /trunk/LMDZ.PLUTO/libf/phypluto/physiq_mod.F90
===================================================================
--- /trunk/LMDZ.PLUTO/libf/phypluto/physiq_mod.F90	(revision 3811)
+++ /trunk/LMDZ.PLUTO/libf/phypluto/physiq_mod.F90	(revision 3812)
@@ -1155,5 +1155,4 @@
 ! II.3 Gravity wave and subgrid scale topography drag :
 !    -------------------------------------------------
-
       IF(calllott)THEN
         CALL calldrag_noro(ngrid,nlayer,ptimestep, &
@@ -2134,5 +2133,5 @@
             ENDIF ! of IF (grid_type==unstructured)
 
-            write(*,*)'PHYSIQ: writing restartfi at time =',ztime_restart
+            if (is_master) write(*,*)'PHYSIQ: writing restartfi at time =',ztime_restart
 
             call physdem1("restartfi.nc",nsoilmx,ngrid,nlayer,nq, &
@@ -2413,5 +2412,5 @@
 
       if (lastcall.and.is_omp_master) then
-        write(*,*) "physiq: call xios_context_finalize"
+        if (is_master) write(*,*) "physiq: call xios_context_finalize"
         call xios_context_finalize
       endif