--- trunk/libf/dyn3d/caldyn.f90	2011/07/01 15:00:48	47
+++ trunk/libf/dyn3d/caldyn.f90	2012/09/20 13:00:41	66
@@ -14,7 +14,7 @@
     use advect_m, only: advect
     USE dimens_m, ONLY : iim, 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, constang
     use sortvarc_m, only: sortvarc