Changeset 1900

Timestamp:

Nov 6, 2013, 11:25:21 AM (11 years ago)

Author:

Ehouarn Millour

Message:

Bug fix, iwrite_phy_omp must be saved (shared by all OpenMP threads).
FH

File:

• LMDZ5/trunk/libf/phydev/physiq.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phydev/physiq.F90

@@ -80 +80 @@
 integer,save :: iwrite_phys ! output every iwrite_phys physics step
 !$OMP THREADPRIVATE(iwrite_phys)
-integer :: iwrite_phys_omp ! intermediate variable to read iwrite_phys
+integer,save :: iwrite_phys_omp ! intermediate variable to read iwrite_phys
+                                ! (must be shared by all threads)
 real :: t_ops ! frequency of the IOIPSL operations (eg average over...)
 real :: t_wrt ! frequency of the IOIPSL outputs