--- trunk/Sources/dyn3d/groupe.f	2016/09/01 10:30:53	207
+++ trunk/Sources/dyn3d/groupe.f	2018/01/22 15:02:56	252
@@ -88,7 +88,7 @@
        END DO
     END DO
 
-    CALL vitvert(zconvmm, wm)
+    wm = vitvert(zconvmm)
 
   END SUBROUTINE groupe