Index: trunk/LMDZ.COMMON/libf/evolution/output.F90
===================================================================
--- trunk/LMDZ.COMMON/libf/evolution/output.F90	(revision 4134)
+++ trunk/LMDZ.COMMON/libf/evolution/output.F90	(revision 4147)
@@ -383,12 +383,12 @@
 call check_nc(nf90_enddef(ncid_diagevo),'leaving define mode')
 allocate(var_dyn(nlon_loc,nlat))
-call vect2dyngrd(nlon + 1,nlat,ngrid,longitudes,var_dyn)
+call vect2dyngrd(longitudes,var_dyn)
 call put_var_nc('longitude',var_dyn)
-call vect2dyngrd(nlon + 1,nlat,ngrid,latitudes,var_dyn)
+call vect2dyngrd(latitudes,var_dyn)
 call put_var_nc('latitude',var_dyn)
 call put_var_nc('ap',ap)
 call put_var_nc('bp',bp)
 call put_var_nc('soildepth',mlayer)
-call vect2dyngrd(nlon + 1,nlat,ngrid,cell_area,var_dyn)
+call vect2dyngrd(cell_area,var_dyn)
 call put_var_nc('cell_area',var_dyn)
 deallocate(var_dyn)
@@ -499,5 +499,5 @@
                 rank(1)
                     allocate(var_dyn(nlon_loc,nlat))
-                    call vect2dyngrd(nlon + 1,nlat,ngrid,var,var_dyn)
+                    call vect2dyngrd(var,var_dyn)
                     call put_var_nc(var_name,var_dyn,itime)
                     deallocate(var_dyn)
@@ -505,5 +505,5 @@
                     allocate(var1d_dyn(nlon_loc,nlat,size(var,2)))
                     do i = 1,size(var,2)
-                        call vect2dyngrd(nlon + 1,nlat,ngrid,var(:,i),var1d_dyn(:,:,i))
+                        call vect2dyngrd(var(:,i),var1d_dyn(:,:,i))
                     end do
                     call put_var_nc(var_name,var1d_dyn,itime)
@@ -513,5 +513,5 @@
                     do i = 1,size(var,2)
                         do j = 1,size(var,3)
-                            call vect2dyngrd(nlon + 1,nlat,ngrid,var(:,i,j),var2d_dyn(:,:,i,j))
+                            call vect2dyngrd(var(:,i,j),var2d_dyn(:,:,i,j))
                         end do
                     end do