Index: LMDZ5/trunk/libf/phylmd/yamada4.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/yamada4.F90	(revision 2890)
+++ LMDZ5/trunk/libf/phylmd/yamada4.F90	(revision 2891)
@@ -143,5 +143,6 @@
   INTEGER, SAVE :: yamada4_num
   !$OMP THREADPRIVATE(new_yamada4,yamada4_num)
-  REAL, SAVE :: yun,ydeux,disseff
+  REAL, SAVE :: yun,ydeux
+  REAL :: disseff
   !$OMP THREADPRIVATE(yun,ydeux)
   REAL frif, falpha, fsm