--- trunk/dyn3d/vitvert.f	2018/03/19 10:28:42	264
+++ trunk/dyn3d/vitvert.f	2018/03/20 09:35:59	265
@@ -15,7 +15,7 @@
     ! sigma(1): vitvert(i, j, 1) = 0. At top-level sigma(llm + 1), vertical
     ! speed is 0 too and is not stored in vitvert.
     
-    USE dimens_m, ONLY : llm
+    USE dimensions, ONLY : llm
     USE disvert_m, ONLY : bp
 
     real, intent(in):: convm(:, :, :) ! (iim + 1, jjm + 1, llm)