Index: trunk/LMDZ.COMMON/libf/phy_common/ioipsl_getin_p_mod.F90
===================================================================
--- trunk/LMDZ.COMMON/libf/phy_common/ioipsl_getin_p_mod.F90	(revision 3888)
+++ trunk/LMDZ.COMMON/libf/phy_common/ioipsl_getin_p_mod.F90	(revision 3896)
@@ -10,6 +10,5 @@
 USE ioipsl_getincom, ONLY: getin
 #endif
-USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
-USE mod_phys_lmdz_omp_data, ONLY :  is_omp_root
+USE mod_phys_lmdz_para, ONLY :  is_master
 USE mod_phys_lmdz_transfert_para, ONLY : bcast
 !-
@@ -42,5 +41,5 @@
 
 !$OMP BARRIER
-    IF (is_mpi_root .AND. is_omp_root) THEN
+    IF (is_master) THEN
     	CALL getin(VarIn,VarOut)
     ENDIF
@@ -56,5 +55,5 @@
 
 !$OMP BARRIER
-    IF (is_mpi_root .AND. is_omp_root) THEN
+    IF (is_master) THEN
     	CALL getin(VarIn,VarOut)
     ENDIF
@@ -72,5 +71,5 @@
 
 !$OMP BARRIER
-    IF (is_mpi_root .AND. is_omp_root) THEN
+    IF (is_master) THEN
     	CALL getin(VarIn,VarOut)
     ENDIF
@@ -84,5 +83,5 @@
 
 !$OMP BARRIER
-    IF (is_mpi_root .AND. is_omp_root) THEN
+    IF (is_master) THEN
     	CALL getin(VarIn,VarOut)
     ENDIF
@@ -96,5 +95,5 @@
 
 !$OMP BARRIER
-    IF (is_mpi_root .AND. is_omp_root) THEN
+    IF (is_master) THEN
     	CALL getin(VarIn,VarOut)
     ENDIF
@@ -110,5 +109,5 @@
 
 !$OMP BARRIER
-    IF (is_mpi_root .AND. is_omp_root) THEN
+    IF (is_master) THEN
     	CALL getin(VarIn,VarOut)
     ENDIF
@@ -122,5 +121,5 @@
 
 !$OMP BARRIER
-    IF (is_mpi_root .AND. is_omp_root) THEN
+    IF (is_master) THEN
     	CALL getin(VarIn,VarOut)
     ENDIF
@@ -134,5 +133,5 @@
 
 !$OMP BARRIER
-    IF (is_mpi_root .AND. is_omp_root) THEN
+    IF (is_master) THEN
     	CALL getin(VarIn,VarOut)
     ENDIF
@@ -148,5 +147,5 @@
 
 !$OMP BARRIER
-    IF (is_mpi_root .AND. is_omp_root) THEN
+    IF (is_master) THEN
     	CALL getin(VarIn,VarOut)
     ENDIF
@@ -160,5 +159,5 @@
 
 !$OMP BARRIER
-    IF (is_mpi_root .AND. is_omp_root) THEN
+    IF (is_master) THEN
     	CALL getin(VarIn,VarOut)
     ENDIF
@@ -172,5 +171,5 @@
 
 !$OMP BARRIER
-    IF (is_mpi_root .AND. is_omp_root) THEN
+    IF (is_master) THEN
     	CALL getin(VarIn,VarOut)
     ENDIF
Index: trunk/LMDZ.COMMON/libf/phy_common/mod_phys_lmdz_omp_transfert.F90
===================================================================
--- trunk/LMDZ.COMMON/libf/phy_common/mod_phys_lmdz_omp_transfert.F90	(revision 3888)
+++ trunk/LMDZ.COMMON/libf/phy_common/mod_phys_lmdz_omp_transfert.F90	(revision 3896)
@@ -556,5 +556,4 @@
     REAL,INTENT(OUT),DIMENSION(:) :: VarOut
 
-    CALL Check_buffer_r(size(VarOut))   
     CALL gather_omp_rgen(VarIn,Varout,1)
     
@@ -568,5 +567,4 @@
     REAL,INTENT(OUT),DIMENSION(:,:) :: VarOut
 
-    CALL Check_buffer_r(size(VarOut))   
     CALL gather_omp_rgen(VarIn,Varout,Size(VarIn,2))
         
@@ -580,5 +578,4 @@
     REAL,INTENT(OUT),DIMENSION(:,:,:) :: VarOut
     
