Index: /LMDZ6/trunk/libf/phylmd/tracco2i_mod.F90
===================================================================
--- /LMDZ6/trunk/libf/phylmd/tracco2i_mod.F90	(revision 3650)
+++ /LMDZ6/trunk/libf/phylmd/tracco2i_mod.F90	(revision 3651)
@@ -317,14 +317,14 @@
 !$OMP END MASTER
 
+    ! Allocation needed for all proc otherwise scatter might complain
+    IF (.NOT.ALLOCATED(flx_co2ff_glo)) ALLOCATE(flx_co2ff_glo(0,0))
+    IF (.NOT.ALLOCATED(flx_co2bb_glo)) ALLOCATE(flx_co2bb_glo(0,0))
+
 !--scatter on all proc
     CALL scatter(flx_co2ff_glo,flx_co2ff)
     CALL scatter(flx_co2bb_glo,flx_co2bb)
 
-!$OMP MASTER
-    IF (is_mpi_root) THEN
-       DEALLOCATE(flx_co2ff_glo)
-       DEALLOCATE(flx_co2bb_glo)
-    ENDIF
-!$OMP END MASTER
+   IF (ALLOCATED(flx_co2ff_glo)) DEALLOCATE(flx_co2ff_glo)
+   IF (ALLOCATED(flx_co2bb_glo)) DEALLOCATE(flx_co2bb_glo)
 
   ENDIF !--end debuthy