Index: LMDZ6/trunk/libf/phylmdiso/isotopes_routines_mod.F90
===================================================================
--- LMDZ6/trunk/libf/phylmdiso/isotopes_routines_mod.F90	(revision 4401)
+++ LMDZ6/trunk/libf/phylmdiso/isotopes_routines_mod.F90	(revision 4402)
@@ -16567,5 +16567,5 @@
       found = phyetat0iso_srf3(fxtevap,     "XTEVAP", "evaporation",  0.)
       found = phyetat0iso_get2(xtrain_fall, "xtrain_f", "xrain fall", 0.)
-      found = phyetat0iso_get2(xsnow_fall, "xtsnow_f", "xsnow fall", 0.)
+      found = phyetat0iso_get2(xtsnow_fall, "xtsnow_f", "xsnow fall", 0.)
       found = phyetat0iso_get3(xt_ancien,   "XTANCIEN",  "QANCIEN",   0.)
       found = phyetat0iso_get3(xtl_ancien,  "XTLANCIEN", "QLANCIEN",  0.)
@@ -16628,5 +16628,5 @@
          IF(index_zone(ixt) == izone_init) THEN
             DO i = 1, klon
-               fxtevap(ixt,i,1:nsrf) = fxtevap(iiso,i,1:nsrf)
+               fxtevap(ixt,i,1:nbsrf) = fxtevap(iiso,i,1:nbsrf)
                xtsnow_fall(ixt,i) = xtsnow_fall(iiso,i)
                xtrain_fall(ixt,i) = xtrain_fall(iiso,i)