Index: LMDZ.3.3/branches/rel-LF/libf/phylmd/ini_histday.h
===================================================================
--- LMDZ.3.3/branches/rel-LF/libf/phylmd/ini_histday.h	(revision 446)
+++ LMDZ.3.3/branches/rel-LF/libf/phylmd/ini_histday.h	(revision 447)
@@ -206,4 +206,28 @@
      .                "ave(X)", zsto,zout)
 
+         CALL histdef(nid_day, "cape_max", "CAPE max.",
+     .                "J/Kg",
+     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
+     .                capemaxcels, zsto,zout)
+
+         CALL histdef(nid_day, "SWupTOAclr",
+     .                "SWup clear sky at TOA","W/m2",
+     .                iim,jjmp1,nhori, 1,1,1,-99,
+     .                32, "ave(X)", zsto,zout)
+
+         CALL histdef(nid_day, "SWupSFCclr",
+     .                "SWup clear sky at surface","W/m2",
+     .                iim,jjmp1,nhori, 1,1,1,-99,
+     .                32, "ave(X)", zsto,zout)
+
+         CALL histdef(nid_day, "SWdnTOAclr",
+     .                "SWdn clear sky at TOA","W/m2",
+     .                iim,jjmp1,nhori, 1,1,1,-99,
+     .                32, "ave(X)", zsto,zout)
+
+         CALL histdef(nid_day, "SWdnSFCclr",
+     .                "SWdn clear sky at surface","W/m2",
+     .                iim,jjmp1,nhori, 1,1,1,-99,
+     .                32, "ave(X)", zsto,zout)
 
 c=================================================================
Index: LMDZ.3.3/branches/rel-LF/libf/phylmd/write_histday.h
===================================================================
--- LMDZ.3.3/branches/rel-LF/libf/phylmd/write_histday.h	(revision 446)
+++ LMDZ.3.3/branches/rel-LF/libf/phylmd/write_histday.h	(revision 447)
@@ -207,4 +207,27 @@
       CALL histwrite(nid_day,"slp",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
 
+      CALL gr_fi_ecrit(1,klon,iim,jjmp1,cape,zx_tmp_2d)
+      CALL histwrite(nid_day,"cape_max",itau_w,zx_tmp_2d,
+     .               iim*jjmp1,ndex2d)
+
+      zx_tmp_fi2d(1 : klon) = ZFSUP0( 1 : klon, klevp1)
+      CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
+      CALL histwrite(nid_day, "SWupTOAclr",itau_w,zx_tmp_2d,
+     .                               iim*jjmp1,ndex2d)
+
+      zx_tmp_fi2d(1 : klon) = ZFSUP0( 1 : klon, 1)
+      CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
+      CALL histwrite(nid_day, "SWupSFCclr",itau_w,zx_tmp_2d,
+     .                               iim*jjmp1,ndex2d)
+ 
+      zx_tmp_fi2d(1 : klon) = ZFSDN0( 1 : klon, klevp1)
+      CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
+      CALL histwrite(nid_day, "SWdnTOAclr",itau_w,zx_tmp_2d,
+     .                               iim*jjmp1,ndex2d)
+ 
+      zx_tmp_fi2d(1 : klon) = ZFSDN0( 1 : klon, 1)
+      CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
+      CALL histwrite(nid_day, "SWdnSFCclr",itau_w,zx_tmp_2d,
+     .                               iim*jjmp1,ndex2d)
 
 c