Index: LMDZ6/trunk/libf/phylmd/radlwsw_m.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/radlwsw_m.F90	(revision 5656)
+++ LMDZ6/trunk/libf/phylmd/radlwsw_m.F90	(revision 5657)
@@ -309,4 +309,9 @@
 
     REAL(KIND=8) cloud_cover_sw(klon)
+    REAL(KIND=8), dimension(klon,klev+1) :: ZFLUX_DIR_i, &           ! Direct compt of surf flux into horizontal plane
+                                            ZFLUX_DIR_CLEAR_i        ! CS Direct
+    REAL(KIND=8), dimension(klon,klev+1) :: ZFLUX_DIR, &           ! Direct compt of surf flux into horizontal plane
+                                            ZFLUX_DIR_CLEAR        ! CS Direct
+    REAL(KIND=8), dimension(klon)        :: ZFLUX_DIR_INTO_SUN
 
 !!!!!!! Declarations specifiques pour ECRAD !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@@ -335,11 +340,5 @@
          ZAEROSOL(KLON,KLEV,naero_spc) !
     ! Interm
-    REAL(KIND=8), dimension(klon,klev+1) :: ZFLUX_DIR_i, &           ! Direct compt of surf flux into horizontal plane
-                                             ZFLUX_DIR_CLEAR_i        ! CS Direct
-    ! OUTPUTS
-    REAL(KIND=8), dimension(klon,klev+1) :: ZFLUX_DIR, &           ! Direct compt of surf flux into horizontal plane
-                                                         ZFLUX_DIR_CLEAR        ! CS Direct 
-    REAL(KIND=8), dimension(klon)        ::  ZFLUX_DIR_INTO_SUN, &  ! 
-                                                 ZFLUX_UV, &            ! UV flux
+    REAL(KIND=8), dimension(klon)                ZFLUX_UV, &            ! UV flux
                                                  ZFLUX_PAR, &           ! photosynthetically active radiation similarly
                                                  ZFLUX_PAR_CLEAR, &     ! CS photosynthetically