Index: LMDZ6/trunk/libf/phylmd/physiq_mod.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/physiq_mod.F90	(revision 3613)
+++ LMDZ6/trunk/libf/phylmd/physiq_mod.F90	(revision 3630)
@@ -1065,6 +1065,4 @@
     LOGICAL, SAVE :: flag_bc_internal_mixture
     !$OMP THREADPRIVATE(flag_bc_internal_mixture)
-    LOGICAL, SAVE :: new_aod
-    !$OMP THREADPRIVATE(new_aod) 
     !
     !--STRAT AEROSOL
@@ -1249,5 +1247,5 @@
             ok_ade, ok_aie, ok_alw, ok_cdnc, ok_volcan, aerosol_couple, &
             chemistry_couple, &
-            flag_aerosol, flag_aerosol_strat, flag_aer_feedback, new_aod, &
+            flag_aerosol, flag_aerosol_strat, flag_aer_feedback, &
             flag_bc_internal_mixture, bl95_b0, bl95_b1, &
                                 ! nv flags pour la convection et les
@@ -1575,5 +1573,5 @@
             ok_hf,ok_instan,ok_LES,ok_ade,ok_aie, &
             read_climoz, phys_out_filestations, &
-            new_aod, aerosol_couple, &
+            aerosol_couple, &
             flag_aerosol_strat, pdtphys, paprs, pphis,  &
             pplay, lmax_th, ptconv, ptconvth, ivap,  &
@@ -1688,5 +1686,5 @@
        CALL phys_output_write(itap, pdtphys, paprs, pphis,                    &
                               pplay, lmax_th, aerosol_couple,                 &
-                              ok_ade, ok_aie, ok_volcan, ivap, iliq, isol, new_aod, ok_sync,&
+                              ok_ade, ok_aie, ok_volcan, ivap, iliq, isol, ok_sync,&
                               ptconv, read_climoz, clevSTD,                   &
                               ptconvth, d_u, d_t, qx, d_qx, zmasse,           &
@@ -3771,5 +3769,5 @@
                 !
                 CALL readaerosol_optic( &
-                     debut, new_aod, flag_aerosol, itap, jD_cur-jD_ref, &
+                     debut, flag_aerosol, itap, jD_cur-jD_ref, &
                      pdtphys, pplay, paprs, t_seri, rhcl, presnivs,  &
                      mass_solu_aero, mass_solu_aero_pi,  &
@@ -3796,5 +3794,5 @@
                    !--climatologies or INCA aerosols
                    CALL readaerosol_optic_rrtm( debut, aerosol_couple, ok_alw, ok_volcan, &
-                        new_aod, flag_aerosol, flag_bc_internal_mixture, itap, jD_cur-jD_ref, &
+                        flag_aerosol, flag_bc_internal_mixture, itap, jD_cur-jD_ref, &
                         pdtphys, pplay, paprs, t_seri, rhcl, presnivs,  &
                         tr_seri, mass_solu_aero, mass_solu_aero_pi,  &
@@ -3813,5 +3811,5 @@
                    !
                    CALL readaerosol_optic( &
-                        debut, new_aod, flag_aerosol, itap, jD_cur-jD_ref, &
+                        debut, flag_aerosol, itap, jD_cur-jD_ref, &
                         pdtphys, pplay, paprs, t_seri, rhcl, presnivs,  &
                         mass_solu_aero, mass_solu_aero_pi,  &
@@ -4102,5 +4100,5 @@
                ! Rajoute par OB pour RRTM
                tau_aero_lw_rrtm, & 
-               cldtaupirad,new_aod, &
+               cldtaupirad, &
 !              zqsat, flwcrad, fiwcrad, &
                zqsat, flwc, fiwc, &
@@ -4189,5 +4187,5 @@
                                 ! Rajoute par OB pour RRTM
                      tau_aero_lw_rrtm, &
-                     cldtaupi,new_aod, &
+                     cldtaupi, &
 !                    zqsat, flwcrad, fiwcrad, &
                      zqsat, flwc, fiwc, &
@@ -5072,5 +5070,5 @@
   CALL phys_output_write_spl(itap, pdtphys, paprs, pphis,  &
        pplay, lmax_th, aerosol_couple,                 &
-       ok_ade, ok_aie, ivap, new_aod, ok_sync,         &
+       ok_ade, ok_aie, ivap, ok_sync,         &
        ptconv, read_climoz, clevSTD,                   &
        ptconvth, d_t, qx, d_qx, d_tr_dyn, zmasse,      &
@@ -5079,5 +5077,5 @@
     CALL phys_output_write(itap, pdtphys, paprs, pphis,  &
          pplay, lmax_th, aerosol_couple,                 &
-         ok_ade, ok_aie, ok_volcan, ivap, iliq, isol, new_aod,      & 
+         ok_ade, ok_aie, ok_volcan, ivap, iliq, isol,    & 
          ok_sync, ptconv, read_climoz, clevSTD,          &
          ptconvth, d_u, d_t, qx, d_qx, zmasse,           &
