Index: LMDZ4/branches/IPSL-CM4_IPCC_branch/libf/phylmd/clmain.F
===================================================================
--- LMDZ4/branches/IPSL-CM4_IPCC_branch/libf/phylmd/clmain.F	(revision 715)
+++ LMDZ4/branches/IPSL-CM4_IPCC_branch/libf/phylmd/clmain.F	(revision 716)
@@ -104,5 +104,6 @@
 cIM cf JLD
       REAL y_fqcalving(klon), y_fqfonte(klon), y_ffonte(klon)
-      REAL fqcalving(klon,nbsrf), fqfonte(klon,nbsrf), ffonte(klon,nbsrf)
+      REAL fqcalving(klon,nbsrf), fqfonte(klon,nbsrf)
+      REAL ffonte(klon,nbsrf)
       REAL run_off_lic_0(klon), y_run_off_lic_0(klon)
 
Index: LMDZ4/branches/IPSL-CM4_IPCC_branch/libf/phylmd/interface_surf.F90
===================================================================
--- LMDZ4/branches/IPSL-CM4_IPCC_branch/libf/phylmd/interface_surf.F90	(revision 715)
+++ LMDZ4/branches/IPSL-CM4_IPCC_branch/libf/phylmd/interface_surf.F90	(revision 716)
@@ -202,5 +202,5 @@
 ! hauteur de neige, en kg/m2/s
 !jld a rajouter   real, dimension(klon), intent(INOUT):: fqcalving
-  real, dimension(klon), intent(INOUT):: fqcalving
+  real, dimension(klon), intent(INOUT):: fqcalving, fqfonte
 
 ! Local