Index: LMDZ6/trunk/libf/phylmd/rrtm/recmwf_aero.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/rrtm/recmwf_aero.F90	(revision 3082)
+++ LMDZ6/trunk/libf/phylmd/rrtm/recmwf_aero.F90	(revision 3083)
@@ -760,8 +760,4 @@
   ENDIF
 
-! copy clear-sky clean (no aerosol) case
-  PFSCCUP(:,:) =   ZFSUP0_AERO(:,:,5)
-  PFSCCDN(:,:) =   ZFSDN0_AERO(:,:,5)
-
 ! The following allows to compute the forcing diagostics without
 ! letting the aerosol forcing act on the meteorology
@@ -780,4 +776,10 @@
     PFLUC(:,2,:) =  LWDN0_AERO(:,:,5) 
 
+ENDIF
+
+IF (aerosolfree_diag) THEN
+! copy clear-sky clean (no aerosol) case
+  PFSCCUP(:,:) =   ZFSUP0_AERO(:,:,5)
+  PFSCCDN(:,:) =   ZFSDN0_AERO(:,:,5)
 ENDIF