Changeset 479 for codes

Timestamp:

09/16/16 15:34:45 (8 years ago)

Author:

ymipsl

Message:

Missing synchronisation for OpenMP on vertical level

YM

File:

• codes/icosagcm/trunk/src/caldyn_kernels_base.f90 (modified) (1 diff)

codes/icosagcm/trunk/src/caldyn_kernels_base.f90

@@ -41 +41 @@
 
     CALL trace_start("compute_geopot")
+
+!$OMP BARRIER
 
     CALL distrib_level(ij_end_ext-ij_begin_ext+1,ij_omp_begin_ext,ij_omp_end_ext)