--- trunk/libf/dyn3d/groupe.f90	2012/09/20 13:00:41	66
+++ trunk/Sources/dyn3d/groupe.f	2015/04/29 15:47:56	134
@@ -17,6 +17,7 @@
   USE comconst
   USE disvert_m
   USE comgeom
+  use vitvert_m, only: vitvert
 
   IMPLICIT NONE