Index: LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90	(revision 6146)
+++ LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90	(revision 6147)
@@ -1380,4 +1380,8 @@
 #ifdef CPP_ECRAD
      CALL histwrite_phy(o_cloud_cover_sw, cloud_cover_sw)
+     CALL histwrite_phy(o_ZFLUX_DIR, ZFLUX_DIR)
+     CALL histwrite_phy(o_ZFLUX_DIR_CLEAR, ZFLUX_DIR_CLEAR)
+     CALL histwrite_phy(o_ZFLUX_DIR_SUN, ZFLUX_DIR_SUN)
+
      IF (ok_3Deffect) THEN
        CALL histwrite_phy(o_cloud_cover_sw_s2, cloud_cover_sw_s2)
@@ -1490,9 +1494,6 @@
        CALL histwrite_phy(o_rlucs_s2, lwup0_s2)
        CALL histwrite_phy(o_rldcs_s2, lwdn0_s2)
-       CALL histwrite_phy(o_ZFLUX_DIR, ZFLUX_DIR)
        CALL histwrite_phy(o_ZFLUX_DIR_s2, ZFLUX_DIR_s2)
-       CALL histwrite_phy(o_ZFLUX_DIR_CLEAR, ZFLUX_DIR_CLEAR)
        CALL histwrite_phy(o_ZFLUX_DIR_CLEAR_s2, ZFLUX_DIR_CLEAR_s2)
-       CALL histwrite_phy(o_ZFLUX_DIR_SUN, ZFLUX_DIR_SUN)
        CALL histwrite_phy(o_ZFLUX_DIR_SUN_s2, ZFLUX_DIR_SUN_s2)
     ENDIF !ok_3Deffect