Changeset 3314 for LMDZ6/branches/IPSLCM6.0.15/libf/phylmd

Timestamp:

Apr 12, 2018, 5:38:50 PM (7 years ago)

Author:

Laurent Fairhead

Message:

Solving reproductibility problem?

File:

• LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/regr_pr_time_av_m.F90 (modified) (1 diff)

LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/regr_pr_time_av_m.F90

@@ -249 +249 @@
   END IF
   !$OMP END MASTER
+  !$OMP BARRIER
   IF(lfirst) THEN
     lfirst=.FALSE.;       CALL bcast(lfirst)