-    CALL Check_buffer_r(size(VarOut))   
     CALL gather_omp_rgen(VarIn,Varout,Size(VarIn,2)*Size(VarIn,3))
     
@@ -592,5 +589,4 @@
     REAL,INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
 
-    CALL Check_buffer_r(size(VarOut))       
     CALL gather_omp_rgen(VarIn,Varout,Size(VarIn,2)*Size(VarIn,3)*Size(VarIn,4))
     
Index: trunk/LMDZ.COMMON/libf/phy_common/mod_phys_lmdz_transfert_para.F90
===================================================================
--- trunk/LMDZ.COMMON/libf/phy_common/mod_phys_lmdz_transfert_para.F90	(revision 3888)
+++ trunk/LMDZ.COMMON/libf/phy_common/mod_phys_lmdz_transfert_para.F90	(revision 3896)
@@ -50,8 +50,8 @@
 
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-!! Definition des Broadcast --> 4D   !!
+!! Definition of Broadcasts --> 4D   !!
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
-!! -- Les chaine de charactère -- !!
+!! -- Strings -- !!
 
   SUBROUTINE bcast_c(var)
@@ -66,9 +66,10 @@
   END SUBROUTINE bcast_c
 
-!! -- Les entiers -- !!
+!! -- Integers -- !!
   
   SUBROUTINE bcast_i(var)
   IMPLICIT NONE
     INTEGER,INTENT(INOUT) :: Var
+
 !$OMP MASTER
     CALL bcast_mpi(Var)
@@ -150,5 +151,5 @@
 
 
-!! -- Les reels -- !!
+!! -- Reals -- !!
   
   SUBROUTINE bcast_r(var)
@@ -235,9 +236,10 @@
 
 
-!! -- Les booleens -- !!
+!! -- Logicals -- !!
   
   SUBROUTINE bcast_l(var)
   IMPLICIT NONE
     LOGICAL,INTENT(INOUT) :: Var
+
 !$OMP MASTER
     CALL bcast_mpi(Var)
@@ -320,5 +322,5 @@
 
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-!! Definition des Scatter   --> 4D   !!
+!! Definition for Scatter   --> 4D   !!
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
@@ -533,8 +535,8 @@
 
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-!! Definition des Gather   --> 4D   !!
+!! Definition for Gather   --> 4D   !!
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  
-!!!!! --> Les entiers
+!!!!! --> For integers
 
   SUBROUTINE gather_i(VarIn, VarOut)
@@ -606,5 +608,5 @@
 
 
-!!!!! --> Les reels
+!!!!! --> For reals
 
   SUBROUTINE gather_r(VarIn, VarOut)
@@ -676,5 +678,5 @@
 
 
-!!!!! --> Les booleens
+!!!!! --> For logicals
 
   SUBROUTINE gather_l(VarIn, VarOut)
@@ -747,9 +749,9 @@
 
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-!! Definition des Scatter2D   --> 4D   !!
+!! Definition for Scatter2D   --> 4D   !!
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
 
-!!!!! --> Les entiers
+!!!!! --> For integers
 
   SUBROUTINE scatter2D_i(VarIn, VarOut)
@@ -821,5 +823,5 @@
   
 
-!!!!! --> Les reels
+!!!!! --> For reals
 
   SUBROUTINE scatter2D_r(VarIn, VarOut)
@@ -891,5 +893,5 @@
     
     
-!!!!! --> Les booleens
+!!!!! --> For logicals
 
 
@@ -963,8 +965,8 @@
 
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-!! Definition des Gather2D   --> 4D   !!
+!! Definition for Gather2D   --> 4D   !!
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
-!!!!! --> Les entiers
+!!!!! --> For integers
 
   SUBROUTINE gather2D_i(VarIn, VarOut)
@@ -1036,5 +1038,5 @@
 
 
-!!!!! --> Les reels
+!!!!! --> For reals
 
   SUBROUTINE gather2D_r(VarIn, VarOut)
@@ -1106,5 +1108,5 @@
   
 
-!!!!! --> Les booleens
+!!!!! --> For logicals
 
   SUBROUTINE gather2D_l(VarIn, VarOut)
@@ -1177,8 +1179,8 @@
 
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-!! Definition des reduce_sum   --> 4D   !!
+!! Definition for reduce_sum   --> 4D   !!
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
-! Les entiers
+! For integers
 
   SUBROUTINE reduce_sum_i(VarIn, VarOut)
@@ -1262,5 +1264,5 @@
 
 
-! Les reels
+! For reals
 
   SUBROUTINE reduce_sum_r(VarIn, VarOut)