Index: LMDZ4/branches/LMDZ4_V3_patches/libf/phylmd/write_histmth.h
===================================================================
--- LMDZ4/branches/LMDZ4_V3_patches/libf/phylmd/write_histmth.h	(revision 918)
+++ LMDZ4/branches/LMDZ4_V3_patches/libf/phylmd/write_histmth.h	(revision 925)
@@ -250,14 +250,14 @@
       IF (ok_ade.OR.ok_aie) THEN
       zx_tmp_fi2d(1:klon) = topswai(1:klon) - topswad(1:klon)
-      CALL histwrite_phy(nid_mth,"topsad",itau_w,zx_tmp_2d)
+      CALL histwrite_phy(nid_mth,"topsad",itau_w,zx_tmp_fi2d)
 c
       zx_tmp_fi2d(1:klon) = solswai(1:klon) - solswad(1:klon)
-      CALL histwrite_phy(nid_mth,"solsad",itau_w,zx_tmp_2d)
+      CALL histwrite_phy(nid_mth,"solsad",itau_w,zx_tmp_fi2d)
 c
       zx_tmp_fi2d(1:klon) = topsw(1:klon) - topswai(1:klon)
-      CALL histwrite_phy(nid_mth,"topsai",itau_w,zx_tmp_2d)
+      CALL histwrite_phy(nid_mth,"topsai",itau_w,zx_tmp_fi2d)
 c
       zx_tmp_fi2d(1:klon) = solsw(1:klon) - solswai(1:klon)
-      CALL histwrite_phy(nid_mth,"solsai",itau_w,zx_tmp_2d)
+      CALL histwrite_phy(nid_mth,"solsai",itau_w,zx_tmp_fi2d)
       endif