Index: trunk/LMDZ.PLUTO/libf/phypluto/callcorrk.F90
===================================================================
--- trunk/LMDZ.PLUTO/libf/phypluto/callcorrk.F90	(revision 3374)
+++ trunk/LMDZ.PLUTO/libf/phypluto/callcorrk.F90	(revision 3375)
@@ -576,4 +576,6 @@
 
 
+      ! AF24: for now only consider one aerosol (=haze) 
+      if (aerohaze) then 
         do iaer=1,naerkind
             ! Shortwave.
@@ -682,8 +684,10 @@
             end do ! L_LEVELS
         end do ! naerkind
+      end if ! aerohaze
 
 !-----------------------------------------------------------------------
 !     Aerosol optical depths
 !-----------------------------------------------------------------------
+      if (aerohaze) then 
         do iaer=1,naerkind     ! a bug was here
             do k=0,nlayer-1
@@ -704,4 +708,7 @@
 
          end do ! naerkind
+      else
+         tauaero(:,:)=0
+      end if ! aerohaze
 
          ! Albedo and Emissivity.
@@ -1042,4 +1049,5 @@
             do l=1,L_NLAYRAD
                fmnetv(l)=0.0d0
+               fmnetv_nu(l,:)=0.0d0
                fluxupv(l)=0.0d0
                fluxdnv(l)=0.0d0