--- trunk/dyn3d/massbarxy.f	2018/03/19 10:28:42	264
+++ trunk/dyn3d/massbarxy.f	2018/03/20 09:35:59	265
@@ -12,7 +12,7 @@
     ! Authors: P. Le Van, F. Hourdin.
 
     USE comgeom, ONLY: alpha1, alpha2, alpha3, alpha4
-    USE dimens_m, ONLY: iim, llm
+    USE dimensions, ONLY: iim, llm
     USE paramet_m, ONLY: iip1, iip2, ip1jm, ip1jmp1
 
     REAL, intent(in):: masse(ip1jmp1, llm)