Index: LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90	(revision 4972)
+++ LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90	(revision 4973)
@@ -124,7 +124,4 @@
       !$OMP THREADPRIVATE(d_ts, d_tr)
 
-! aerosols
-      REAL, SAVE, ALLOCATABLE :: m_allaer (:,:,:)
-      !$OMP THREADPRIVATE(m_allaer)
 ! diagnostique pour le rayonnement
       REAL, SAVE, ALLOCATABLE :: topswad_aero(:),  solswad_aero(:)      ! diag
@@ -723,6 +720,4 @@
       ALLOCATE(d_ts(klon,nbsrf), d_tr(klon,klev,nbtr))
 
-! aerosols
-      ALLOCATE(m_allaer(klon,klev,naero_tot))
 ! Special RRTM
       ALLOCATE(ZLWFT0_i(klon,klev+1),ZSWFT0_i(klon,klev+1),ZFLDN0(klon,klev+1))
@@ -1136,6 +1131,4 @@
       DEALLOCATE(solsw_aerop, solsw0_aerop)
       DEALLOCATE(topswcf_aerop, solswcf_aerop)
-!AI Aerosols
-      DEALLOCATE(m_allaer)
 !CK LW diagnostics
       DEALLOCATE(toplwad_aerop, sollwad_aerop)
Index: LMDZ6/trunk/libf/phylmd/phys_state_var_mod.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/phys_state_var_mod.F90	(revision 4972)
+++ LMDZ6/trunk/libf/phylmd/phys_state_var_mod.F90	(revision 4973)
@@ -474,4 +474,6 @@
       REAL,SAVE,ALLOCATABLE :: ccm(:,:,:)
 !$OMP THREADPRIVATE(ccm)
+      REAL, SAVE, ALLOCATABLE :: m_allaer (:,:,:)
+!$OMP THREADPRIVATE(m_allaer)
 
       REAL,SAVE,ALLOCATABLE :: ale_bl_trig(:)
@@ -752,4 +754,5 @@
       ALLOCATE(cg_aero_lw_rrtm(klon,klev,2,nbands_lw_rrtm))
       ALLOCATE(ccm(klon,klev,nbands))
+      ALLOCATE(m_allaer(klon,klev,naero_tot))
 
 #ifdef ISO
@@ -936,4 +939,5 @@
       DEALLOCATE(tau_aero_lw_rrtm,piz_aero_lw_rrtm,cg_aero_lw_rrtm)
       DEALLOCATE(ccm)
+      DEALLOCATE(m_allaer)
       if (ok_gwd_rando) DEALLOCATE(du_gwd_rando)
       if (.not. ok_hines .and. ok_gwd_rando) DEALLOCATE(du_gwd_front)
Index: LMDZ6/trunk/libf/phylmd/radlwsw_m.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/radlwsw_m.F90	(revision 4972)
+++ LMDZ6/trunk/libf/phylmd/radlwsw_m.F90	(revision 4973)
@@ -80,7 +80,6 @@
     ! Besoin pour ECRAD de pctsrf, zmasq, longitude, altitude
 #ifdef CPP_ECRAD
-    USE phys_local_var_mod, ONLY: rhcl, m_allaer
     USE geometry_mod, ONLY: latitude, longitude
-    USE phys_state_var_mod, ONLY: pctsrf
+    USE phys_state_var_mod, ONLY: pctsrf, m_allaer
     USE indice_sol_mod
     USE time_phylmdz_mod, only: current_time