Index: trunk/LMDZ.COMMON/libf/evolution/surf_temp.F90
===================================================================
--- trunk/LMDZ.COMMON/libf/evolution/surf_temp.F90	(revision 4134)
+++ trunk/LMDZ.COMMON/libf/evolution/surf_temp.F90	(revision 4147)
@@ -169,10 +169,10 @@
 call print_msg("> Adapting surface temperature where ice disappeared",LVL_NFO)
 ! Convert from reduced grid to lon-lat grid
-call vect2lonlat(nlon,nlat,ngrid,latitudes,latitude_ll)
+call vect2lonlat(latitudes,latitude_ll)
 do islope = 1,nslope
-    call vect2lonlat(nlon,nlat,ngrid,tsurf_avg(:,islope),tsurf_ll(:,:,islope))
-    call vect2lonlat(nlon,nlat,ngrid,surfice(:,islope),co2ice_ll(:,:,islope))
-    call vect2lonlat(nlon,nlat,ngrid,merge(1._dp,0._dp,is_ice_ini(:,islope)),mask_co2ice_ini(:,:,islope))
-    call vect2lonlat(nlon,nlat,ngrid,merge(1._dp,0._dp,ice_disappeared(:,islope)),mask_co2ice_disappeared(:,:,islope))
+    call vect2lonlat(tsurf_avg(:,islope),tsurf_ll(:,:,islope))
+    call vect2lonlat(surfice(:,islope),co2ice_ll(:,:,islope))
+    call vect2lonlat(merge(1._dp,0._dp,is_ice_ini(:,islope)),mask_co2ice_ini(:,:,islope))
+    call vect2lonlat(merge(1._dp,0._dp,ice_disappeared(:,islope)),mask_co2ice_disappeared(:,:,islope))
 end do
 
@@ -233,6 +233,6 @@
 ! Convert back from lon-lat grid to reduced grid
 do islope = 1,nslope
-    call lonlat2vect(nlon,nlat,ngrid,tsurf_ll(:,:,islope),tsurf_avg(:,islope))
-    call lonlat2vect(nlon,nlat,ngrid,mask_co2ice_disappeared(:,:,islope),tmp)
+    call lonlat2vect(tsurf_ll(:,:,islope),tsurf_avg(:,islope))
+    call lonlat2vect(mask_co2ice_disappeared(:,:,islope),tmp)
     where (tmp > 0.5_dp) ice_disappeared(:,islope) = .true.
 end do