--- trunk/libf/dyn3d/caldyn0.f90	2011/05/16 14:52:30	46
+++ trunk/libf/dyn3d/caldyn0.f90	2012/09/20 13:00:41	66
@@ -14,7 +14,7 @@
 
     USE dimens_m, ONLY : llm
     USE paramet_m, ONLY : iip1, ip1jm, ip1jmp1, jjp1, llmp1
-    USE comvert, ONLY : ap, bp
+    USE disvert_m, ONLY : ap, bp
     USE comgeom, ONLY : airesurg
 
     !   Arguments: