Changeset 3504 for LMDZ6/trunk/libf/phylmd/surf_land_orchidee_mod.F90

Timestamp:

May 16, 2019, 4:20:14 PM (5 years ago)

Author:

yann meurdesoif

Message:

Add some OpenMP synchronisation before calling Orchidee.
In some (very rare) case, it is possible that master thread from LMDZ can call XIOS in the same time than an other thread in ORCHIDEE. Added synchronisation will avoid this problem.

YM

File:

• LMDZ6/trunk/libf/phylmd/surf_land_orchidee_mod.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/surf_land_orchidee_mod.F90

@@ -545 +545 @@
        ENDIF
        CALL Init_synchro_omp
+
+!$OMP BARRIER
        
        IF (knon > 0) THEN
@@ -551 +553 @@
 #endif
        ENDIF
+
+       CALL Synchro_omp