Index: LMDZ.3.3/trunk/libf/dyn3d/minmax2F
===================================================================
--- LMDZ.3.3/trunk/libf/dyn3d/minmax2F	(revision 61)
+++ 	(revision )
@@ -1,17 +1,0 @@
-       SUBROUTINE minmax2(imax, jmax, lmax, xi, zmin, zmax )
-c
-       INTEGER lmax,jmax,imax
-       REAL xi(imax*jmax*lmax) 
-       REAL zmin,zmax
-       INTEGER i
-    
-       zmin = xi(1)
-       zmax = xi(1)
-
-       DO i = 2, imax*jmax*lmax
-         zmin = MIN( zmin,xi(i) )
-         zmax = MAX( zmax,xi(i) )
-       ENDDO
-
-       RETURN
-       END