Index: LMDZ6/trunk/libf/phylmdiso/isotopes_mod.F90
===================================================================
--- LMDZ6/trunk/libf/phylmdiso/isotopes_mod.F90	(revision 4318)
+++ LMDZ6/trunk/libf/phylmdiso/isotopes_mod.F90	(revision 4319)
@@ -345,8 +345,10 @@
    LOGICAL :: lD
 !$OMP BARRIER
-   IF(.NOT.(is_mpi_root.AND.is_omp_root)) RETURN
-   val=def; CALL getin(nam,val); CALL bcast(val)
-   lD=.TRUE.; IF(PRESENT(lDisp)) lD=lDisp
-   IF(lD) CALL msg(TRIM(nam)//' = '//TRIM(val))
+   IF(is_mpi_root.AND.is_omp_root) THEN
+      val=def; CALL getin(nam,val)
+      lD=.TRUE.; IF(PRESENT(lDisp)) lD=lDisp
+      IF(lD) CALL msg(TRIM(nam)//' = '//TRIM(val))
+   END IF
+   CALL bcast(val)
 END SUBROUTINE getinp_s
 
@@ -362,8 +364,10 @@
    LOGICAL :: lD
 !$OMP BARRIER
-   IF(.NOT.(is_mpi_root.AND.is_omp_root)) RETURN
-   val=def; CALL getin(nam,val); CALL bcast(val)
-   lD=.TRUE.; IF(PRESENT(lDisp)) lD=lDisp
-   IF(lD) CALL msg(TRIM(nam)//' = '//TRIM(int2str(val)))
+   IF(is_mpi_root.AND.is_omp_root) THEN
+      val=def; CALL getin(nam,val)
+      lD=.TRUE.; IF(PRESENT(lDisp)) lD=lDisp
+      IF(lD) CALL msg(TRIM(nam)//' = '//TRIM(int2str(val)))
+   END IF
+   CALL bcast(val)
 END SUBROUTINE getinp_i
 
@@ -379,8 +383,10 @@
    LOGICAL :: lD
 !$OMP BARRIER
-   IF(.NOT.(is_mpi_root.AND.is_omp_root)) RETURN
-   val=def; CALL getin(nam,val); CALL bcast(val)
-   lD=.TRUE.; IF(PRESENT(lDisp)) lD=lDisp
-   IF(lD) CALL msg(TRIM(nam)//' = '//TRIM(real2str(val)))
+   IF(is_mpi_root.AND.is_omp_root) THEN
+      Val=def; CALL getin(nam,val)
+      lD=.TRUE.; IF(PRESENT(lDisp)) lD=lDisp
+      IF(lD) CALL msg(TRIM(nam)//' = '//TRIM(real2str(val)))
+   ENDIF
+   CALL bcast(val)
 END SUBROUTINE getinp_r
 
@@ -396,8 +402,10 @@
    LOGICAL :: lD
 !$OMP BARRIER
-   IF(.NOT.(is_mpi_root.AND.is_omp_root)) RETURN
-   val=def; CALL getin(nam,val); CALL bcast(val)
-   lD=.TRUE.; IF(PRESENT(lDisp)) lD=lDisp
-   IF(lD) CALL msg(TRIM(nam)//' = '//TRIM(bool2str(val)))
+   IF(is_mpi_root.AND.is_omp_root) THEN
+      val=def; CALL getin(nam,val)
+      lD=.TRUE.; IF(PRESENT(lDisp)) lD=lDisp
+      IF(lD) CALL msg(TRIM(nam)//' = '//TRIM(bool2str(val)))
+   END IF
+   CALL bcast(val)
 END SUBROUTINE getinp_l