Index: LMDZ6/trunk/libf/phylmd/iophy.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/iophy.F90	(revision 5562)
+++ LMDZ6/trunk/libf/phylmd/iophy.F90	(revision 5569)
@@ -13,5 +13,5 @@
   INTEGER, SAVE :: itau_iophy
   LOGICAL :: check_dim = .false.
-!$OMP THREADPRIVATE(io_lat,io_lon,phys_domain_id,npstn,nptabij,itau_iophy)
+!$OMP THREADPRIVATE(itau_iophy)
 
   INTERFACE histwrite_phy
@@ -971,5 +971,4 @@
   REAL, ALLOCATABLE, DIMENSION(:) :: fieldok
   logical, save :: is_active = .true.
-!$OMP THREADPRIVATE(is_active)
 
   IF (check_dim .AND. is_master) WRITE(lunout,*)'histwrite2d_phy for ',trim(var%name)
Index: LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90	(revision 5562)
+++ LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90	(revision 5569)
@@ -1105,4 +1105,6 @@
       ALLOCATE(proba_notrig(klon), random_notrig(klon))
       ALLOCATE(coef_clos(klon), coef_clos_eff(klon))
+      coef_clos(:)=0.
+      coef_clos_eff(:)=0.
 
       ALLOCATE(dnwd0(klon, klev))
Index: LMDZ6/trunk/libf/phylmd/phys_state_var_mod.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/phys_state_var_mod.F90	(revision 5562)
+++ LMDZ6/trunk/libf/phylmd/phys_state_var_mod.F90	(revision 5569)
@@ -657,4 +657,5 @@
 !
       ALLOCATE(Mipsh(klon,klev))
+      Mipsh(:,:)=0.0
       ALLOCATE(Ma(klon,klev))
       ALLOCATE(qcondc(klon,klev))