Changeset 381 for branches/ORCHIDEE_EXT/ORCHIDEE/src_parallel

Timestamp:

2011-08-01T15:40:24+02:00 (13 years ago)

Author:

didier.solyga

Message:

Merge revisions 370 to 372 from the trunk in the externalized version

File:

• branches/ORCHIDEE_EXT/ORCHIDEE/src_parallel/transfert_para.f90 (modified) (1 diff)

branches/ORCHIDEE_EXT/ORCHIDEE/src_parallel/transfert_para.f90

@@ -196 +196 @@
   IMPLICIT NONE
     LOGICAL,INTENT(INOUT) :: Var
-   
-#ifndef CPP_PARA
-    RETURN
-#else
-    CALL bcast_lgen(Var,1)
+    LOGICAL,DIMENSION(1) :: Var1
+#ifndef CPP_PARA
+    RETURN
+#else
+    IF (is_root_prc) &
+         Var1(1)=Var
+    CALL bcast_lgen(Var1,1)
+    Var=Var1(1)
 #endif
   END SUBROUTINE bcast_l