Index: /trunk/LMDZ.COMMON/libf/dyn3dpar/planetary_operations_p.F90
===================================================================
--- /trunk/LMDZ.COMMON/libf/dyn3dpar/planetary_operations_p.F90	(revision 2622)
+++ /trunk/LMDZ.COMMON/libf/dyn3dpar/planetary_operations_p.F90	(revision 2623)
@@ -42,9 +42,9 @@
 
   ! broadcast the result to all procs
-!$OMP CRITICAL (MPI_BCAST)
+!$OMP CRITICAL (MPI)
 #ifdef CPP_MPI
   call MPI_BCAST(value,1,MPI_REAL8,0,COMM_LMDZ,ierr)
 #endif
-!$OMP END CRITICAL (MPI_BCAST)
+!$OMP END CRITICAL (MPI)
   
   end subroutine planetary_atm_mass_from_ps_p
@@ -98,9 +98,9 @@
   
   ! broadcast the result to all procs
-!$OMP CRITICAL (MPI_BCAST)
+!$OMP CRITICAL (MPI)
 #ifdef CPP_MPI
   call MPI_BCAST(amount,1,MPI_REAL8,0,COMM_LMDZ,ierr)
 #endif
-!$OMP END CRITICAL (MPI_BCAST)
+!$OMP END CRITICAL (MPI)
 
   end subroutine planetary_tracer_amount_from_mass_p