Index: LMDZ5/trunk/libf/phydev/physiq.F90
===================================================================
--- LMDZ5/trunk/libf/phydev/physiq.F90	(revision 1899)
+++ LMDZ5/trunk/libf/phydev/physiq.F90	(revision 1900)
@@ -80,5 +80,6 @@
 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