Index: /LMDZ4/branches/LMDZ4-dev/libf/phylmd/pbl_surface_mod.F90
===================================================================
--- /LMDZ4/branches/LMDZ4-dev/libf/phylmd/pbl_surface_mod.F90	(revision 1277)
+++ /LMDZ4/branches/LMDZ4-dev/libf/phylmd/pbl_surface_mod.F90	(revision 1278)
@@ -1,2 +1,4 @@
+!
+! $Id$
 !
 MODULE pbl_surface_mod
@@ -463,8 +465,7 @@
 !****************************************************************************************
 ! Declarations specifiques pour le 1D. A reprendre 
-  REAL,SAVE    :: fsens,flat
-  LOGICAL,SAVE :: ok_flux_surf=.FALSE.
-!$OMP THREADPRIVATE(fsens,flat,ok_flux_surf)
-
+  REAL  :: fsens,flat
+  LOGICAL :: ok_flux_surf=.FALSE.
+  COMMON /flux_arp/fsens,flat,ok_flux_surf
 !****************************************************************************************
 ! End of declarations