Index: LMDZ4/trunk/libf/phylmd/phys_state_var_mod.F90
===================================================================
--- LMDZ4/trunk/libf/phylmd/phys_state_var_mod.F90	(revision 1359)
+++ LMDZ4/trunk/libf/phylmd/phys_state_var_mod.F90	(revision 1362)
@@ -119,15 +119,27 @@
 !IM begin
       REAL,ALLOCATABLE,SAVE :: wlevSTD(:,:), ulevSTD(:,:), vlevSTD(:,:)
+!$OMP THREADPRIVATE(wlevSTD,ulevSTD,vlevSTD)
       REAL,ALLOCATABLE,SAVE :: tlevSTD(:,:), qlevSTD(:,:), rhlevSTD(:,:)
+!$OMP THREADPRIVATE(tlevSTD,qlevSTD,rhlevSTD)
       REAL,ALLOCATABLE,SAVE :: philevSTD(:,:)
+!$OMP THREADPRIVATE(philevSTD)
       REAL,ALLOCATABLE,SAVE :: uvSTD(:,:)
+!$OMP THREADPRIVATE(uvSTD)
       REAL,ALLOCATABLE,SAVE :: vqSTD(:,:)
+!$OMP THREADPRIVATE(vqSTD)
       REAL,ALLOCATABLE,SAVE :: vTSTD(:,:)
+!$OMP THREADPRIVATE(vTSTD)
       REAL,ALLOCATABLE,SAVE :: wqSTD(:,:)
+!$OMP THREADPRIVATE(wqSTD)
       REAL,ALLOCATABLE,SAVE :: vphiSTD(:,:)
+!$OMP THREADPRIVATE(vphiSTD)
       REAL,ALLOCATABLE,SAVE :: wTSTD(:,:)
+!$OMP THREADPRIVATE(wTSTD)
       REAL,ALLOCATABLE,SAVE :: u2STD(:,:)
+!$OMP THREADPRIVATE(u2STD)
       REAL,ALLOCATABLE,SAVE :: v2STD(:,:) 
+!$OMP THREADPRIVATE(v2STD)
       REAL,ALLOCATABLE,SAVE :: T2STD(:,:)
+!$OMP THREADPRIVATE(T2STD)
 !IM end
       INTEGER,ALLOCATABLE,SAVE :: seed_old(:,:)