Index: LMDZ4/branches/LMDZ4_V3_patches/libf/phylmd/plevel.F
===================================================================
--- LMDZ4/branches/LMDZ4_V3_patches/libf/phylmd/plevel.F	(revision 869)
+++ LMDZ4/branches/LMDZ4_V3_patches/libf/phylmd/plevel.F	(revision 870)
@@ -46,5 +46,6 @@
 
 cym      save lt,lb,ptop,pbot,aist,aisb
-      INTEGER,ALLOCATABLE,SAVE,DIMENSION(:) :: lt,lb,aist,aisb
+      INTEGER,ALLOCATABLE,SAVE,DIMENSION(:) :: lt,lb
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: aist,aisb
 c$OMP THREADPRIVATE(lt,lb,aist,aisb)      
       REAL,SAVE :: ptop, pbot