Index: LMDZ.3.3/trunk/libf/dyn3d/minmax2.F
===================================================================
--- LMDZ.3.3/trunk/libf/dyn3d/minmax2.F	(revision 61)
+++ LMDZ.3.3/trunk/libf/dyn3d/minmax2.F	(revision 61)
@@ -0,0 +1,17 @@
+       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